automatisation de la création de contrôle

Bonjours a tous,
je recherche le moyen d'ajouter la possibilité de clické sur un controle "VB.Image" créé par ligne de code (en rouge ci après), pour lui faire changer d'image, comme dans le jeux "Jardin des fleurs" de Prizee:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Option Explicit Dim oControl As Object Dim i, X, Y As Integer Dim Taille As Integer Public Sub Initialisation() Taille = 15 X = 0 Y = 0 End Sub Private Sub Form_Load() Call Initialisation For i = 1 To (Taille * Taille) Set oControl = Controls.Add("VB.Image", "Image" & i) oControl.Top = Y oControl.Left = X oControl.Visible = True oControl.Picture = LoadPicture("Bleu.gif") X = X + oControl.Width If X >= oControl.Width * Taille Then X = 0 Y = Y + oControl.Height End If Next End Sub

---

Merci!

Salut

La méthode la plus simple pour gérer les événements sans trop se casser la tête avec la création de gestionnaires d'événements, c'est de faire des copies d'un premier contrôle. Autrement dit, faire un tableau de contrôles. On les gères par leur propriété Index qui apparâit en paramètre dans toutes leurs procédures événementielles. Le défaut, c'est que leur nom n'est pas instructif puisqu'il faut les gérer avec leur Index.

Pour un contrôle créé de toute pièce par code, faudra faire des recherches dans l'aide avec les mots Event Handler. Désolée de ne pouvoir t'aider d'avantage.

Bonne chance.

ok merci bien.
cété pour éviter de créer 250 "VB.image", mais bon.... cé le moyen le plus pratique.

Bonjour,

Ta question ayant trouvée une réponse, je t'invite à tagger ton message avec le tag :resolu: que tu trouveras en bas de page...
Merci d'avance

Bon deja j'ai parcouru ton code et il est bon. Si le seul pb est au niveau de la declaration.

remplace ceci

Code:

---

Dim oControl As Object

---

Par ca

Code:

---

Dim WithEvents oControl As Vb.Image

---

Et la ca devrais marcher.