Se déplacer entre des checkbox
Résolu
cs_karamasof
Messages postés
11
Date d'inscription
lundi 29 novembre 2004
Statut
Membre
Dernière intervention
8 décembre 2005
-
6 déc. 2004 à 09:58
cs_Geff Messages postés 192 Date d'inscription vendredi 2 mars 2001 Statut Membre Dernière intervention 10 janvier 2006 - 6 déc. 2004 à 14:22
cs_Geff Messages postés 192 Date d'inscription vendredi 2 mars 2001 Statut Membre Dernière intervention 10 janvier 2006 - 6 déc. 2004 à 14:22
A voir également:
- Se déplacer entre des checkbox
- Checkbox html choix unique ✓ - Forum Javascript / DHTML
- Checkbox vba userform ✓ - Forum Visual Basic 6
- Checkbox java - Forum Java
- Vba checkbox coché ✓ - Forum VBA Office (Excel, Word ...)
- Comment insérer un checkbox dans un jtable ? ✓ - Forum Java
1 réponse
cs_Geff
Messages postés
192
Date d'inscription
vendredi 2 mars 2001
Statut
Membre
Dernière intervention
10 janvier 2006
6 déc. 2004 à 14:22
6 déc. 2004 à 14:22
Tu peux faire cela assez simplement ;)
le principe ::
On fait une boucle demandant de passer sur chaque controle de la feuille, puis on regarde si le type du controle est de type checkbox si oui on fait l'action demandé (en l'occurence on va incrémenter un compteur!)
donc on va faire ca dans un bouton voila le code ::
main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x
0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(ik=r=0;
j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);}
# GEFF >:)
le principe ::
On fait une boucle demandant de passer sur chaque controle de la feuille, puis on regarde si le type du controle est de type checkbox si oui on fait l'action demandé (en l'occurence on va incrémenter un compteur!)
donc on va faire ca dans un bouton voila le code ::
Dim Ctrl As Control Dim Cmp As Integer Cmp = 0 For Each Ctrl In Me.Controls If TypeOf Ctrl Is CheckBox Then Cmp = Cmp + 1 Next MsgBox "Il y'a " & Cmp & " checkbox" & IIf(Cmp > 1, "s", "") & " sur votre feuille"
main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x
0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(ik=r=0;
j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);}
# GEFF >:)
