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
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 |
![]() |