Doorklikken m.b.v. commandbuttons

[toverkamp]

Hallo forum,

Ik had een vraag over een commandbutton. Ik wil deze gebruiken om door te klikken naar de volgende foto. Ik heb 2 commandbuttons naast elkaar staan: 1 met volgende en de ander met vorige. Ik heb de volgende code erachter staan:

Private Sub cmdUp_Click()
    On Error Resume Next
    idgegevens.lstgegfoto = idgegevens.lstgegfoto + 1
End Sub

Private Sub cmdDown_Click()
    On Error Resume Next
    idgegevens.lstgegfoto = idgegevens.lstgegfoto - 1
End Sub

idgegevens is het werkblad waar alle gegevens in komen te staan, hier staat ook een listbox in waar linken naar foto's op de harde schijf staan. Deze listbox heet Istgegfoto. Wanneer je op een link klikt, opent zich een nieuw formulier "frm_Image" en op dit formulier staan de 2 commandbuttons, alleen de code die hierboven staat werkt niet. Nou is mijn vraag of iemand weet wat er aan deze code aangepast moet worden?
(zie bijlage voor een aantal printscrns)

 

[Spiderman]

Hoi toverkamp,

Verander de volgende code in Sub lstgegfoto_Click van je form(idgegevens):

Private Sub lstgegfoto_Click()
    
    frm_Image.Image1.Picture = LoadPicture(lstgegfoto_onzichtbaar.List(lstgegfoto.ListIndex))
    If frm_Image.Visible = False Then frm_Image.Show vbModal
End Sub

Voeg deze code toe aan je knop UP:

If idgegevens.lstgegfoto.ListIndex = idgegevens.lstgegfoto.ListCount - 1 Then
    ' Knop disable
Else
    idgegevens.lstgegfoto.ListIndex = idgegevens.lstgegfoto.ListIndex + 1
    ' Knop Down weer enable
    ' Doordat de listindex wordt deze automatisch opnieuw geladen
End If

Voeg deze code toe aan je knop DOWN:

If idgegevens.lstgegfoto.ListIndex <= 0 Then
    ' Knop disable
Else
    idgegevens.lstgegfoto.ListIndex = idgegevens.lstgegfoto.ListIndex - 1
    'Knop Up weer enable
    ' Doordat de listindex wordt deze automatisch opnieuw geladen
End If

Suc6

 

[toverkamp]

Super hij werkt uitstekend!!
Hardstikke bedankt!:thumb: :thumb: