Visual Basic

Autor: Juan Paúl Tamayo Loza

Page | 1

Autor: Juan Paúl Tamayo Loza

8: Conversiones

Crea un formulario con dos etiquetas, dos cajas de texto, un marco, cuatro
botones de opción, tres botones y escribe el siguiente código:
El botón Convertir
Private Sub Command1_Click()
If Option1 = True Then
Text2 = Val(Text1) * 1000
ElseIf Option2 = True Then
Text2 = Val(Text1) * 100
ElseIfOption3 = True Then
Text2 = Val(Text1) * 10
ElseIf Option4 = True Then
Text2 = Val(Text1) / 1000
End If
End Sub
El botón Nuevo Cálculo
Private Sub Command2_Click()
Text1 = ""
Page | 2

Autor: Juan Paúl Tamayo Loza
Text2 = ""
Text1.SetFocus
End Sub
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub

9: Concatenación 2

Crea un formulario con un control conpestañ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.

Page | 3

Autor: Juan Paúl Tamayo Loza

En lasegunda 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 ThenText2.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 siguientecaja de texto.
El botón Salir
Private Sub Command1_Click()
Unload Me
End
Page | 4

Autor: Juan Paúl Tamayo Loza
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

10: Las Tablas

Page | 5

Autor: Juan Paúl Tamayo Loza

Crea un formulario con una etiqueta, dos cajas de texto y tres botones.
Escribe el siguiente código:

El botón Ver Tabla
Private Sub Command1_Click()
Dim res As Long, retorno
For n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & " x " & n & " = " & res & retornoNext n
End Sub
El botón Nueva Tabla
Private Sub Command2_Click ()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
El botón Salir
Private Sub Command3_Click()
Page | 6

Autor: Juan Paúl Tamayo Loza
If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "¿Qué Ya Te
Quieres Ir?") = vbYes Then
End
Else
Cancel = 1
End If
End Sub

11: La Gráfica

Crea un formulario con uncuadro de imagen e inserta la imagen que prefieras.
Agrega las etiquetas que necesites y coloca una al pie de la imagen y las
demás sobre diferentes cosas de la imagen. En todas borra su Caption y de las
que están sobre la imagen cambia su propiedad BackStyle a 0-Transparent y
escribe el siguiente código:
La etiqueta 2
Private Sub Label2_Click()
Label1.Caption = "Mis hijos"
End Sub
Laetiqueta 3
Private Sub Label3_Click()
Label1.Caption = "Kevin & Katherine"
Page | 7

Autor: Juan Paúl Tamayo Loza
End Sub
La etiqueta 4
Private Sub Label4_Click()
Label1.Caption = "Mi Chiquito y Mi Chiquita"
End Sub

12: Álbum Fotográfico

Crea un formulario con un cronómetro con intervalo de 50 y escribe el siguiente
código:
Private Sub Timer1_Timer()
Static a As Integer
a=a+1
If...