AW: Zufallsbild in Userform laden
05.01.2005 20:38:22
Matthias
Hallo Claus,
es ist glaub ich nicht das eleganteste, aber er funktioniert ;-)
Private Sub CommandButton1_Click()
Dim d As String
d = Zufallsdatei("C:\export\", "gif")
Image1.Picture = LoadPicture(d)
End Sub
und dann noch die Funktion:
Function Zufallsdatei(pfad As String, typ As String) As String
Dim i As Integer, j As Integer
Dim pic As String
'Anzahl passender Dateien zählen
i = 0
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
pic = Dir(pfad & "*." & typ)
Do While pic <> ""
i = i + 1
pic = Dir()
Loop
'Zufallszahl zwischen 1 bis i erzeugen
Randomize
i = Int(Rnd() * i) + 1
' i-tes Bild laden
pic = Dir(pfad & "*." & typ)
For j = 2 To i
pic = Dir()
Next j
If pic <> "" Then
Zufallsdatei = pfad & pic
Else
Zufallsdatei = ""
End If
End Function
Die Breite und Höhe kannst du ja schon im Eigenschaftenfesnter des Images festlegen, außerdem den PictureSizeMode auf Stretch.
Grüße,
Matthias