Utiliser "Radiobutton.Checked" avec nom de variable

**Léa53** · 17/04/2009, 18h31

Bonjour à tous!

J'ai une looongue liste de radiobutton dans un questionnaire et je voudrais savoir lequel est sélectionné par l'utilisateur pour chaque question.

Pour cela j'ai crée une variable qui me donne le nom du radiobutton en fonction de sa ligne (Question) et de sa colonne(Réponse).
Par exemple le rdn1_3.text est sur la ligne 1 et colonne 3.
Ma variable( as string) est NomRdn = "rdn" & NumLineRdn & "_" & NumColRdn & ".text"

Pour savoir lesquels sont choisis j'ai fait des boucles for pour passer tous les radiobutton en revu et je teste à chaque fois : NomRdn .Checked=true

Mais ca ne marche pas, mon message d'erreur est
'Checked' is not a member of 'String'. (BC30456)

Question annexe : comment ne pas avoir de radiobutton choisi par défaut à l'affichage?

Merci

**Wapi_gui** · 20/04/2009, 10h38

Salut,

Pour ta question annexe : si tu fais une boucle dans ton FormLoad avec
RadioButton.Checked = False
ça ne marche pas ?

**Julien V** · 20/04/2009, 11h04

Bonjour,

Pour votre question annexe : dans votre formulaire, si vous choisissiez Checked = False pour chaque RadioButton alors aucun d'eux sera coché au démarrage de l'appli.

Pour l'erreur, vous cherchez à trouver le membre "Checked" de la variable NomRdn hors cette variable n'est pas un RadioButton mais un String !

N'est il pas possible de créer un tableau de RadioButton (d'autant de colonnes et de lignes que votre questionnaire), de le charger lors du Load ou du premier Activated puis de travailler sur ce tableau en indexant chaque cellule (donc chaque RadioButton) ?

Cordialement.

**Wapi_gui** · 20/04/2009, 12h12

