automatisation de la création de contrôle

**pikafafe** · 24/04/2007, 16h51

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

**zazaraignée** · 25/04/2007, 14h11

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.