bilder auf UF aus ordner anzeigen
22.12.2004 16:00:18
ray
viele grüße aus Hamburg bei +Graden und wie immer REGEN
ray
Option Explicit
Public cntBild As Integer
Private Sub CommandButton1_Click()
cntBild = cntBild + 1
With Application.FileSearch
.LookIn = "c:\bilder"
.Filename = "*.jpg"
.Execute
If .FoundFiles.Count > cntBild Then
Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
End If
End With
End Sub
Anzeige