Je ne comprends pas pourquoi tu dis qu'aucun d'eux sera décoché au lancement de l'appli... j'ai essayé chez moi (bon, il n'y en a que 3) et ça me déselectionne tous les RadioButton au démarrage.
Est-ce qu'il fait quelque chose à mon insu ?

**Julien V** · 20/04/2009, 15h38

Bonjour,

J'ai édité mon message pour modifier mon erreur ... autant pour moi !

Normalement quand vous choisissez l'état de démarrage d'un RadioButton (dans Checked de ses propriétés), alors c'est cet état qui sera utilisé au chargement de la fenêtre.

Cordialement.

**Wapi_gui** · 20/04/2009, 16h22

Donc, si Lea fait une boucle avec RadioButton.Checked = False
ça devrait fonctionner. Non ?
(Enfin, si j'ai bien compris ce que tu dis)

**Julien V** · 20/04/2009, 16h27

Absolument !

D'où l'intérêt de placer tous les RadioButon dans un tableau du même type, ça permet de faire des boucles et des indexations plus simplement.

Si le tableau est créé avec plusieurs colonnes et une multitude de lignes, que chaque cellule correspond à un RadioButon alors l'index de la colonne du tableau sera le même que celui du questionnaire (pareil pour la ligne...).

**Léa53** · 20/04/2009, 16h48

Je les ai déjà placés dans un tableau (à la base pour créer mon design), je les ai mis dans un TablelLayoutPanel.
Avec ça je peux faire une indexation en lignes et colonnes? Si oui, comment?
Parce que c'est vrai que ce serait bien pratique qu'en même!

Sinon pour la boucle, avec checked=False mon problème est le même, je n'arriverai pas à tous les passer en revu. Je crois que je vais être obliger de le faire un par un dans le Formdesigner...

**Julien V** · 20/04/2009, 17h12

Mon idée était de faire ça dans un tableau du genre :

Code :

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

1
2
3
4
5
6
7
8
9
Dim TableauRdn(100, 2) As RadioButton
 
TableauRdn(0, 0) = rdn0_0
TableauRdn(0, 1) = rdn0_1
TableauRdn(0, 2) = rdn0_2
TableauRdn(1, 0) = rdn1_0
TableauRdn(1, 1) = rdn1_1
TableauRdn(1, 2) = rdn1_2
TableauRdn(2, 0) = rdn2_0

Ensuite il suffit de gérer les index comme il faut selon votre code.

**Léa53** · 20/04/2009, 19h53

C'est vrai que l'idée est bonne. Seulement j'ai plus de 350 radio buttons...

**Wapi_gui** · 21/04/2009, 08h40

Peut-être pourrais-tu faire une boucle (je sais, j'aime bien les boucles) dans le genre :

Code :

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

1
2
3
4
5
For ligne = 0 to max ligne
   For colonne = 0 to max colonne
       TableauRdn(ligne, colonne) = rdnligne_colonne
   Next colonne
Next ligne

(Enfin, moi j'dis ça... je ne sais pas si ça pourrais marcher...)

**Julien V** · 21/04/2009, 09h52

Bonjour,

Comment sont placés vos RadioButton ?
Sont-ils tous dans le même TableLayoutPanel ?

Si c'est le cas alors il suffit d'utiliser la méthode :

Code :

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

1
2
3
4
5
6
7
8
9
        Dim TableauRdn(100, 2) As RadioButton
        Dim LigneColonne() As String
        Dim Chaine As String
        For Each rdb As RadioButton In TableLayoutPanel1.Controls
            ' attributation de chaque RadioButton dans le tableau
            Chaine = rdb.Name.Substring(3)
            LigneColonne = Chaine.Split("_")
            TableauRdn(LigneColonne(0), LigneColonne(1)) = rdb
        Next

Quelque soit leur place, leur position, il suffit que leur nom soit toujours construit de la même manière : commencer par "rdn" (ou trois lettres) puis par le numéro de la ligne puis "_" et finir par le numéro de la colonne.

TableauRdn devra avoir les dimensions adéquates pour recevoir les 350 RadioButton.

Ne pas oublier que le tableau commence par l'index 0 donc si vos RadioButton commencent par 1, ça donnera une dimension vide...

Cordialement.

**Léa53** · 21/04/2009, 14h50

Wapi_gi, c'est déjà ce que j'ai fait et c'est de là que vient mon problème de départ^^

Mes radiobuton sont en effet tous dans le même TableLayoutPanel que j'ai en fait utiliser comme un tableau classique, j'ai mis un radiobutton par case.
Je crois que je peux donc essayer votre solution. Mais je ne suis pas sûre d'avoir bien tout compris...

Je vous retiens au courant ;-)
Merci beaucoup pour votre aide

**Julien V** · 21/04/2009, 15h01

Bonjour,

Ma solution est de balayer tous les RadioButton se trouvant dans le TabeLayoutPanel et selon leur nom (qui, normalement, est toujours écrit selon leur ligne et leur colonne), les écrire dans le tableau.

Une fois fait, il suffit de balayer votre tableau où l'index de la colonne correspondra à l'index du questionnaire et pareil pour la ligne. Donc le rdn15_2 se trouvera dans la ligne 15, colonne 2 du questionnaire et dans la cellule (15,2) du tableau.

Cordialement.

**sisqo60** · 21/04/2009, 15h11

Salut,

Ton premier message d'erreur me dit que tu dois avoir utilisé Checked sur la chaine représentant un de tes radio bouton.
La solution, c'est de balayer tous les controls de ton formulaire à la recherche du radiobouton appelé X ou dont le texte est Y. C'est à toi de savoir s'ils ont tous un texte différent.
quelquechose comme ça:

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
 
private bool radioboutonchecked(string nom /*texte*/)
{
  foreach (control c in TonFormulaire.controls)
  {
    if (c is radiobouton)
    {
      radiobutton r = c as radiobutton;
      if (r.text == ton-text /* r.name == tonmon */)
      {
        return r.checked;
      }
    }
  }
return false;
}

c'est du c#, tu n'auras qu'à le transposer en vb. La logique est là en tout cas...

**Léa53** · 22/04/2009, 15h26

Envoyé par Julien V

Bonjour,

Comment sont placés vos RadioButton ?
Sont-ils tous dans le même TableLayoutPanel ?

Si c'est le cas alors il suffit d'utiliser la méthode :

Code :

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

1
2
3
4
5
6
7
8
9
        Dim TableauRdn(100, 2) As RadioButton
        Dim LigneColonne() As String
        Dim Chaine As String
        For Each rdb As RadioButton In TableLayoutPanel1.Controls
            ' attributation de chaque RadioButton dans le tableau
            Chaine = rdb.Name.Substring(3)
            LigneColonne = Chaine.Split("_")
            TableauRdn(LigneColonne(0), LigneColonne(1)) = rdb
        Next

Quelque soit leur place, leur position, il suffit que leur nom soit toujours construit de la même manière : commencer par "rdn" (ou trois lettres) puis par le numéro de la ligne puis "_" et finir par le numéro de la colonne.

TableauRdn devra avoir les dimensions adéquates pour recevoir les 350 RadioButton.

Ne pas oublier que le tableau commence par l'index 0 donc si vos RadioButton commencent par 1, ça donnera une dimension vide...

Cordialement.

Pourriez vous réexpliquer votre code car je ne comprends pas comment il marche. J'ai essayé de l'utiliser mais je ne comprends pas à quoi correspond précisément chaque variable, pourriez vous mettre quelques commentaires

Merci!

**olsimare** · 23/04/2009, 23h17

Bonjour.

Peut-être cela serait plus simple en utilisant TableLayoutPanel.GetPositionFromControl.
D'autre part, il me semble que dans un contenair de control, on ne peut avoir qu'un seul radiobutton sélectionné. Donc je ne comprends pas comment dans le TableLayoutPanel on pourrait en sélectionner plusieurs... mais il y a peut-être une truc qui m'a échappé.

Ceci étant dit, il ne faudrait quand même pas oublier que le .NET est un langage objet ... et qu'il y a sans doute plus simple et plus propre que de déterminer des données fonctionnelles (la réponse à une question dans ton cas) à partir de noms de control...

Dans l'idée, ça n'est pas des RadioButton que tu géres, mais des questions avec des réponses possibles dont l'une est la réponse choisie.
Les radiobutton et le Panel ne sont que de la représentation graphique et doivent le rester.

Comme je me sens l'âme d'un pédagogue ce soir, je te propose d'essayer cela (tu créés un formulaire FormQuestionnaire et tu copies le code) :

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
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
Option Explicit On
Option Strict On
Public Class FormQuestionnaire
 
    Private lQuestion As New List(Of Question)
 
    Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Dim gb As GroupBox
        Dim q As Question
 
        q = New Question("Ca marche ?")
        q.ReponsePossible.Add("Oui")
        q.ReponsePossible.Add("Non")
        lQuestion.Add(q)
        q = New Question("Alors c'est bien l'objet non ?")
        q.ReponsePossible.Add("Je sais pas trop...")
        q.ReponsePossible.Add("Boff")
        q.ReponsePossible.Add("C'est bien")
        q.ReponsePossible.Add("C'est coolissime")
        lQuestion.Add(q)
        q = New Question("Je file de suite lire de la doc sur la prog objet")
        q.ReponsePossible.Add("Oui")
        q.ReponsePossible.Add("Non")
        q.ReponsePossible.Add("Quand j'aurai 5 minutes à perdre pour gagner des heures")
        lQuestion.Add(q)
 
        For i As Integer = lQuestion.Count - 1 To 0 Step -1
            gb = New QuestionControl(lQuestion(i))
            Me.Controls.Add(gb)
            gb.Dock = DockStyle.Top
        Next
 
    End Sub
 
End Class
 
Public Class Question
    Public ReponsePossible As New List(Of String)
    Public Reponse As String
    Public Texte As String
    Public Sub New(ByVal T As String)
        Texte = T
    End Sub
End Class
 
Public Class QuestionControl
    Inherits GroupBox
 
    Dim qQuestion As Question
    Private lbReponse As Label
 
    Public Sub New(ByVal Q As Question)
 
        qQuestion = Q
 
        lbReponse = New Label
        lbReponse.AutoSize = True
        lbReponse.Text = qQuestion.Reponse
        lbReponse.Dock = DockStyle.Left And DockStyle.Bottom
        Me.Controls.Add(lbReponse)
 
        Dim intHeigth As Integer
        For i As Integer = qQuestion.ReponsePossible.Count - 1 To 0 Step -1
            Dim rb As New RadioButton
            rb.Tag = i
            rb.Text = qQuestion.ReponsePossible(i)
            rb.AutoSize = True
            rb.Dock = DockStyle.Left
            AddHandler rb.CheckedChanged, AddressOf ApplySelection
            Me.Controls.Add(rb)
            If rb.Height > intHeigth Then intHeigth = rb.Height
        Next
 
        Me.Text = qQuestion.Texte
        Me.AutoSize = False
        Me.Height = intHeigth - 30
 
    End Sub
 
    Private Sub ApplySelection(ByVal sender As Object, ByVal e As EventArgs)
        If CType(sender, RadioButton).Checked Then
            qQuestion.Reponse = CType(sender, RadioButton).Text & " : " & CType(sender, RadioButton).Tag.ToString
            lbReponse.Text = qQuestion.Reponse
        End If
    End Sub
End Class

Dans l'idée, on gére des Questions, donc on créé une classe Question avec une list de réponse possible dont l'une d'entre elle constitue la réponse choisie.

Pour la réprésentation graphique, on créé un control graphique hérité de groupbox (pratique pour encapsuler les radiobutton) qui à partir d'une question se construit tout seul.

Il suffit simplement alors dans la form de créer une liste de question et d'ajouter les controls graphiques correspondant.

Le code n'est pas d'un pureté redoutable mais ça donne une peu l'idée de ce que l'on peut faire sans trop de mal ...

A voir donc.

Cdt.

**Léa53** · 24/04/2009, 15h28

ça y est! je pense avoir enfin trouvé une ébauche de solution après XXX tentatives...

Pour chaque question, j'ai mis mes radiobutton dans un tableLayoutPanel différent. Qui sont eux même dans un grand tableLayoutPanel.
Voici mon début de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        For each tlp as TableLayoutPanel in TableLayoutPanelprincipal.Controls
        	For Each rdn As RadioButton In tlp.Controls
	            If rdn.Checked=True Then 
	            	MsgBox(rdn.Name & " is checked ")
	            	label1.text = label1.text & tlp.Name & " : " & rdn.Name
	            Else
	            	MsgBox(rdn.Name & " is not checked ")
	            End If
            Next
        Next