[VB.NET]rendere radiobuttun checked

[x69asterix]

ho una serie di radiobutton max 12 nominati radiobutton 1....radiobutton12 , in base ad un numero esempio 8 dovrei rendere i primi otto checked il restante uncheked
mi date una mano, io provo così.

  For i As Integer = 1 To CType(ListBox1.Text, Integer)
            Dim radios As String = "RadioButton"
            Dim valore As String = CType(radios, String) & CType(i, Integer)
         '   ........?
  Next

[fu510n]

Prova così:

For i As Integer = 1 To CType(ListBox1.Text, Integer)
            Dim radios As String = "RadioButton"
            Dim valore As String = CType(radios, String) & CType(i, Integer)
            DirectCast(Me.Controls(Valore), RadioButton).Checked = True
Next

[x69asterix]

Originariamente inviato da fu510n
Prova così:

For i As Integer = 1 To CType(ListBox1.Text, Integer)
            Dim radios As String = "RadioButton"
            Dim valore As String = CType(radios, String) & CType(i, Integer)
            DirectCast(Me.Controls(Valore), RadioButton).Enabled= True
Next

per precisazione i controlli non devono essere checked ma enabled o disabled, ho provato ma non succede nulla i controlli restano tutti abilitati

[fu510n]

La proprietà "Enabled" fa riferimento alla possibilità o no di poter interagire con l'oggetto (tramite interfaccia).
Devi lavorare sulla proprietà "Checked" che fa riferimento allo stato del controllo.

Checked = True -> Imposta lo stato a Selezionato mostrando il pallino dentro il cerchietto (per rendere l'idea)

Ho appena fatto una prova con 7 radiobutton e un pulsante che richiama il codice che ti ho postato.
Ho provato a impostare "Enabled":

DirectCast(Me.Controls(valore), RadioButton).Enabled = Not DirectCast(Me.Controls(valore), RadioButton).Enabled

in questo modo lo abilita se è disabilitato e lo disabilita se è abilitato.

Ho provato anche ad impostare "Checked":

DirectCast(Me.Controls(valore), RadioButton).Checked = True


Il tutto funziona benissimo... non so cosa sbagli ma qualcosa la stai sbagliando (controlla con un bel punto di interruzione o una messagebox.show che valore viene letto dalla ListBox)

[x69asterix]

mi restituisce come eccezione" Riferimento a un oggetto non impostato su un'istanza di oggetto"
il msg mi ritorna il valore corretto della listbox

[fu510n]

Prova ad eseguire il codice passo passo in debug. Vedi che valore ha la variabile "i" nel ciclo in cui ti restituisce l'eccezione.
Prova anche a controllare i nomi dei radiobutton.

[x69asterix]

Originariamente inviato da fu510n
Prova ad eseguire il codice passo passo in debug. Vedi che valore ha la variabile "i" nel ciclo in cui ti restituisce l'eccezione.
Prova anche a controllare i nomi dei radiobutton.

bo..
i nomi sono corretti,
l'errore è sempre in "DirectCast(Me.Controls(valore), RadioButton).Enabled = True"

[x69asterix]

ho provato a verificare

 Dim radios As String = "RadioButton"
            For i As Integer = 1 To CType(ListBox1.Text, Integer)
                Dim valore As String = CType(radios, String) & CType(i, Integer)
                '  DirectCast(Me.Controls(valore), RadioButton).Enabled = True
                  Console.WriteLine(valore)
            Next

il risultato è corretto

[x69asterix]

questa è davvero bella!,
allora se io eseguo in un nuovo progetto:

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.SelectedIndex = 0
        For i As Integer = 1 To ListBox1.Text
            Dim radios As String = "RadioButton"
            Dim valore As String = CType(radios, String) & CType(i, Integer)
            DirectCast(Me.Controls(valore), RadioButton).Enabled = True
        Next

    End Sub

il codice funziona,
ma se lo stesso codice lo voglio inserire in un mio progetto esistente, questo mi và in errore[" Riferimento a un oggetto non impostato su un'istanza di oggetto"], perchè?

[fu510n]

:master:
Mi è venuta in mente una cosa.... ma questi radio button siamo sicuri che sono figli del form? Possibile che sono inseriti in un Panel o in un GroupBox o altro controllo?
In tal caso non devi usare il codice "Me.Control" ma ad esempio "MioPannello.Controls".

Verifica e fammi sapere