scrolling through listbox item's with button's

[D_Rennie]

hello.

within the userform contacts, when mouse-over the image two buttons are shown.
I want when one of these buttons are it displays the next image. the names of all images for the contact are loaded in userform1 listbox. also change the name of the label1.caption.

The part im having trouble with is knowing where the current picture name is loacated within the listbox.

cheers

on a side note, if insted of using a picture object i use a activex picture viewer thing. Can i play movies within the same object as being used for the pictures.

[D_Rennie]

That took some thinking though i got there in the end.

Dim x As Integer
For x = 0 To UserForm1.ListBox1.ListCount - 1
   If Me.Label1.Caption = UserForm1.ListBox1.List(x) And x < UserForm1.ListBox1.ListCount - 1 Then
     Me.Label1.Caption = UserForm1.ListBox1.List(x + 1)
     GoTo EndExit
    End If
  Next x
EndExit:

and the reverse for the other im guessing.

[D_Rennie]

Dim x As Integer
For x = 0 To UserForm1.ListBox1.ListCount - 1
   If Me.Label1.Caption = UserForm1.ListBox1.List(x) And x > 0 Then
     Me.Label1.Caption = UserForm1.ListBox1.List(x - 1)
     GoTo EndExit
    End If
  Next x
EndExit:

going backwards throught the list.

[Andy Pope]

I could not work out how to get your example working.

Can you not make use of the listboxes ListIndex property?

[royUK]

Try this

   Dim sSel   As Integer
    With Me.Listbox1
        For sSel = IIf(.ColumnHeads, 1, 0) To .ListCount - 1
            If .Selected(sSel) Then
                Me.Label1.Caption = .List(sSel)
            End If
        Next sSel
    End Wi

[D_Rennie]

cheers ill give it a go in a sec.

just noticed with the code i put up.
If the listbox is made up of the save values. so (1) 1.jpg (2) 1.jpg the buttons wont do a thing.
And when the items in the listbox are all differnt (1) 1.jpg (2) 22.jpg it will loop through the items with the use of one button (withough error's)

[D_Rennie]

Andy yeah that was just left in there from when i started thinking of a way to do it. probley should have pulled that out before posting

roy I tryed it though it didnot work. im running this from Combobox_list... userfrom and the lisbox is in userform1.
so i put

   Dim sSel   As Integer
    With UserForm1.ListBox1
        For sSel = IIf(.ColumnHeads, 1, 0) To .ListCount - 1
            If .Selected(sSel) Then
                Me.Label1.Caption = .List(sSel)
                    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path _
                    & "\" & "Images" & "\" & "contacts" & "\" & Me.Label1.Caption)
            End If
        Next sSel
    End With

you have a couple things in there i have never seen so im not sure if im doing it correctly.

im happy with the other code and going with one button it will work within the constraints of the form. though it would be great to understand what you are going for there

[royUK]

I don't see why you need to complicate matters with a second UserForm. What is the object o changing images this way? I would have thought that a spinbutton on the form to scroll throug the records would be better. For a similar project I simply listedvthe image name in the database then as the records changed the image changed to match

[D_Rennie]

the reason i went with the second userform is i though it made it easy to upload files and remove files withough having to go to the sheet or clutter up the 1st form.
there realy is not any point to allowing more than one image for each contact it was just somethink that i though i would play with.

For a similar project I simply listedvthe image name in the database then as the records changed the image changed to match

is that what you done within the contacts project that you have on your site. Ill download it again and have a run through the code. I always pick up new idears each time i look at your work.

have a probem that i cant see why it is happening,
i have put in the image1.mousemove to show the label2 and button4 though for some reason it will not show the label though will show the button.

cheers

[royUK]

The contacts form is a very simpledemo of how to transfer data from one sheet to a data sheet. The project with the images was more complicated & for a client