Tout cocher/Tout décocher checkbox avec button

Version imprimable

16/11/2013, 18h22
jeremyvb11

Tout cocher/Tout décocher checkbox avec button

Bonsoir à tous,

Comme mon titre l'indique je n'arrive pas à trouver comment faire pour gérer mes checkbox dans ma form par 2 buttons "Tout cocher" et "Tout décocher"

Lorsque je cliquerai sur "tout cocher" je souhaites que toutes mes checkbox soient à checkbox.checked= True et inversement pour l'autre bouton....

Cela est-il possible ??

Merci pour votre future aide :zoubi:
16/11/2013, 20h47
MABROUKI

bonjour

Ou est ton code? comment sont disposes tes checkeboxes ?comment les as-tu semes .A tout vent...
Un code peut aider à la reponse...
23/11/2013, 10h13
altahir007

Je fesai ça sous delphi a l'époque en cherchant tout les composant de type checkbox de ma form (boucle sur tout les composants), et si j'en trouvai un je validai sa propriété checked à true.

Maintenant je ne l'ai jamais fait en VB.NET mais ça doit fonctionner de la même façon?

Bonjour,

Désolé pour la réponse tardive j'étais en déplacement.
Et bien j'ai un panel avec une trentaine de checkbox et je souhaitais savoir si il est possible de tous les activé ou non avec 2 buttons différent.
A ce jours je n'ai toujours pas trouvé de solution.

a l'heure actuel j'ai tapé chaque élément pout tous les cocher exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub BarButtonItem2_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick 'Tout cocher CheckBox1.Checked = True CheckBox2.Checked = True CheckBox3.Checked = True CheckBox4.Checked = True CheckBox8.Checked = True CheckBox7.Checked = True CheckBox6.Checked = True End sub

bonjour jeremy

Meme avec un centaine peu importe ...
Le code qui suit les recenses tout meme s'ils sont eparpilles dans un meme form sur plusieurs panels (Panel,groupbox,tabcontrol et que sais-je ...et leur numeros droppes dans le desorde) et les mets dans la "forriere" listeChks..

2 boutons les geres :
-btnCheckAll
-btnUnCheckAll
Un listbox à des fins de demonstration a ete ajoute au form...pour voir

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
55
56
 
Public Class Form1
    Private listeChks As New List(Of CheckBox)
    Public Sub New()
 
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
 
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'LA RECHERCHE COMMENCE PAR LE PERE : à tout seigneur tout honneur 
        Dim ctl As Control = Me.GetNextControl(Me, True)
        'Get the first control in the tab order.        
        Do Until ctl Is Nothing
            'Use ctl here.             
            ctl = Me.GetNextControl(ctl, True)
            If TypeOf (ctl) Is CheckBox Then
                listeChks.Add(CType(ctl, CheckBox))
            End If
            'Get the next control in the tab order.
        Loop
 
        'AFFICHAGE DEMONSTRATION
        ListBox1.DataSource = listeChks
        ListBox1.DisplayMember = "Checked"
    End Sub
 
 
 
    Private Sub btnCheckAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckAll.Click
        ListBox1.DataSource = Nothing
        listeChks.ForEach(AddressOf CheckUncheck)
 
        'AFFICHAGE DEMONSTRATION
        ListBox1.DataSource = listeChks
        ListBox1.DisplayMember = "Checked"
        ListBox1.Refresh()
    End Sub
 
 
    Private Sub btnUnCheckAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnCheckAll.Click
        ListBox1.DataSource = Nothing
        listeChks.ForEach(AddressOf CheckUncheck)
 
        'AFFICHAGE DEMONSTRATION
        ListBox1.DataSource = listeChks
        ListBox1.DisplayMember = "Checked"
        ListBox1.Refresh()
    End Sub
    Shared Sub CheckUncheck(ByVal item As CheckBox)
        item.Checked = Not item.Checked
    End Sub
 
End Class

bon code.......

23/11/2013, 22h31
MABROUKI

re

Oups !
Au fait tu peux utiliser un seul bouton car il fait "bscule"...voila...
24/11/2013, 15h41
jeremyvb11

Merci pour ton aide je vais essayer de creuser sur ce bout de code ;):ccool:
Merci beaucoup !