[VB6] creation et gestion de contrôle dynamique

Version imprimable

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:

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]

Code:

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

16/04/2003, 09h57
olivierx

Merci bidou, ça marche.

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).
16/04/2003, 10h04
olivierx

suite de ma grande question

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.).
16/04/2003, 10h07
bidou

dans mon exemple tu gères l'évènement click de la grille créée dynamiquement
16/04/2003, 10h11
olivierx

Ton tutorial c'est le quel ?
Je n'est pas trouvé d'auteur "bidou" dans les tutoriaux. :-)
16/04/2003, 10h14
Nightfall

C'est une blague ? Bidou te parle de son post dans ce même thread !
16/04/2003, 10h18
olivierx

Je sais mais, mais je ne sait pas quel est sont tutorial qui traite de ce sujet. Désolé.
16/04/2003, 11h04
olivierx

oups :?

Oups pardon à Nightfall et bidou. J'avais pas vue la fin du code que tu m'avais fais bidou. :?
16/04/2003, 11h27
Nightfall

Tu peux rajouter "[Résolu]" au début du titre du sujet (en éditant le premier message) s'il te plait.
16/04/2003, 11h52
olivierx

suite et bientôt fin
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:

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]
16/04/2003, 13h07
bidou

non
ca peut se faire en vba mais pas en vb
16/04/2003, 13h55
olivierx

merci bidou

Je n'est plus de question

J'ai fait ca ...

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
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