Activar y desactivar un checkbox

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

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



Salu2,


Camilo Alfonso Villa Naranjo
Analista Desarrollador Sistemas POS E.U.
3 DCE2003 - 2 DCE2005
Core Group Member AlianzaDev.NET
"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

disculpa...
pero creo que estas enredando ...
o dandole un mal uso al control..
no se que estas intentando hacer..




"jUANJO" <JJ<ARRO> wrote in message
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