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

[DarkMolo]

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

Code VB.NET :

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

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 VB.NET :

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

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

[LaChips]

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 VB.NET :

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

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

C'est correct !

[Zyth]

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.

[Jiyuu]

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

[belocom]

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

Code :

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

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