1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
GUÍA DE LABORATORIO Nº 9 Objetivos Luego de completar este laboratorio, el estudiante será capaz de: • Crear y utilizar clases dentro de una aplicación Visual Basic. • Diseñar y utilizar controles ActiveX personalizados. Consideraciones Para el desarrollo del presente laboratorio Ud. deberá crear una carpeta C:\FundVB\Lab9, para guardar sus trabajos correspondientes a este laboratorio. Aplicación Nº 1 Implementar una clase denominada Circulo, la cual debe contar con las propiedades públicas Radio y Area. Para tal fin seleccione la opción Agregar módulo de clase del Menú Proyecto: En la ficha Nuevo seleccione la opción Módulo de clase y haga click en Abrir. En seguida active la ventana de propiedades y cambie el nombre de la nueva clase por Circulo. Pág. 358
La ventana de código de la clase debe presentar la siguiente apariencia: A continuación proceda a ingresar el siguiente código para la clase: Private R As Double Public Property Get Radio() As Variant Radio = R End Property Public Property Let Radio(ByVal vNewValue As Variant) If IsNumeric(vNewValue) Then R = CDbl(vNewValue) Else R = 0 End If End Property Public Property Get Area() As Variant Area = 3.141592 * R * R End Property Private Sub Class_Initialize() R = 0 End Sub Pág. 359
- 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ó
- Page 335 and 336: Form1 Label1 Label2 Label3 Label4 T
- Page 337 and 338: Private Sub CmdNuevo_Click() TxtCur
- Page 339 and 340: Command1 Command2 Command3 Command4
- Page 341 and 342: End Sub Private Sub CmdCerrar_Click
- Page 343 and 344: Command3 Command4 Caption &Eliminar
- Page 345 and 346: Aplicación Nº 4 Elaborar una apli
- Page 347 and 348: un Comando y denomínelo CmCurso. E
- Page 349 and 350: Etiqueta6 Font Arial (Negrita 10) N
- Page 351 and 352: A continuación sobre el diseñador
- Page 353 and 354: Form1 Frame1 Option1 Option2 Option
- Page 355 and 356: Private Sub CmdSalir_Click() Unload
- Page 357: La presente Guía de Laboratorio de
- Page 361 and 362: Dim A As Circulo Private Sub Form_L
- Page 363 and 364: Nombre FrmPruebaMiControl Caption P
- Page 365 and 366: En seguida, guarde y ejecute su apl
- Page 367 and 368: Luego, haga click sobre la opción
- Page 369 and 370: Ahora hemos llegado a la ventana en
- Page 371 and 372: Proyecto1 Nombre ActiveXNumBox User
- Page 373 and 374: ejemplo 5 de Setiembre de 1752. El
- Page 375 and 376: usuario: A continuación proceda a
- Page 377 and 378: Command1 Nombre BdgrdTabla Font Ari
- Page 379 and 380: Case 0 Call MostrarAlumno Case 1 Ca
- Page 381 and 382: ingrese en el cuadro de texto adjun
- Page 383 and 384: Objetivos capaz de: Luego de comple
- Page 385 and 386: Para crear la interfaz de la aplica
- Page 387 and 388: TxtTabla.Value = S Else TxtTabla.Va
- Page 389 and 390: Luego haga click en el botón Acept
- Page 391 and 392: Button2 Button3 Button4 Nombre CmdA
- Page 393 and 394: DeCursosLibres.rsCmCurso.MoveFirst
- Page 395 and 396: Seleccion1 Nombre SelProfe Id SelPr
- Page 397 and 398: GUÍA DE LABORATORIO Nº 12 Objetiv
- Page 399 and 400: Aplicación Nº 2 Desarrollar una a
- Page 401 and 402: De la siguiente pantalla Ud. podrá
- Page 403 and 404: Uno de los temas en los que Windows
- Page 405 and 406: De manera análoga a los demás cas
- Page 407 and 408: Continuar de manera similar con las
GUÍA DE LABORATORIO Nº 9<br />
Objetivos<br />
Luego de completar este laboratorio, el estudiante será<br />
capaz de:<br />
• Crear y utilizar clases dentro de una aplicación <strong>Visual</strong><br />
<strong>Basic</strong>.<br />
• Diseñar y utilizar controles ActiveX personalizados.<br />
Consideraciones<br />
Para el desarrollo del presente laboratorio Ud. deberá<br />
crear una carpeta C:\FundVB\Lab9, para guardar sus trabajos<br />
correspondientes a este laboratorio.<br />
Aplicación Nº 1<br />
Implementar una clase denominada Circulo, la cual debe<br />
contar con las propiedades públicas Radio y Area. Para tal fin<br />
seleccione la opción Agregar módulo de clase del Menú Proyecto:<br />
En la ficha Nuevo seleccione la opción Módulo de clase y<br />
haga click en Abrir. En seguida active la ventana de<br />
propiedades y cambie el nombre de la nueva clase por Circulo.<br />
Pág. 358