Visual Basic.NET - Otracosa que no me funciona

 
Vista:
sin imagen de perfil

Otracosa que no me funciona

Publicado por romester (4 intervenciones) el 23/04/2012 14:41:27
bueno estoy pensando que la beta esta no anda muy bien creo, por que este codigo tampoco me funciona y creo que tampoco es tan complicado , o tengo lo problemas con las boleanas(true o false)

Dim contador As Byte


For contador = 0 To 3

If rdb1(contador).Checked = False Then

Form1.Text = "Debes completar el test"
Exit Sub

End If


Next

el titulo al form si lo pone , lo que hace caso omiso es a rdb1(contador).Checked = False que da igual que este a false o true el titulo se lo sigue poniendo.
Alguno tiene alguna sugerencia o pudiera probar este codigo en otro visual studio plis.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Otracosa que no me funciona

Publicado por David (46 intervenciones) el 23/04/2012 16:57:32
Hola romester,
definitivamente tu codigo no me funciona, quiza por la version que tengo del vs
pero podrias probar con este codigo

Dim Ctl As CheckBox
Dim Ctl1 As Control
For Each Ctl1 In Me.Controls
If TypeOf Ctl1 Is CheckBox Then
Ctl = CType(Ctl1, CheckBox)
Ctl.Checked = False
End If
Next

bueno espero que te sirva, saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Otracosa que no me funciona

Publicado por mjrosg (21 intervenciones) el 28/04/2012 16:33:01
Vamos a ver.... que esto es vb.net y las cosas se hacen de manera diferente que en VB6.

Este es el código para leer los controles de un formulario en .NET.


For Each que_control_es As Control In Me.Controls
If TypeOf (que_control_es) Is CheckBox Then
Dim mi_CheckBox As CheckBox = CType(que_control_es, CheckBox)
If mi_CheckBox.Checked = False Then
Me.Text = "Debes completar el test"
End If
End If
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Otracosa que no me funciona

Publicado por mjrosg (21 intervenciones) el 28/04/2012 16:40:27
Con este código marcas todos los CheckBox del formulario.


For Each que_control_es As Control In Me.Controls
If TypeOf (que_control_es) Is CheckBox Then
Dim mi_CheckBox As CheckBox = CType(que_control_es, CheckBox)
mi_CheckBox.Checked = True

End If
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar