Manual de Visual Basic Principiante
Lección: 11
Capítulo: Ejercicio 9: Concatenación 2
Crea un formulario con un control con pestañas (haz clic con
el botón derecho del ratón sobre la Caja de herramientas, haz clic en Components. En Components,
Controls, selecciona el control
Microsoft Tabbed Dialog
Control 6.0 (SP5) y haz clic en Aceptar. El control aparecerá en la Caja de
herramientas.), en
la primera sección crea seis etiquetas, seis cajas de texto
y dos botones.
En la segunda sección crea tres etiquetas, tres cajas de
texto y un botón.
En este programa programaremos las cajas de texto para que
el cursor avance con Enter a la siguiente caja de
texto. Haz doble clic en la primera caja de
texto y en la caja de opciones de eventos selecciona KeyPress y escribe el siguiente código:
Private Sub
Text1_KeyPress(KeyAscii As Integer)
If KeyAscii
= 13 Then
Text2.SetFocus
End If
End Sub
La caja de texto 2 la programaremos para que se introduzca
automáticamente la fecha. Haz doble clic en la caja de texto 2, selecciona el
evento GotFocus
y escribe el siguiente código:
Private Sub
Text2_GotFocus()
Text2.Text = Format(Now, "dd-mm-yyyy")
Text3.SetFocus
End Sub
Programa las cajas de texto (hasta la número seis) para que
el cursor avance a la siguiente caja de texto.
El botón Salir
Private Sub
Command1_Click()
Unload Me
End
End Sub
El botón Limpiar
Private Sub
Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
End Sub
El botón Mostrar Datos
Private Sub
Command3_Click()
Text7 = Text1 & " " & Text3
Text8 = Text4
Text9 = Text5
End Sub