Discussion :

[olivierx]

Je travaille actuellement en VB 6.

Je sait créer ,de façon dynamique, des contrôles. Je peux les créer et les manipuler

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim WithEvents lblDynamique As VB.Label
Dim WithEvents frmDynamique As VB.Frame
Dim WithEvents vcbDynamique As VB.VScrollBar
Dim WithEvents flgDynamique As MSFlexGrid
 
Set lblDynamique = formMe.Controls.Add("VB.Label", "lblNom", objOu)    
lblDynamique.Caption = ChampNom
lblDynamique.BackStyle = 0
lblDynamique.Left = xLabel
lblDynamique.Top = HauteurLabel * 1.65 * i + 100 + 20
lblDynamique.Width = LargeurLabel
lblDynamique.Height = HauteurLabel
lblDynamique.Visible = True

Mais ce que je n’arrive pas à faire c’est :

- créer des des contrôles de type flexgride (même si je les est référencé) : Set frmDynamique = formMe.Controls.Add(MSFlexGrid, "flgNom", formMe) ‘ ne marche pas car ne reconnaît pas ProgId de MSFlexGrid

- géré les événement de mes contrôles créé à l’exécution.

Je veux éviter la solution consistant à faire une collection de contrôle avec un index avant l’exécution de mon programme.

Merci par avance.

[Edité par Nightfall]
[Balise Code ajoutée]

[bidou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim WithEvents flgDynamique As MSFlexGridLib.MSFlexGrid
Private Sub Command1_Click()
 
Set flgDynamique = Me.Controls.Add("MsFlexGridLib.MsFlexGrid", "magrille")
flgDynamique.Visible = True
 
End Sub
 
Private Sub flgDynamique_Click()
    MsgBox "toto"
End Sub

[olivierx]

D'abord un grand merci à bidou, car je vient de tester ce qu'il me propose et ça marche parfaitemant. Merci bidou.
Si vous crée dynamiquement un contrôle qui utilise un controle ActiviX (comme la flexgrid ici) que ce contrôle n'est utilisé nule part dans le projet il faut : Désactivez "supprimer les informations sur les contrôles ActifeX inutilisés" dans la boîte de dialogue Propriétés du projet, onglé Créer (menu Projet).

[olivierx]

J'ai toujours la seconde partie de ma question qui reste sans réponse.
"Comment recevoir et gérer les événements de contrôle créé de façon dynamique ?"
Je pressise que je ne peux pas créer une "collection" de controle de même nom en utilisant la propriété index (ex : je crée dans ma from au dévelopement label(0), puis je crée de facon dynamique label(1) label(2) ... ; Je ne peux pas utiliser cette solution.).

[bidou]

dans mon exemple tu gères l'évènement click de la grille créée dynamiquement

[olivierx]

Ton tutorial c'est le quel ?
Je n'est pas trouvé d'auteur "bidou" dans les tutoriaux. :-)

[Nightfall]

C'est une blague ? Bidou te parle de son post dans ce même thread !

[olivierx]

Je sais mais, mais je ne sait pas quel est sont tutorial qui traite de ce sujet. Désolé.

[olivierx]

Oups pardon à Nightfall et bidou. J'avais pas vue la fin du code que tu m'avais fais bidou.

[Nightfall]

Tu peux rajouter "[Résolu]" au début du titre du sujet (en éditant le premier message) s'il te plait.

[olivierx]

Avant d'ajouter résolu une derniére question sur ce sujet.

Peux t'on créer de façon dynamique la sub qui attend mon évenement ?
C'est cette sub que je veux creer de façon dynamique :

Code :

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

1
2
3
4
 
Private Sub flgDynamique_Click() 
    MsgBox "toto" 
End Sub

Peut t'on créer un écouteur (qui attend les éventments) pour tous les contrôle dynamique les géré ensuites ?[/code]

[bidou]

non
ca peut se faire en vba mais pas en vb

[olivierx]

merci bidou

Je n'est plus de question

[oazar]

J'ai fait ca ...

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
29
30
31
32
33
34
35
36
37
Public WithEvents Label As VB.Label
 
Public Sub creationCase(Ligne As Integer, Colonne As Integer)
 
    Dim NameLbl As String
 
    NameLbl = "lbl_" & Ligne & "_" & Colonne
 
 
    Set Label = frmIndex.Controls.Add("vb.label", NameLbl)
    With frmIndex.Controls.Item(NameLbl)
        .Left = 350 * (Colonne - 1)
        .Top = 700 + (350 * Ligne)
        .Width = 350
        .Height = 350
        .Visible = True
        .Caption = ""
        .BackColor = &HE0E0E0
        .BorderStyle = 1
        .Appearance = 0
    End With
 
End Sub
 
Public Sub creationGrille(nbLigne As Integer, nbColonne As Integer)
    Dim i As Integer
    Dim j As Integer
    For i = 1 To nbLigne
        For j = 1 To nbColonne
            Call creationCase(i, j)
        Next j
    Next i
End Sub
 
Private Sub Label_Click()
    MsgBox "toto"
End Sub

Ca marche quand je créé qu'un controle ... mais sinon, Non...

Vous connaisseriez pas une solution ?!

Merci bien