Capýtulo 8:

 Ejercicio 8: Registro de Cursos

                                   

Crea un formulario con cuatro marcos, seis etiquetas, cinco cajas de texto, un cuadro combinado, dos cajas de lista, cuatro botones y escribe el siguiente código:

Private Sub Form_Load()

List1.AddItem "Intro. a Sistemas"

List1.AddItem "Windows"

List1.AddItem "MS Word"

List1.AddItem "MS Excel"

List1.AddItem "MS PowerPoint"

List1.AddItem "MS Access"

List1.AddItem "Soporte Técnico"

List1.AddItem "Redes"

List1.AddItem "MS Visual Basic"

List1.AddItem "Internet"

List2.AddItem "Chihuahua"

List2.AddItem "Campeche"

List2.AddItem "Veracruz"

List2.AddItem "Colima"

List2.AddItem "Yucatán"

List2.AddItem "Sonora"

List2.AddItem "Sinaloa"

List2.AddItem "Puebla"

List2.AddItem "Tabasco"

List2.AddItem "Zacatecas"

Combo1.AddItem "Masculino"

Combo1.AddItem "Femenino"

End Sub

Private Sub Form_Unload(Cancel As Integer)

If MsgBox("¿Estás Seguro de Querer Cerrar el Programa?", vbQuestion + vbYesNo, "¿Oye qué pasa contigo?") = vbYes Then

End

Else

Cancel = True

End If

End Sub

Private Sub List1_Click()

Text1 = List1

End Sub

Private Sub List2_Click()

Text5 = List2

End Sub

El botón Guardar

Private Sub Command1_Click()

List1.Enabled = False

List2.Enabled = False

Text1.Locked = True

Text2.Locked = True

Combo1.Locked = True

Text4.Locked = True

Text5.Locked = True

MsgBox "Este Alumno ha sido Matriculado", vbInformation, "Mensaje Importante"

End Sub

El botón Limpiar

Private Sub Command2_Click()

List1.Enabled = True

List2.Enabled = True

Text1.Locked = False

Text2.Locked = False

Text3.Locked = False

Combo1.Locked = False

Text4.Locked = False

Text5.Locked = False

Text1 = ""

Text2 = ""

Text3 = ""

Combo1 = ""

Text4 = ""

Text5 = ""

Text1.SetFocus

End Sub

El botón Cancelar

Private Sub Command3_Click()

If MsgBox("Deseas Cancelar Algún Dato?", vbQuestion + vbYesNo, "Aviso Muy Importante") = vbYes Then

List1.Enabled = True

List2.Enabled = True

Text1.Locked = False

Text2.Locked = False

Text3.Locked = False

Combo1.Locked = False

Text4.Locked = False

Text5.Locked = False

End If

End Sub

El botón Salir

Private Sub Command4_Click()

Unload Me

End

End Sub

Cursos similares a Manual de Visual Basic Intermedio

1. Manual de Visual Basic Principiante En el título de este curso, Manual de Visual Basic para Principiantes ,... [17/03/06]				155.711
2. Visual Basic Express. Crear alarma (1/4) Alarma en Visual Basic 2008. Sigue nuestro curso de informática y aprende a... [13/04/11]				884
3. Visual Basic Express. Crear una alarma (2/4) Crear una alarma en Visual Basic 2008 Express . Te presentamos la continuación del... [13/04/11]				352