Practicas visual basic

[pic]

PRACTICA 8

Paso No.

1.- dar color al formulario.

2.- ingresar una imagen (escudo Unimex) con la herramienta IMAGE.

3.- agregar al formulario un título (Unimex) con laherramienta LABEL.

[pic] [pic]

4.- dar clic sobre el formulario y agregar la siguiente sintaxis:

Private Sub Form_Load()
mensaje = MsgBox("BIENVENIDO A UNIMEX", , "HOLA")
End Sub

[pic]PRACTICA 9

Paso No.

1.- dar color al formulario.

2.- ingresar un objeto Label y poner el título “Laboratorio de Centros de Computo”.

3.- agregar dos Label más para colocar la leyenda “atte.” y“Administración de Centros de Computo”

[pic] [pic]

La práctica consiste en que al momento de correr el programa aparecerán tres MsgBox consecutivamente, en donde se sugiere al alumnovacunar la memoria USB en caso de tener algún virus, la opción de los botones solo será “Aceptar”. La sintaxis es la siguiente:

Formulario:
Private Sub Form_Load()
mensaje = MsgBox("BIENVENIDO ALLABORATORIO DE COMPUTO", , "UNIMEX")
mensaje = MsgBox("ANTES DE TRABAJAR ANALIZA TU MEMORIA USB", , "ALERTA")
mensaje = MsgBox("SI CONTIENE VIRUS VACUNALA", , "ALERTA")
End Sub

[pic]

PRACTICA 10Paso No.

1.- dar color al formulario.

2.- ingresar un objeto Label e poner PRACTICA 10

3.- agregar un segundo Label para colocar el Nombre

4.- agregar un CommandButton para la funciónSalir

[pic] [pic]

La practica consisten en probar el funcionamiento de los botones de Aceptar, Aceptar-Cancelar, Reintentar-Cancelar, Si-No, Si-No-Cancelar y Cancelar. Estos botones seutilizaran en msgbox al momento de correr el programa. La sintaxis es la siguiente:

Formulario:
Private Sub Form_Load()
mensaje = MsgBox("Prueba de Botón ACEPTAR", vbOKOnly, "BOTON")
mensaje =MsgBox("Prueba de Botón ACEPTAR-CANCELAR", vbOKCancel, "BOTON")
mensaje = MsgBox("Prueba de Botón REINTENTAR-CANCELAR", vbRetryCancel, "BOTON")
mensaje = MsgBox("Prueba de Botón SI-NO", vbYesNo, "BOTON")...