Un form ha due RadioButton, RadioButton1 e RadioButton2.
Inoltre c'è una label, Label1.
Al click dei rb, la label assume il testo corrispondente:
codice:
Private Sub RadioButton1_2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click, RadioButton2.Click
Dim r As RadioButton = DirectCast(sender, RadioButton)
r.Checked = True
Me.Label1.Text = r.Text
End Sub
Adesso, per mantenere lo stato, creo nel pannello settings, due variabili booleane, Radio1 e Radio2 e le associo ai due RadioButton. E fin qui nessun problema.
Quando però lancio l'applicazione, la label1 non viene aggiornata automaticamente.
Per ovviare, nell'evento load, metto:
codice:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Me.RadioButton1.Checked Then
Me.Label1.Text = Me.RadioButton1.Text
Else
Me.Label1.Text = Me.RadioButton2.Text
End If
End Sub
La mia domanda è se questo rigiro che ho fatto, non sia un po' troppo lungo, e se si possa risolvere in altro modo.