Cuadros de texto en formulario
Quiero crear un formulario en que al recibir el enfoque cada cuadro de texto la anchura de borde cambie, así como que recupere su valor primitivo al perder el enfoque, sin tener que definir un procedimiento de evento para cada cuadro de texto.
1 respuesta
Respuesta de jrhen
1
En el ejemplo siguiente se asigna el control activo a la variable ctlControlActual y luego se efectúan diferentes acciones dependiendo del valor de la propiedad Nombre (Name) del control.
===========================
Dim ctlControlActual As Control
Set ctlControlActual = Screen.ActiveControl
If ctlControlActual.Nombre = "txtIdCliente" Then
. ' Hace esto.
.
.
ElseIf ctlControlActual.Nombre = "btnDetallesCliente" Then
. ' Hace esto.
.
.
End If
=============================
La cuestión siguiente es, si no quieres activar eventos en los cuadros de texto, piensa dónde quieres que se controle el cambio de control.
Piénsalo, suerte.
===========================
Dim ctlControlActual As Control
Set ctlControlActual = Screen.ActiveControl
If ctlControlActual.Nombre = "txtIdCliente" Then
. ' Hace esto.
.
.
ElseIf ctlControlActual.Nombre = "btnDetallesCliente" Then
. ' Hace esto.
.
.
End If
=============================
La cuestión siguiente es, si no quieres activar eventos en los cuadros de texto, piensa dónde quieres que se controle el cambio de control.
Piénsalo, suerte.
