paramétrage de CommandButton

Question

Salut,

Je voudrais faire une manip en VB6 en paramétrant CommandButton. j'ai essayé beaucoup de choses mais celà ne fonctionne pas, si quelqu'un a une solution , je suis preneur.

Voilà le problème :

J'ai quatre CommandButton (Cd1, Cd2, Cd3 et Cd4)

For x = 1 to 4
   
   Cdx.Caption = "ok"

Next x

Merci pour l'aide.

cs_DARKSIDIOUS · Answer

Il faut faire un groupe de contrôle : nomme tout tes contrôles Cd, et attribue leurs un numéro d'index différents. Et ensuite :

For each x in Cd

x.Caption = "ok"

Next x

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_liquide · Answer

les indexer n'est pas possible?
liquide

cs_anbou · Answer

merci pour la réponse.

mais débutant en VB6, Te serait-il possible de me faire un petit code pour créer un groupe de contrôle et créer leur numéro d'index.

merci encore

anbou.

cs_DARKSIDIOUS · Answer

Et bien tu crée un premier contrôle CommandButton nommé Cd avec la propriété Index à "0", puis tu fait un copier coller de ce contrôle 3 fois en validant "Voulez vous créer un groupe de contrôle ?".

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_azerty25 · Answer

Tu peux aussi faire ça, ça prend tout les bouttons de la form :
Dim CommandButton As CommandButton
For Each CommandButton In Me
CommandButton.Caption = "ok"
Next CommandButton

Pour en exclure, tu peux faire comme ceci : 
Dim CommandButton As CommandButton
For Each CommandButton In Me
If CommandButton.Name <> "CD4" Then CommandButton.Caption = "ok"
Next CommandButton

 @Z3RtY25 ==

cs_DARKSIDIOUS · Answer

azerty : ta méthode est bonne s'il veut modifier tout les bouton de la feuille, mais devient très barbante s'il veux modifier uniquement les CD4 et non les 15 autres boutons par exemple...

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_azerty25 · Answer

Je sais mais je l'ai dit au cas ou ;)

 @Z3RtY25 ==

Paramétrage de CommandButton

7 réponses

Discussions similaires