1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
vbQuestion + vbYesNo, “Pregunta”) = vbYes Then End Else Cancel = True Call CmdLimpiar_Click End If End Sub Private Sub LstCursos_Click() TxtCursos = LstCursos End Sub Private Sub LstDistrito_Click() TxtDistrito = LstDistrito End Sub Private Sub CmdGuardar_Click() 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 Private Sub CmdLimpiar_Click() LstCursos.Enabled = True LstDistrito.Enabled = True TxtCursos.Locked = False TxtFechaMat.Locked = False TxtAlumno.Locked = False Pág. 284
CboSexo.Locked = False TxtDireccion.Locked = False TxtDistrito.Locked = False TxtCursos = “” TxtFechaMat = “” TxtAlumno = “” CboSexo = “” TxtDireccion = “” TxtDistrito = “” TxtCursos.SetFocus End Sub Private Sub CmdCancelar_Click() If MsgBox(“¿Desea modificar algún dato?”, _ vbQuestion + vbYesNo, “Mensaje”) = vbYes Then LstCursos.Enabled = True LstDistrito.Enabled = True TxtCursos.Locked = False TxtFechaMat.Locked = False TxtAlumno.Locked = False CboSexo.Locked = False TxtDireccion.Locked = False TxtDistrito.Locked = False End If End Sub Private Sub CmdSalir_Click() Unload Me End Sub Aplicación Nº 4 Pág. 285
- Page 233 and 234: Label10 Nombre LblImpuesto Caption
- Page 235 and 236: En primer lugar debemos cargar los
- Page 237 and 238: A continuación haga doble click so
- Page 239 and 240: Private Sub CmdAceptar_Click() Dim
- Page 241 and 242: Los descuentos a aplicar son sobre
- Page 243 and 244: Label4 Label5 Text1 Text2 Text3 Tex
- Page 245 and 246: Check3 Command1 Command2 Command3 N
- Page 247 and 248: Cuatro notas entre 0 y 20 represent
- Page 249 and 250: Label6 Label7 Text1 Text2 Text3 Tex
- Page 251 and 252: N3 = Val(TxtN3) : N4 = Val(TxtN4) P
- Page 253 and 254: Form1 Label1 Label2 Label3 Label4 T
- Page 255 and 256: Case 10: CadMes = “Octubre” Cas
- Page 257 and 258: Para el desarrollo de esta aplicaci
- Page 259 and 260: El diseño de la interfaz debe ser
- Page 261 and 262: Para el desarrollo de esta aplicaci
- Page 263 and 264: Label5 Label6 Label7 Text1 Text2 Te
- Page 265 and 266: Una vez establecidas las propiedade
- Page 267 and 268: Un centro numérico es un número q
- Page 269 and 270: Para el desarrollo de esta aplicaci
- Page 271 and 272: Private Sub CmdAceptar_Click() If I
- Page 273 and 274: figura: El diseño de la interfaz d
- Page 275 and 276: Combo1 Text1 Text2 Option1 Option2
- Page 277 and 278: Private Sub CboArticulo_Click() Dim
- Page 279 and 280: Form1 Frame1 Frame2 Frame3 Frame4 L
- Page 281 and 282: Text3 Text4 Text5 Command1 Command2
- Page 283: LstDistrito.AddItem “La Victoria
- Page 287 and 288: GUÍA DE LABORATORIO Nº 5 Objetivo
- Page 289 and 290: Command1 Command2 Command3 Nombre C
- Page 291 and 292: El curso quedará seleccionado al h
- Page 293 and 294: En ese instante se añadirá un nue
- Page 295 and 296: indica: Form2 List1 Command1 Luego
- Page 297 and 298: Del cuadro de diálogo Agregar form
- Page 299 and 300: Private Sub MnuFixedSingle_Click()
- Page 301 and 302: GUÍA DE LABORATORIO Parte II ELABO
- Page 303 and 304: GUÍA DE LABORATORIO Nº 6 Objetivo
- Page 305 and 306: CurCodigo CurNombre CurProfe BC1 Bo
- Page 307 and 308: la base de datos CursosLibres.MDB.
- Page 309 and 310: otón Siguiente. En seguida aparece
- Page 311 and 312: Frame2 Frame3 Nombre FraIngreso Cap
- Page 313 and 314: Command5 Command6 Command7 Command8
- Page 315 and 316: ModoEditar True End Sub Private Sub
- Page 317 and 318: Desarrollar una aplicación que per
- Page 319 and 320: Desarrollar una aplicación que per
- Page 321 and 322: Aplicación Nº 4 Desarrollar una a
- Page 323 and 324: Para el diseño de la interfaz, pro
- Page 325 and 326: Text Para establecer las propiedade
- Page 327 and 328: TxtCurNombre.DataField = “CurNomb
- Page 329 and 330: Para el desarrollo de esta aplicaci
- Page 331 and 332: RsCurso.LockType = adLockReadOnly R
- Page 333 and 334: Para desarrollar nuestra aplicació
vbQuestion + vbYesNo, “Pregunta”) = vbYes Then<br />
End<br />
Else<br />
Cancel = True<br />
Call CmdLimpiar_Click<br />
End If<br />
End Sub<br />
Private Sub Lst<strong>Curso</strong>s_Click()<br />
Txt<strong>Curso</strong>s = Lst<strong>Curso</strong>s<br />
End Sub<br />
Private Sub LstDistrito_Click()<br />
TxtDistrito = LstDistrito<br />
End Sub<br />
Private Sub CmdGuardar_Click()<br />
Lst<strong>Curso</strong>s.Enabled = False<br />
LstDistrito.Enabled = False<br />
Txt<strong>Curso</strong>s.Locked = True<br />
TxtFechaMat.Locked = True<br />
TxtAlumno.Locked = True<br />
CboSexo.Locked = True<br />
TxtDireccion.Locked = True<br />
TxtDistrito.Locked = True<br />
MsgBox “Alumno matriculado”, vbInformation, “Mensaje”<br />
End Sub<br />
Private Sub CmdLimpiar_Click()<br />
Lst<strong>Curso</strong>s.Enabled = True<br />
LstDistrito.Enabled = True<br />
Txt<strong>Curso</strong>s.Locked = False<br />
TxtFechaMat.Locked = False<br />
TxtAlumno.Locked = False<br />
Pág. 284