Goupe de controle boutonRésolu

Question

Bonjour tout le monde,

Voila j'essaye de creer des bouton dynamiquement en fonction de mot entrer dans un fichier texte, donc j'ai creer une requette qui lit dans mon fichier text. et quand il trouve un mot je voudrai qu'il creer un bouton qui appartin a un groupe de controle.

voici mon script:
    
ajout_bouton = 0

While Not EOF(1)    'Scrute mon fichier text
        Line Input #1, sLineout 'enregstre le mot dans sLineout
        Set Com_bout = Controls.Add("VB.CommandButton", "Command1") 'je defini mon bouton
        With Com_bout 'je lui passe les variables
           .Name = Command1
           .Left = 100
           .Top = 500 * ajout_bouton
           .Caption = sLineout 'le text du bouton egale au mot trouver dans mon fichier text
           .Index = ajout_bouton 'la je passe l'index de Goupe de controle
           .Visible = True
        End With
        ajout_bouton = ajout_bouton + 1 'et la j'ajoute 1 pour l'index suivant
Wend

et ca ca me paressé logique mais pas pour VB6 il me sort:
"La propriété 'index' ne peut être definie au moment de l'exécution"

Can you help me?? please

Dkvince

jrivet · Accepted Answer

Salut,

Il faut que tu ai au moins un Bouton sur ta feuille possédant la propriété Index à 0

Ensuite tu pourras modifier ta boucle ainsi (le bouton s'appelle Command1)

Dim Ajout_Bouton As Integer 
Ajout_Bouton =  1 
While Not  EOF (1)     'Scrute mon fichier text
    Line Input #1, sLineout  'enregstre le mot dans sLineout
    'Charge le nouveau bouton
    Call Load(Command1(Ajout_Bouton)) 
    With Command1(Ajout_Bouton)  'je lui passe les variables
        .Left  = 100 
        .Top = 500 * Ajout_Bouton 
        .Caption = sLineout  'le text du bouton egale au mot trouver dans mon fichier text
        .Visible = True 
    End With 
    Ajout_Bouton = Ajout_Bouton + 1  'et la j'ajoute 1 pour l'index suivant
Wend 

@+: Ju£i?n
Pensez: Réponse acceptée

dkvince · Answer

OK merci beaucoup
ca marche impecable
dkvince

Goupe de controle bouton

2 réponses

Votre réponse

Discussions similaires