Ich arbeite mich in VB mit der Erstellung eines elektronischen Zettelkastenprogramms ein und kann bis jetzt Image-Controls Bilder zuordnen und diese dann nacheinander im Vollbildmodus anzeigen.
Nachdem für jede Bild-Anzeige eine eigene Prozedur nötig ist, hätte ich das gern in einer Schleife erledigt. Wer hilft mir. Danke im Voraus Peter
Der bisherige Code:
Private Sub Form_Activate()
Me.WindowState = vbMaximized
Set Image01.Picture = LoadPicture("19.jpg")
Set Image02.Picture = LoadPicture("06.jpg")
Set Image03.Picture = LoadPicture("09.jpg")
Set Image04.Picture = LoadPicture("02.jpg")
Image01.ZOrder vbBringToFront
Image01.Stretch = True
Image01.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image01_Click()
Image02.ZOrder vbBringToFront
Image02.Stretch = True
Image02.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image02_Click()
Image03.ZOrder vbBringToFront
Image03.Stretch = True
Image03.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image03_Click()
Image04.ZOrder vbBringToFront
Image04.Stretch = True
Image04.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image04_Click()
Unload Me
Form1.Show
End Sub

Bitte den Code formatiert in [VB]mein Code[/VB] setzen.
So wie er jetzt da steht kann man das Ding kaum lesen

Danke für den Hinweis!

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

vate Sub Form_Activate()    Me.WindowState = vbMaximized    Set Image01.Picture = LoadPicture("19.jpg")    Set Image02.Picture = LoadPicture("06.jpg")    Set Image03.Picture = LoadPicture("09.jpg")    Set Image04.Picture = LoadPicture("02.jpg")    Image01.ZOrder vbBringToFront    Image01.Stretch = True    Image01.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub Private Sub Image01_Click()    Image02.ZOrder vbBringToFront    Image02.Stretch = True    Image02.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub Private Sub Image02_Click()    Image03.ZOrder vbBringToFront    Image03.Stretch = True    Image03.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub Private Sub Image03_Click()    Image04.ZOrder vbBringToFront    Image04.Stretch = True    Image04.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub Private Sub Image04_Click()    Unload Me    Form1.Show End Sub