Discussion :

[lguez]

bonjour,

je suis en train de transférer une appli que j'ai faite sur Excel VBA en Visual studio VB.net

et j'ai une form qui contient 36 radioboutons.
en VBA j'avais la possibilité d'effectuer une boucle comme ci-dessous:

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
 
Private Sub UserForm_Activate()
Dim presence As String
 
presence = ActiveCell.Value
For i = 1 To 12
    Select Case Mid(presence, i, 1)
        Case 0
            Me.Controls("Opt" & i & "_1").Value = True
        Case 1
            Me.Controls("Opt" & i & "_2").Value = True
        Case 2
            Me.Controls("Opt" & i & "_3").Value = True
    End Select
Next

cette fonctionnalité n'a pas l'air d'exister en vb.net

Y-a-t-il une possibilité de mettre à jour un contrôle RadioButton par une variable string correspondant au champ name du bouton ?

en attente de votre réponse ou si vous avez une autre idée pour effectuer cette manip proprement ?

Cordialement

Laurent

[lguez]

j'ai trouvé une solution :

j'ai un panel pour 3 radioboutons
donc 12 panels
et 1 panel principal qui englobe mes 12 panels

le nom de mes contrôles sont de la forme: Opt<mois>_<présence> ou <mois> peut prendre les valeurs de 1 à 12 et <présence> les valeurs 1, 2 ou 3 la période d'observation est une chaine de 12 caractères correspondant aux 12 mois de l'année et comportant des 0, des 1 ou des 2 (0 étant pas de présence, 1 présence faible et 2 forte présence)


exemple de chaine: "001112211000" donc là:

• -> Janvier - Février - Octobre - Novembre - Décembre : pas de présence
• -> Mars - Avril - Mai - Août - Septembre : présence faible
• -> Juin - Juillet : forte présence

ci-dessous le code que j'ai écris sous vb.net

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Private Sub BtPresenceAnnee_Click(sender As Object, e As EventArgs) Handles BtPresenceAnnee.Click
        Dim chaine As String
        Dim ligneColonne(1) As String
 
        For Each pnl As Panel In UF_Presence.PanelPrinc.Controls
            For Each rdn As RadioButton In pnl.Controls
                chaine = Strings.Right(rdn.Name, Strings.Len(rdn.Name) - 3)
                ligneColonne = Split(chaine, "_")
                rdn.Checked = (Mid(vInfosinsecte.periodeObservation, ligneColonne(0), 1) = ligneColonne(1) - 1)
            Next
        Next

il y a peut-être plus simple mais celui-ci fonctionne

si cela peut en aider d'autre

[Phil Rob]

Il y a aussi le code suivant, si ça peut aider ...

Code :

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

1
2
3
4
5
6
7
'        For Each RB As Object In Me.Controls   
'            If RB.GetType.Name = "RadioButton" Then
'                If RB.Name = "celui que je cherche ... " Then
'                    RB.Checked = True
'                End If
'            End If
'        Next