Activar y desactivar un checkbox

03/01/2006 - 16:48 por jUANJO | Informe spam
Hola a todos, tengo el siguiente codigo que lo que hago es controlar el
chequeo de un checkbox, lo que pasa es que ni me activa ni desactiva

Private Sub chkSexoM_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles chkSexoM.Click
Dim estado As Integer
estado = chkSexoM.CheckState
If estado = 0 Then
chkSexoM.Checked = True
MsgBox("ACTIVADO")
estado = chkSexoM.CheckState
Else
chkSexoM.Checked = False
MsgBox("DESACTIVADO")
estado = chkSexoM.CheckState
End If
End Sub
 

Leer las respuestas

#1 Camilo
03/01/2006 - 17:53 | Informe spam
Juan... por que en vez del Click del CheckBox, no utilizas el
CheckedChanged?

Private Sub chkSexoM_CheckedChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles chkSexoM.CheckedChanged
If chkSexoM.Checked Then
MsgBox("ACTIVADO")
Else
MsgBox("DESACTIVADO")
End if
End Sub


"jUANJO" <JJ<ARRO> escribió en el mensaje
news:
Hola a todos, tengo el siguiente codigo que lo que hago es controlar el
chequeo de un checkbox, lo que pasa es que ni me activa ni desactiva

Private Sub chkSexoM_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles chkSexoM.Click
Dim estado As Integer
estado = chkSexoM.CheckState
If estado = 0 Then
chkSexoM.Checked = True
MsgBox("ACTIVADO")
estado = chkSexoM.CheckState
Else
chkSexoM.Checked = False
MsgBox("DESACTIVADO")
estado = chkSexoM.CheckState
End If
End Sub


Preguntas similares