Checkboxes en VB : Comment tout cocher ?

Version imprimable

Bonjour,

Je recherche un moyen de cocher plusieurs checkbox d'un seul coup.

J'ai un Datagrid avec une colonne de checkbox ainsi qu'une checkbox dans le titre de la colonne.

Je souhaite faire en sorte que si je clique sur la checkbox dans le titre toutes les checkbox de la colonne se cochent.

J'ai fait des recherches mais tout ce que je trouve fait appel au Javascript.

Y a t-il un moyen de passer par le VB ?

Voici le code de la colonne de mon Datagrid en question:
Code:

1 2 3 4 5 6 7 8 9 10 <asp:TemplateColumn SortExpression="Generation" HeaderText="&nbsp&nbspEffectuer Génération&nbsp&nbsp"> <ItemStyle Wrap="False" HorizontalAlign="Center"></ItemStyle> <headertemplate> <asp:checkbox id="CheckAll" runat="server" text="Tout Sélectionner"></asp:checkbox> </headertemplate> <ItemTemplate> <asp:checkbox id="Check" runat="server" Align = "center"> </asp:checkbox> </ItemTemplate> </asp:TemplateColumn>

Pas très difficile, tu fais une boucle pour cocher toute tes checkbox !

Code:

1
2
3
4
5
6
7
8
 Private Sub cocher()
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is CheckBox Then
                Dim c As CheckBox = CType(ctrl, CheckBox)
                c.Checked = True
            End If
        Next
    End Sub

Ok ta boucle m'aide déjà beaucoup.

Par contre ce que je n'arrive pas à faire c'est définir le Handles On

Voici ma fonction :

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
Private Sub cocher(ByVal sender As Object, ByVal e As EventArgs) Handles CheckAll.CheckedChanged  ????
            Dim items As DataGridItem
            Dim items2 As DataGridItem
            Dim chkItem As System.Web.UI.WebControls.CheckBox
            Dim chkItem2 As System.Web.UI.WebControls.CheckBox
 
 
            For Each items In dgdListeFicheMensuelle.Items
                chkItem = CType(items.FindControl("CheckAll"), System.Web.UI.WebControls.CheckBox)
 
                If chkItem.Checked = True Then
                    For Each items2 In dgdListeFicheMensuelle.Items
                        chkItem2 = CType(items.FindControl("CheckAll"), System.Web.UI.WebControls.CheckBox)
                        chkItem2.Checked = True
 
                    Next items2
 
                End If
 
                If chkItem.Checked = False Then
                    For Each items2 In dgdListeFicheMensuelle.Items
                        chkItem2 = CType(items.FindControl("CheckAll"), System.Web.UI.WebControls.CheckBox)
                        chkItem2.Checked = True
 
                    Next items2
 
                End If
 
            Next items
 
        End Sub

En effet ma checkbox avec l'id "CheckAll" est dans l'entête de mon datagrid et donc quand je fais un handles on dessus et que je compile pas à pas je ne rentre jamais dans ma fonction cocher(). Comment faire ?

Voici mon code du point de vue HTML:

Code:

1
2
3
4
5
6
7
8
9
10
<asp:TemplateColumn SortExpression="Generation" HeaderText="&nbsp&nbspEffectuer Génération&nbsp&nbsp">
										<ItemStyle Wrap="False" HorizontalAlign="Center"></ItemStyle>
										<headertemplate>
											<asp:checkbox id="CheckAll" runat="server" text="Tout Sélectionner" AutoPostBack = "True"></asp:checkbox>
										</headertemplate>
										<ItemTemplate>										
											<asp:checkbox id="Check" runat="server" Align = "center">
											</asp:checkbox>
										</ItemTemplate>
									</asp:TemplateColumn>

Merci d'avance.

09/06/2008, 09h26
chrislcf

Petite modif c'est des "check" et non pas des "checkall" dans les deux boucles
09/06/2008, 12h42
Aspic

Mais tu es en asp.net ? Si c'est le cas ce n'est pas le bon Forum !
09/06/2008, 13h32
chrislcf

Ok mais je post où mon msg ?

Car sur le forum ASP il faut soit disant poster dans le forum .NET pour tout ce qui concerne l'aspx.....

En tout cas mieux vaut passer par le Javascript

Voici mon code :

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
57
58
59
60
61
62
63
64
65
66
67
68
69
function CheckAllDataGridCheckBoxes()
        {                   
				//list des input dans un conteneur précis
				var listInput = document.Form1.document.getElementById("dgdListeFicheMensuelle").getElementsByTagName("input");
				var n = listInput.length;
				var i;
 
 
                if (document.getElementById('dgdListeFicheMensuelle__ctl1_CheckAll').checked == true)
                {
					//alert('ca passe');
 
					for (i=0; i<n; i++)
						{
							//on ne garde que les checkbox
							if (listInput[i].type.toLowerCase()=="checkbox")
								{
									//alert('ca passe');
									listInput[i].checked = true;
 
								}
						}
 
                }
 
                if (document.getElementById('dgdListeFicheMensuelle__ctl1_CheckAll').checked == false)
                {
					//alert('ca passe');
 
					for (i=0; i<n; i++)
						{
							//on ne garde que les checkbox
							if (listInput[i].type.toLowerCase()=="checkbox")
								{
									//alert('ca passe');
									listInput[i].checked = false;
 
								}
						}
 
                }               
 
        }
 
        function DecocherCheckAll()
        {
			//list des input dans un conteneur précis
 
				var i;
				var debut_id = "dgdListeFicheMensuelle__ctl";
				var fin_id = "_Check";
				var listInput = document.Form1.document.getElementById("dgdListeFicheMensuelle").getElementsByTagName("input");
				var n = listInput.length;
 
				for (i=1; i<n; i++)
						{
							//on ne garde que les checkbox
 
									if (listInput[i].type.toLowerCase()=="checkbox")
									{
									if (listInput[i].checked == false)
									document.getElementById('dgdListeFicheMensuelle__ctl1_CheckAll').checked = false;
									}
 
 
						}
 
 
        }