Simplification de code

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

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

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 :)

ou tu peux utiliser ca :

Code:

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

Bonne chance ;)

Citation:
Envoyé par arhamza85
ou tu peux utiliser ca :
Code:

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...

ah oui,

donc il doit parcourir grace a une boucle
Code:

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.

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

Salut,
Si ce code ne te pose pas de problème(Notamment les Else que j'ai ajouté):
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim bw, bw2 As Boolean If CheckBox1.Checked Then bw = True Else bw = False End If If CheckBox2.Checked Then bw2 = True Else bw2 = False End If
Alors, ça peut se simlplifier avec:
Code:

1 2 bw = CheckBox1.Checked bw2 = CheckBox2.Checked

Citation:
Envoyé par DarkMolo
Salut,
Si ce code ne te pose pas de problème(Notamment les Else que j'ai ajouté):

Alors, ça peut se simlplifier avec:
Code:

1 2 bw = CheckBox1.Checked bw2 = CheckBox2.Checked
C'est correct ! :yaisse2:

Ditch a la meilleure solution surtout au niveau flexibilité. S'il se retrouve avec plus de checkbox, ça ne l'obligera pas à entrer une nouvelle ligne à chaque fois.

A l'ATT de DarkMolo

Alors ça c'est que j'appel du bon boulot. Question simplification aujourd'hui à mon niveau on peut pas faire mieux.

Merci à tous les autres. Je garde vos conseils pour les ressortir quand je serai un peu plus à l'aise.

Pour l'info je cherche aussi à recopier la valeur d'une LISTBOX dans un fichier texte et à la relire par la suite....
Si quelqu'un veut bien m'aider, c'est sans problème...

DarkMolo, si tu as une idée aussi brillante de gêne pas...

Bonjour, c'était un très bon exercice pour moi ! Une solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Class Form1
    Public nl As Integer = 0    ' Nombre de lignes dans le fichier
    Public nomfic As String = "Fic.txt"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            FileOpen(1, nomfic, OpenMode.Input)
            Do Until EOF(1) ' Jusqu'à la fin du fichier
                ListBox1.Items.Add(LineInput(1))
                nl = nl + 1
            Loop
        Catch ex As Exception
            MsgBox("Fichier absent ou en erreur : " & ex.ToString)
        Finally
            FileClose(1)
            Label1.Text = nl.ToString & " lignes lues"
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        Try
            FileOpen(1, nomfic, OpenMode.Append)
            PrintLine(1, TextBox1.Text)
            nl = nl + 1
            Label1.Text = nl.ToString & " lignes"
            TextBox1.Text = " "
        Catch ex As Exception
            MsgBox("Fichier absent ou en erreur : " & ex.ToString)
        Finally
            FileClose(1)
        End Try
    End Sub
End Class