Public Curso As String
Public Distrito As String
En seguida proceda a cambiar el nombre formulario principal por FrmFichaMatricula. Luego debe añadir los demás formularios necesarios para construir la aplicación. Para tal fin, seleccione el menú Proyecto y elija la opción Agregar formulario. Del cuadro de diálogo Agregar formulario, en la ficha Nuevo, elija la opción Formulario y haga click en el botón Abrir.
Nombre:CmdCurso
Caption: . . .
Command6
Nombre:CmdDistrito
Caption: . . .
CboSexo.AddItem "Masculino"
CboSexo.AddItem "Femenino"
End Sub
Private Sub CmdCurso_Click()
Load FrmCurso
FrmCurso.Show vbModal
TxtCurso = Curso
End Sub
Private Sub CmdDistrito_Click()
Load FrmDistrito
FrmDistrito.Show vbModal
TxtDistrito = Distrito
End Sub
A continuación active el formulario FrmCurso, para ello haga click sobre el mismo. En seguida proceda a ubicar los siguientes controles en el formulario:
1 control de lista
1 botones de comando
Luego proceda a establecer las propiedades según se indica:
Form2
Nombre
FrmCurso
BorderStyle
3-Fixed Dialog
Caption
Cursos
List1
Nombre
LstCursos
Text
Command1
Nombre
CmdAceptar
Caption
&Aceptar
Private Sub CmdCancelar_Click()
If MsgBox("¿Desea modificar algún dato?", _
vbQuestion + vbYesNo, "Mensaje") = vbYes Then
LstCursos.Enabled = True
LstDistrito.Enabled = True
TxtCurso.Locked = False
TxtFechaMat.Locked = False
TxtAlumno.Locked = False
CboSexo.Locked = False
TxtDireccion.Locked = False
TxtDistrito.Locked = False
End If
Load FrmCursos
FrmCursos.Show vbModal
TxtCurso = Curso
End Sub
Load FrmDistrito
FrmDistrito.Show vbModal
TxtDistrito = Distrito
End Sub
LstCursos.Enabled = False
LstDistrito.Enabled = False
TxtCursos.Locked = True
TxtFechaMat.Locked = True
TxtAlumno.Locked = True
CboSexo.Locked = True
TxtDireccion.Locked = True
TxtDistrito.Locked = True
MsgBox "Alumno matriculado", vbInformation, "Mensaje"
End Sub
LstCursos.Enabled = True
LstDistritos.Enabled = True
TxtCurso.Locked = False
TxtFechaMat.Locked = False
TxtAlumno.Locked = False
CboSexo.Locked = False
TxtDireccion.Locked = False
TxtDistrito.Locked = False
TxtCurso = ""
TxtFechaMat = ""
TxtAlumno = ""
CboSexo = ""
TxtDireccion = ""
TxtDistrito = ""
TxtCurso.SetFocus
End Sub
Unload Me
End Sub
CboSexo.AddItem "Masculino"
CboSexo.AddItem "Femenino"
End Sub
If MsgBox("¿Desea terminar la aplicación?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
Else
Cancel = True
Call CmdLimpiar_Click
End If
End Sub
Private Sub LstCursos_Click()
TxtCursos = LstCursos
End Sub
TxtDistrito = LstDistrito
Curso = LstCursos.Text
FrmCursos.Hide
End Sub
LstCursos.AddItem "Borland C++ Nivel I"
LstCursos.AddItem "Borland C++ Nivel II"
LstCursos.AddItem "Microsoft Visual Basic Nivel I"
LstCursos.AddItem "Microsoft Visual Basic Nivel II"
LstCursos.AddItem "Microsoft Visual FoxPro Nivel I"
LstCursos.AddItem "Microsoft Visual FoxPro Nivel II"
LstCursos.AddItem "Microsoft Visual C++ Nivel I"
LstCursos.AddItem "Microsoft Visual C++ Nivel II"
LstCursos.AddItem "Microsoft SQL Server Nivel I"
LstCursos.AddItem "Microsoft SQL Server Nivel II"
LstCursos.AddItem "Microsoft Power Builder Nivel I"
LstCursos.AddItem "Microsoft Power Builder Nivel II"
End Sub
En este formulario agregamos 1listbox y 1 comando.
Introducimos los siguientes códigos:
Distrito = LstDistritos.Text
FrmDistrito.Hide
End Sub
LstDistritos.AddItem "Carabayllo"
LstDistritos.AddItem "Comas"
LstDistritos.AddItem "Chaclacayo"
LstDistritos.AddItem "Callao"
LstDistritos.AddItem "Lima"
LstDistritos.AddItem "Chorrillos"
LstDistritos.AddItem "La Molina"
LstDistritos.AddItem "La victoria"
LstDistritos.AddItem "Lince"
LstDistritos.AddItem "El Agustino"
LstDistritos.AddItem "Lurigancho"
End Sub