Discussion :

[NooD]

Bonjour à tous,

Quand je réinitialise une fenêtre, j'aimerais que le bouton radio par défaut soit coché.
L'affichage de la fenêtre appelle une fonction : Init()
Cette fonction remet tous les champs à vide.

Le programmeur choisit un bouton radio par défaut. J'aimerais que, même s'il choisit un autre bouton radio par défaut, au moment de la réinitialisation (Init()) le programme coche le bon bouton radio.

Voici la méthode utilisée actuellement :

Code :

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

1
2
3
4
5
6
7
8
Private Sub FrmIdent_Load( ... )
        For Each x In GrCiv.Controls
            x.Text = tciv(i)
            i += 1
            If x.Checked Then Click_Civ(x, e)
            x.Tag = x.Checked
        Next
End Sub

' les boutons radio se trouvent dans un GroupBox : GrCiv

Code :

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

1
2
3
4
5
6
Sub Init()
        Dim x As RadioButton
        For Each x In GrCiv.Controls
            x.Checked = x.Tag
        Next
End Sub

J'ai pensé à faire comme ça mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
Sub Init()
        Dim i As Integer
        i = GrCiv.Tag
        GrCiv.Controls(i).checked = true
End Sub

En clair, j'aimerais me passer de la boucle et utiliser directement le Tag de GrCiv.

Merci d'avance.

[BassBeat]

GrCiv.Tag contient-il la bonne valeur, au démarrage du formulaire ?