Private Type CarteV Chemin As String Carte As String End Type Dim Carte() As CarteV ' tableau contenant les images Private Sub Form_Load() 'chargement des images dans le tableau Dim Fic As String Dim X As Integer Fic = Dir("d:\*.jpg", vbNormal) Do While Fic <> vbNullString ReDim Preserve Carte(X) Carte(X).Chemin = "d:" & Fic Carte(X).Carte = Left(Fic, Len(Fic) - 4) X = X + 1 Fic = Dir() Loop 'Affichage des images dans picture1(0) '1er picturebox chargé a l'ecran Picture1(0).Picture = LoadPicture(Carte(0).Chemin) 'chargement de nv picturebox pour chaque nv carte For i = 1 To UBound(Carte) Load Picture1(i) Picture1(i).Visible = True Picture1(i).Left = Picture1(i - 1).Left + Picture1(i - 1).Width + 50 Picture1(i).Picture = LoadPicture(Carte(i).Chemin) Next i End Sub Private Sub Picture1_Click(Index As Integer) 'affichage du nom de la carte lors d'un click MsgBox Carte(Index).Carte End Sub
E.B.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question