Checkbox dynamique avec leur nom

TemplarVB Messages postés 14 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 4 juillet 2003 - 5 juin 2003 à 16:32
cs_paline Messages postés 4 Date d'inscription jeudi 5 juin 2003 Statut Membre Dernière intervention 1 mars 2004 - 5 juin 2003 à 18:29
Comme la plupart de ceux qui posent des questions sur le forum, je suis débutant en VB, et je cherche à créer des checkbox dynamiquement sur une feuille (environ 100 checkbox) et que leur nom donc le Caption soit modifié aussi, par exemple :
si je crée 3 checkbox dynamiquement que leur nom soit check1, check2 et check3 et que j'ai check1.caption "PC 1", Check2.caption "PC 2", ...

Pour la numérotation j'ai essayé par une boucle For mais pas moyen ca fonctionne pas, ma ligne ressemble a ca :

For i = 1 to 3
Check(i).caption = "PC " + Cstr(i)
next

mais le programme ne comprend pas check(i), est-ce que qq1 peut m'aider a avoir le bon code pour ke ca marche, j'ai pas envie de taper les 100 caption à la main ?

Si en plus apres il peut m'expliquer comment créer mais 100 checkbox dynamique c'est BONHEUR.

3 réponses

cs_fab82 Messages postés 13 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 11 juin 2003
5 juin 2003 à 16:41
si ça peut t'aider

load check(0)
for i=1 to 99
load check(i)
check(i).caption="PC" & i
next
0
cs_fab82 Messages postés 13 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 11 juin 2003
5 juin 2003 à 16:55
en fait g oublie certains trucs dsl
tu dois creer un checkbox au depart sur ta form, tu le places
et tu le mets soit visible ou pas comme tu le veux

dans ton code tu mets
for i=1 to 99(ou 100 si la 1ere est inisible)
load check(i)
check(i).top=check(i-1).top+840
ckeck(i).caption="PC" & i
check(i).visible=true
next

voilà je sais pas si c bien clair
0
cs_paline Messages postés 4 Date d'inscription jeudi 5 juin 2003 Statut Membre Dernière intervention 1 mars 2004
5 juin 2003 à 18:29
il faut d'abord créer manuellement (en mode edition de la form) le premier checkbox et mettre 0 (zéro) dans la propriété Index.
puis ajouter du code pour créer les suivant, par exemple :

Load Check1(1)
Load Check1(2)
Load Check1(3)
For i = 0 To 3
Check1(i).Visible = True
Check1(i).Caption = "ctr" + Format(i)
Check1(i).Top = i * 400
Next i
0
Rejoignez-nous