Décocher toutes les checkbox
Bonjour, actuellement en train de travailler sur une page aspx, je n'arrive pas à réaliser une méthode pour décocher toutes les checkbox de ma page.
J'ai pour le moment fait ceci mais sans succès : ( lors du débugage, les webcontrol ne sont pas pris en compte dans ma boucle )
Code pour vérifier si au moins une checkbox est cochée
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
' renvoie vrai si au moins une checkbox est cochée'
Private Function VerifAllCheckbox()
Dim result As Boolean
result = False
Dim i As Object
For Each i In Me.Controls
If TypeOf i Is CheckBox Then
If CType(i, CheckBox).Checked = True Then
result = True
End If
End If
Next
Return result
End Function |
Code pour décocher les checkbox
Code:
1 2 3 4 5 6 7 8 9 10 11 12
|
' décoche toutes les checkbox'
Private Sub Decocher()
Dim i As Object
For Each i In Me.Controls
If TypeOf i Is CheckBox Then
CType(i, CheckBox).Checked = False
End If
Next
End Sub |
Merci pour votre aide