GetType...ricavare tipo

martedì 17 febbraio 2004 - 12.24

Anonimo Profilo | Senior Member

Salve in un windows form devo verificare se un radioButton risulta ceccato, in caso positivo, in un altro form devo spuntare tutti i checkBox presenti che sono divisi in qualche panel.
Prendendo il panel chiamato "cucina", devo spuntare 3 checkBox (tra altri controlli di altri tipi) e per farlo usavo un loop su tutti gli ementi presenti con un For...each...next:

For Each objControl As Control In cucina.Controls
Select Case objControl.GetType().Name
Case "CheckBox"
objControl.Enabled = True
End Select
Next

Solo che così non mi permette la spunta dei checkBox...Come posso fare?
Ringrazio FreeTeo e Giovanni per i precedenti aiuti, ma al momento, da solo non ho risolto

Anonimo Profilo | Senior Member

Grazi Marco, ma ho risolto così e funziona..

For Each objControl As Control In cucina.Controls
Select Case objControl.GetType().Name
Case "CheckBox"
objCheckBox = objControl
objCheckBox.Enabled = True
objCheckBox.Checked = True
End Select
Next

Anonimo Profilo | Senior Member

Per non aprire un altro 3D, avrei un altro problema che non riesco a risolvere.
Sempre in un panel dovrei spuntare delle checkbox che hanno il colore di sfondo giallo, mentre non dovrei spuntare quelle con sfondo rosso.

Ho pensato a questo:
Dim objCheckBox As CheckBox
For Each objControl As Control In cucina.Controls
Select Case objControl.GetType().Name
Case "CheckBox"
objCheckBox = objControl
Dim var As String
If var = Color.op_Equality(objCheckBox.BackColor, System.Drawing.Color.Yellow) Then
objCheckBox.Enabled = True
objCheckBox.Checked = True
End If
End Select
Next

Ma non funziona...non spunta nulla, ma non dà nemmeno errore...
Cosa ho sbagliato? Grazie mille
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5