Discussion :

[Jiyuu]

Bonjour à tous,

J'ai un petit problème avec un code que j'aimerais simplifier.
La voici:

Dim bw, bw2 As Boolean
If CheckBox1.Checked Then
bw = True
End If
If CheckBox2.Checked Then
bw2 = True
End If

Je souhaite réduire le nombre de If...End if car j'ai environ une vingtaine de chekbox.

Je débute dans la programmation et j'arrive à me sortir de pas mal de problème, mais là je crois que j'ai le cerveau qui déconne.

Un pti coup de main serait le bienvenu.

merci

[Ditch]

Pour faire le tour de tes CheckBox, tu peux faire quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
' Déclaration d'un tableau ou d'une HashTable pour pouvoir stocker un ensemble key/valeur
 
Foreach c as Control In Me.Controls
If c Is CheckBox Then
   ' Tu mets dans le tableau genre 
   tab(i) = c.Checked 
End If
 Next

(attention, la syntaxe est certainement par correcte mais le principe oui)

J'espere que ca te mettra déjà sur la voie

[More]

ou tu peux utiliser ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim bw, bw2 As Boolean
        If CheckBox1.Checked Then
            bw = True
        Else
            bw2 = True
        End If

Bonne chance

[Ditch]

ou tu peux utiliser ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim bw, bw2 As Boolean
        If CheckBox1.Checked Then
            bw = True
        Else
            bw2 = True
        End If

Bonne chance

Il va lui en falloir de la chance...

Vérifies ce qu'il demande, tu verras que même pour 2 CheckBoxes, tu ne réponds pas à la demande...

[More]

ah oui,

donc il doit parcourir grace a une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 To Me.Controls.Count - 1
 
        Next

tous les checkbox et prendre les valeurs, c'est tres utile dans ce cas.

[Jiyuu]

Désolé mais je ne vois pas bien comment faire.
Quelqu'un peut-il me détailler un peu plus la méthode.

D'avance merci