1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Luego proceda a ubicar los siguientes controles en el formulario: 2 etiquetas 2 cajas de texto 3 botones de comando A continuación proceda a establecer las propiedades según se indica: Form1 Label1 Label2 Text1 Text2 Nombre FrmEjemClaseCirculo Caption Ejemplo con la clase Circulo Nombre LblRadio Caption Radio: Nombre LblArea Caption Area: Nombre TxtRadio Text Nombre TxtArea Text Una vez que ha establecido las propiedades indicadas, proceda a ingrese el siguiente código para el formulario de prueba: Pág. 360
Dim A As Circulo Private Sub Form_Load() Set A = New Circulo End Sub Private Sub Form_Unload(Cancel As Integer) Set A = Nothing End Sub Private Sub TxtRadio_Change() A.Radio = TxtRadio TxtArea = A.Area End Sub Guarde y pruebe su aplicación. El resultado debe ser similar a la siguiente figura: Aplicación Nº 2 Diseñar un control ActiveX que muestre el mensaje “Bienvenido al Mundo de la Programación con ActiveX”. Adicionalmente, el control debe permitir al usuario la posibilidad de cambiar el color del texto. Para comenzar nuestra aplicación, debe ingresar a Visual Basic y en la ventana de diálogo Nuevo Proyecto seleccione Control ActiveX, y luego haga click en el botón Aceptar. Pág. 361
- 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 and 358: La presente Guía de Laboratorio de
- Page 359: La ventana de código de la clase d
- 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
- Page 409 and 410: Al hacer click en el botón Guardar
Dim A As Circulo<br />
Private Sub Form_Load()<br />
Set A = New Circulo<br />
End Sub<br />
Private Sub Form_Unload(Cancel As Integer)<br />
Set A = Nothing<br />
End Sub<br />
Private Sub TxtRadio_Change()<br />
A.Radio = TxtRadio<br />
TxtArea = A.Area<br />
End Sub<br />
Guarde y pruebe su aplicación. El resultado debe ser<br />
similar a la siguiente figura:<br />
Aplicación Nº 2<br />
Diseñar un control ActiveX que muestre el mensaje<br />
“Bienvenido al Mundo de la Programación con ActiveX”.<br />
Adicionalmente, el control debe permitir al usuario la<br />
posibilidad de cambiar el color del texto.<br />
Para comenzar nuestra aplicación, debe ingresar a <strong>Visual</strong><br />
<strong>Basic</strong> y en la ventana de diálogo Nuevo Proyecto seleccione<br />
Control ActiveX, y luego haga click en el botón Aceptar.<br />
Pág. 361