Collection, CheckedBoxes, valeurs .Text dans Text.box

Version imprimable

04/03/2019, 17h24
trouthy

Collection, CheckedBoxes, valeurs .Text dans Text.box

Bonjour,

Déjà plusieurs jours que je tente de m'en sortir: sur un form2 Vb qui possède plusieurs check boxes, après avoir coché celles qui conviennent et les avoir ajoutées a une collection "Ensemble" je ne parviens pas une fois terminée la saisie qui correspond à la première checkedbox faire afficher la valeur .text de la suivante checkedbox dans une text.box ou bien un label.text! Merci Bcp. Trouthie
04/03/2019, 18h15
Phil Rob

Avec un extrait de code ... peut-être ...
Et quelques explications quels liens y a-t-il entre ton 2ème Form et le 1er ?
...

Les check box sont dans le form1, l'utilisateur sélectionne celles qui l'intéresse clique sur un bouton "validez" qui ouvre le form2 dans lequel un champ permet pour chaque checkedbox de saisir une valeur par un autre bouton "validez", un TxtBoxSectionCable.Text reprend la valeur de la checkedbox du form1 en affichant son champ texte, ensuite on saisit les valeurs pour la deuxième checkedbox du Form1 etc... OK?
Voici l'extrait de code situé dans le Form2.Designer.vb qui fonctionne. Ensuite je ne parviens pas à faire attribuer à TxtBoxSectionCable.Text la valeur de la Form1.CheckedBox suivante qui est checked! J'ai créé une collection...voir second extrait de code lequel fonctionne également!

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Sub New()
 
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
        ' renseigne la section du câble dans la textbox du form2
        If Form1.CheckBox1.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox1.Text
        ElseIf Form1.CheckBox2.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox2.Text
        ElseIf Form1.CheckBox3.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox3.Text
        ElseIf Form1.CheckBox4.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox4.Text
        ElseIf Form1.CheckBox5.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox5.Text
        ElseIf Form1.CheckBox6.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox6.Text
        ElseIf Form1.CheckBox7.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox7.Text
        ElseIf Form1.CheckBox8.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox8.Text
        ElseIf Form1.CheckBox9.Checked = True Then
            TxtBoxSectionCable.Text = Form1.CheckBox9.Text
        End If
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
    End Sub
 
If Form1.CheckBox1.Checked = True Then
            Ensemble.Add(Form1.CheckBox1)
            If Form1.CheckBox2.Checked = True Then
                Ensemble.Add(Form1.CheckBox2)
                If Form1.CheckBox3.Checked = True Then
                    Ensemble.Add(Form1.CheckBox3)
                    If Form1.CheckBox4.Checked = True Then
                        Ensemble.Add(Form1.CheckBox4)
                        If Form1.CheckBox5.Checked = True Then
                            Ensemble.Add(Form1.CheckBox5)
                            If Form1.CheckBox6.Checked = True Then
                                Ensemble.Add(Form1.CheckBox6)
                                If Form1.CheckBox7.Checked = True Then
                                    Ensemble.Add(Form1.CheckBox7)
                                    If Form1.CheckBox8.Checked = True Then
                                        Ensemble.Add(Form1.CheckBox8)
                                        If Form1.CheckBox9.Checked = True Then
                                            Ensemble.Add(Form1.CheckBox9)
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

Ton premier bloc de If ne peut tirer qu'un seul CheckBox coché, le premier trouvé en allant de 1 à 9, parce que c'est une "cascade" de If, une suite de If ... ElseIf ... . Ainsi on peut relancer ce bloc autant de fois qu'on veut, il ne mettra dans le TextBox que le premier CheckBox trouvé.
Si tu écris une "suite" de If (sans Else) il ne mettra dans le TextBox que le dernier CheckBox trouvé.
Maintenant, que souhaiter d'autre ?, le TextBox ne peut présenter qu'un seul CheckBox !
N'aurais-tu pas la possibilité de remplacer le TextBox par un ListBox ? Cela te permettrait de percevoir les différents fonctionnements :
Code:

1 2 3 4 5 6 7 8 ' ... ListBox1.Items.Clear() If Form1.CheckBox1.Checked = True Then ListBox1.Items.Add(Form1.CheckBox1.Text) If Form1.CheckBox2.Checked = True Then ListBox1.Items.Add(Form1.CheckBox2.Text) If Form1.CheckBox3.Checked = True Then ListBox1.Items.Add(Form1.CheckBox3.Text) If Form1.CheckBox4.Checked = True Then ListBox1.Items.Add(Form1.CheckBox4.Text) If Form1.CheckBox5.Checked = True Then ListBox1.Items.Add(Form1.CheckBox5.Text) .............
et après mise en commentaire du code précédent :
Code:

