Discussion :

[stracoma]

Bonsoir à vous. J'ai besoin de l'aide de la communauté. Voilà mon problème:
J'ai Form1 qui contient 10 GroupBox. Dans chaque GroupBox il y a 3 RadioButton. J'ai aussi un Button qui retourne un résultat dans un Label selon les RadioButton sélectionnés. Jusque ici tout va bien. Mais comment faire pour désélectionner tous les RadioButton (avec un Button "RAZ") pour revenir au début du programme?
Merci

[Sankasssss]

bonsoir,

une petite fonction récursive permet de faire cela :

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
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        resetChecked(Me)
 
    End Sub
 
    Private Sub resetChecked(ByVal cont As Control)
        If TypeOf (cont) Is RadioButton Then
            CType(cont, RadioButton).Checked = False
 
        ElseIf TypeOf (cont) Is GroupBox Or TypeOf (cont) Is Panel Or TypeOf (cont) Is Form Then
 
            For Each elem In cont.Controls
                resetChecked(elem)
            Next
 
 
        End If
    End Sub
 
End Class

Bonne nuit,

[rv26t]

Bonjour,

Une variante en ciblant sur les types de contrôles. (et le besoin exprimé)

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ResetRadioBouton(Me)
    End Sub
    Sub ResetRadioBouton(ByVal conteneur As Control)
        For Each gb In conteneur.Controls.OfType(Of GroupBox)()
            For Each rdb In gb.Controls.OfType(Of RadioButton)()
                rdb.Checked = False
            Next
        Next
    End Sub

On pourrait bien sur la rendre récursive.

[stracoma]

Merci à vous bcp
J'ai fait un copier/coller et ça marche. Mais il m'a fallu 2h pour le comprendre (après, c'est la migraine). Mais il y a une chose qui me tracasse, puisque le "sub ResetRadioBouton" prend un type control comme paramètre , donc Me est un control?
Merci de votre aide

[clementmarcotte]

Bonjour,

Merci à vous bcp
donc Me est un control?
Merci de votre aide

Pas forcément, Me sert à désigner l'objet en cours, cela peut-être un contrôle, ou autre chose, dépendant du context

[rv26t]

Mais il y a une chose qui me tracasse, puisque le "sub ResetRadioBouton" prend un type control comme paramètre , donc Me est un control?

Dans l'exemple que j'ai donné, dans l'instruction ResetRadioBouton(Me), Me représente le Form, c'est donc un contrôle.
La méthode ResetRadioBoutonreçoit donc le form en paramètre et traite tous les GroupBox présent sur le form.

[stracoma]

Je trouve la remarque de rv26t logique et je l'ai bien assimilée.
par contre

Pas forcément, Me sert à désigner l'objet en cours, cela peut-être un contrôle, ou autre chose, dépendant du context

dans cette exemple précisément:

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ResetRadioBouton(Me)
    End Sub
    Sub ResetRadioBouton(ByVal conteneur As Control)
        For Each gb In conteneur.Controls.OfType(Of GroupBox)()
            For Each rdb In gb.Controls.OfType(Of RadioButton)()
                rdb.Checked = False
            Next
        Next
    End Sub

Me doit être forcément et obligatoirement être un contrôle, n'est ce pas Mr clementmarcotte?

[shayw]

Bonjour

comme tu ne peux pas te servir du nom de ta form dan la form meme on utilise me
ex écris
ResetRadioBouton(form1) au lieu de ResetRadioBouton(me) tu obtiens une erreur

[stracoma]

Ok. merci shayw