Private sImages As Collection
Private iCurImage As Integer
 
Private Sub Form_Load()
  Dim sFile As String
  Set sImages = New Collection
  sFile = Dir("C:\MeinVerzeichnis\*.jpg")
  While sFile <> ""
    sImages.Add sFile
    sFile = Dir()
  Wend
  LoadImage 0
End Sub
 
Private Sub LoadImage(ByVal iIndex As Integer)
  If iIndex >= 0 And iIndex < sImages.Count Then
    iCurImage = iIndex
    Picture1.Picture = sImages(iCurImage)
  End If
End Sub
 
Private Sub cmdNext_Click()
  If iCurImage + 1 < sImages.Count Then
    LoadImage iCurImage + 1
  Else
    LoadImage 0
  End If
End Sub
 
Private Sub cmdPrevious_Click()
  If iCurImage - 1 > -1 Then
    LoadImage iCurImage - 1
  Else
    LoadImage sImages.Count - 1
  End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.