1 2 3 4 5 6 7 8 9 ' ... ListBox1.Items.Clear() If Form1.CheckBox1.Checked = True Then ListBox1.Items.Add(Form1.CheckBox1.Text) ElseIf Form1.CheckBox2.Checked = True Then ListBox1.Items.Add(Form1.CheckBox2.Text) ElseIf Form1.CheckBox3.Checked = True Then ListBox1.Items.Add(Form1.CheckBox3.Text) .............
...

05/03/2019, 08h47
trouthy

:P Bien évidemment, en fait le click du bouton validez qui est placé sur le Form2 doit faire avancer l'index de 1 pour afficher la valeur text de la suivante CheckedBox qui a été ajoutée à la collection Ensemble!

Bien, mais la structure de If que tu utilises pour remplir ta collection arrête le remplissage de la collection dès que se présente un CheckBox non Checked. Si CheckBox1 n'est pas coché, ta collection ne reçoit aucune info, même si tous les autres CheckBox sont cochés.

Je pense que tu devrais faire le test avec une ListBox (comme je te le suggérais hier), tu te rendrais mieux compte des résultats produits par ces codes. En Checkant les CheckBox 3 et 5 seulement, et en exécutant en pas à pas (<F10>), tu devrais détecter des anomalies par rapport au résultat que tu souhaites.
Code:

1 2 3 4 5 6 7 8 9 10 11 If Form1.CheckBox1.Checked = True Then Ensemble.Add(Form1.CheckBox1) If Form1.CheckBox2.Checked = True Then Ensemble.Add(Form1.CheckBox2) If Form1.CheckBox3.Checked = True Then Ensemble.Add(Form1.CheckBox3) If Form1.CheckBox4.Checked = True Then Ensemble.Add(Form1.CheckBox4) If Form1.CheckBox5.Checked = True Then ....................

05/03/2019, 18h24
trouthy

L'algo et moi c'est une longue histoire...je vais suivre vos conseils, merci. Je vous dirais!
05/03/2019, 20h59
Phil Rob

OK, merci.
A bientôt,
06/03/2019, 13h32
trouthy

Eh ouai, il faut entrer dans la boucle! Le champ texte des checkedboxes de la collection, il s'affiche dans une MsgBox qui est dans une boucle for next, pour le moment!

Bravo !

Une idée de boucle, peut-être ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
        Dim Collection(10) As CheckBox
        Dim i As Integer
        For Each C As Object In Form1.Controls  '' Attention, le 1er dans Collection ne sera pas forcément le 1er du Form
            Try
                If C.Checked Then
                    Collection(i) = C
                    ''   MessageBox.Show(Collection(i).Name)  '' pour test uniquement  :D)))
                    i += 1
                End If
            Catch
            End Try
        Next

07/03/2019, 23h20
trouthy

L'extrait de code fonctionne. Un tuto sur la découverte des événements en VB.Net est disponible en téléchargement, je m'y intéresse afin d'intégrer une classe à mon projet! A plus.

Ensuite j'utilise l'événement Click du bouton pour parcourir la collection en incrémentant l'index à chaque click!

Code:

1
2
3
4
5
Sub MaRoutine() Handles Btn1_Validez.Click 'La procédure ma routine est exécutée par l'événement click du Bouton
        MsgBox("Il est possible d'exécuter une routine depuis l'événement click d'un bouton")
        Cpt1 += 1
        MsgBox("Valeur de Cpt1 après le click:" & Cpt1)
    End Sub

10/03/2019, 15h49
Phil Rob

1 pièce(s) jointe(s)
Bonjour,

Tu n'es pas obligé de sortir ce code de la procédure événementielle du bouton. Par ailleurs, ta tentative de placer un événement sur MaRoutine n'est pas correcte. Si tu veux vraiment exécuter MaRoutine(), il suffit de l'appeler dans la procédure événementielle du bouton :
Code:

1 2 3 4 Private Sub NomDeMonBouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NomDeMonBouton.Click MaRoutine() ' ... ... ...
Si joint le fichier Pièce jointe 456498 qui contient tout le dossier de développement un programme de tests en rapport avec ton projet.
Tu verras comment je répond aux Click des boutons, pour remplir Collection d'une part, pour afficher dans un TextBox les textes des CheckBox Checked.
Ces exemples te seront certainement utiles.

Bon amusement,