Private Sub Form_Load() Dim i As Long Dim r As Long Randomize Timer File1.Path = "C:\Documents and Settings\consemma\Mes documents\Mes images" For i = 0 To File1.ListCount - 1 If (Right(UCase(File1.List(i)), 4)) = ".JPG" Then List1.AddItem File1.List(i) End If Next i r = Int(Rnd * (List1.ListCount - 1)) Form1.Picture = LoadPicture(File1.Path & "" & List1.List(r)) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question