[Ayuda] CheckBox

[jorgelin95]

Hola. ¿Se podría hacer con un CheckBox que salga un MsgBox cuando este tildado y cuando no este tildado? Ejemplo..

(cuando este activado)

Private Sub Check1_Click()

MsgBox = ON

End Sub

(desactivado, destilado)

Private Sub Check1_Click()

MsgBox = OFF

End Sub

Se podría ¿entienden? osea cuando se tilde y se destilde salga un MsgBox diferentes. Gracias.

[bizco]

check1.value y tu ya comparas.

[jorgelin95]

No entendi... no soy muy avanzado que digamos.

[Tokes]

Es muy sencillo:

Código [Seleccionar] Expandir

Option Explicit

Private Sub Check1_Click()
    If Check1.Value = vbChecked Then
        MsgBox "Activado"
    Else
        MsgBox "Desactivado"
    End If
End Sub

[bizco]

bueno ya te dio el codigo tokes, personalmente no soy partidario de eso.

No entendi... no soy muy avanzado que digamos.

nadie te a requerido ser avanzado, es una comparacion. es buena costumbre leer antes de programar, te lo digo de buenas no para que lo tomes a mal.

[jorgelin95]

nadie te a requerido ser avanzado, es una comparacion. es buena costumbre leer antes de programar, te lo digo de buenas no para que lo tomes a mal.

Jaja, igualemente yo no dije que alguien me había dicho que necesitaba ser avanzado, solo comente que no soy avanzado y quería expresar que hace poco empece con VB y no sabía lo que me habías querido explicar, de toda forma usastes una lengua literaria, respecto a lo de leer busque pero no me aparecían ejemplos como buscaba yo por eso pedi ayuda, gracias.

[bizco]

ok, para la proxima con f2 abres el object explorer y veras toda la informacion necesaria sobre un componente.