Lone-wolf
XLDnaute Barbatruc
Bonsoir à tous,
voilà, j'aimerais que l'on me dise si ce que j'ai fait est juste.
J'ai 4 sous dossiers (Gauche-Droite-Bas-Haut) contenant chacun 54 cartes. Dans le formulaire j'ai donc mis 4 ImageList contenant les images des sous-dossiers et que j'ai intégrer manuellement sans clés (facultatives).
Le noms des cartes est 1-2-3, jusqu'à 54.
Dans UserForm_Initialize(), j'ai écrit ceci:
Dim imgX As ListImage
Dim a, b, c, d As Byte
Randomize
Me.ImageList1.ListImages.Clear
Me.ImageList1.ImageHeight = 70
Me.ImageList1.ImageWidth = 52
For a = 1 To 54
???
Next a
Bien entendu le code n'est pas complet; je n'arrive pas à écrire la syntaxe exacte.
Pourriez-vous m'aider s'il vous plaît?
voilà, j'aimerais que l'on me dise si ce que j'ai fait est juste.
J'ai 4 sous dossiers (Gauche-Droite-Bas-Haut) contenant chacun 54 cartes. Dans le formulaire j'ai donc mis 4 ImageList contenant les images des sous-dossiers et que j'ai intégrer manuellement sans clés (facultatives).
Le noms des cartes est 1-2-3, jusqu'à 54.
Dans UserForm_Initialize(), j'ai écrit ceci:
Dim imgX As ListImage
Dim a, b, c, d As Byte
Randomize
Me.ImageList1.ListImages.Clear
Me.ImageList1.ImageHeight = 70
Me.ImageList1.ImageWidth = 52
For a = 1 To 54
???
Next a
Bien entendu le code n'est pas complet; je n'arrive pas à écrire la syntaxe exacte.
Pourriez-vous m'aider s'il vous plaît?