no sabia como poner poner la pregunta
asi q me decidi a escribirla asi y esop, esa es mi duda, como poder comprobar el valor d un check en tiempo de ejecucion, por ejemplo q cuando le de ticket a algun check, habilite unos textbox y logicamente la inversa, si no esta tickeado, los deshabilite :s
gracias d antemano
47
Hola 47, buen día. Aquí te dejo el código que necesitas.
Agregar 1 control CheckBox, 3 TextBox e insertar el siguiente código en un...
Formulario
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text1.SetFocus
Else
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End If
End Sub
Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Check1.Caption = "Registrarse"
End Sub
También existe otra forma más fácil y "económica" de hacer lo mismo.
Agregar 1 control CheckBox, Crear un arreglo de tres controles TextBox con los índices 0, 1, 2 (el arreglo se crea agregando un control TextBox, copiándolo e inmediatamente pegándolo, cuando aparezca una pregunta dar clic en sí, repetir los pasos hasta completar los 3 controles [ya no aparecerá la pregunta nuevamente]) e insertar el siguiente código en un...
Formulario
Dim CuadrosTexto As TextBox
Private Sub Check1_Click()
If Check1.Value = 1 Then
For Each CuadrosTexto In Me.Text1
CuadrosTexto.Enabled = True
Next
Text1(0).SetFocus
Else
For Each CuadrosTexto In Me.Text1
CuadrosTexto.Enabled = False
Next
End If
End Sub
Private Sub Form_Load()
For Each CuadrosTexto In Me.Text1
CuadrosTexto.Enabled = False
Next
Check1.Caption = "Registrarse"
End Sub
Espero te sea de utilidad. Nos vemos.
Autor