Visualizar textbox y combobox
Hola amigo experto
Una consulta tengo un form que tiene 3 textbox, 1 combobox y 1 botón"Calcular". Como puedo hacer para que al colocar el dato en el textbox1 se visualice los textbox 2 y 3 y el combobox1 y que el cuersor se sitúe en el textbox2... El código que estoy utilizando es el siguiente... Pero no me funciona ya que al poner el dato en el textbox1 y darle enter el cursor se sitúa en el botón "Calcular"... Por favor puedes ayudarme
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Visible = True
TextBox3.Visible = True
ComboBox1.Visible = True
TextBox2.SetFocus
End Sub
También he probado con el evento afterupgrade y tampoco funciona.
En las propiedades de los textbox2 y 3 y el combobox1 el Visible esta en False
Una consulta tengo un form que tiene 3 textbox, 1 combobox y 1 botón"Calcular". Como puedo hacer para que al colocar el dato en el textbox1 se visualice los textbox 2 y 3 y el combobox1 y que el cuersor se sitúe en el textbox2... El código que estoy utilizando es el siguiente... Pero no me funciona ya que al poner el dato en el textbox1 y darle enter el cursor se sitúa en el botón "Calcular"... Por favor puedes ayudarme
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Visible = True
TextBox3.Visible = True
ComboBox1.Visible = True
TextBox2.SetFocus
End Sub
También he probado con el evento afterupgrade y tampoco funciona.
En las propiedades de los textbox2 y 3 y el combobox1 el Visible esta en False
1 Respuesta
Respuesta de boumerang
1
Ok amigo no hay problema quedo a la espera de tu respuesta
Pienso... ¿no irá mejor que al "cambiar" TextBox2 se activaran los demás objetos? De ahí, solamente tienes que revisar la propiedad TabIndex de todos los objetos para que coincidan con el orden de selección.
-
El código quedaría así:
-
Private Sub TextBox1_Change()
TextBox2.Visible = True
TextBox3.Visible = True
ComboBox1.Visible = True
End Sub
-
Ya al presionar la tecla Tab (para salir), con los TabIndex en su lugar, el siguiente objeto seleccionado será precisamente TexBox2
-
-
El código quedaría así:
-
Private Sub TextBox1_Change()
TextBox2.Visible = True
TextBox3.Visible = True
ComboBox1.Visible = True
End Sub
-
Ya al presionar la tecla Tab (para salir), con los TabIndex en su lugar, el siguiente objeto seleccionado será precisamente TexBox2
-
