1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Command2 Command3 Nombre CmdImprimir Caption Imprimir Picture C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Bitmaps\Win95\ Printfld.bmp Style 1-Graphical Nombre CmdSalir Caption Salir Una vez establecidas las propiedades, proceda a ingresar el siguiente código: Private Sub CmdImprimir_Click() If OptTablaAlumno.Value Then DataReport1.PrintReport True ElseIf OptTablaCurso.Value Then DataReport2.PrintReport True ElseIf OptTablaLaboratorio.Value Then DataReport2.PrintReport True End If End Sub Private Sub CmdVistaPrevia_Click() If OptTablaAlumno.Value Then DataReport1.Show ElseIf OptTablaCurso.Value Then DataReport2.Show ElseIf OptTablaLaboratorio.Value Then DataReport2.Show End If End Sub Pág. 354
Private Sub CmdSalir_Click() Unload Me End Sub Cuando ejecute la aplicación, al dar un click en el botón Imprimir se visualizará el siguiente cuadro de diálogo, el cual nos permitirá confirmar o cancelar la impresión: Aplicación Nº 4 Diseñar un reporte combinando datos de la tabla Curso y Laboratorio. El reporte debe mostrar el código del curso, el nombre del curso, el nombre del profesor de teoría, el nombre del jefe de práctica y el horario de laboratorio. Dar formato al reporte según su criterio. FIN PARTE II Pág. 355
- 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ó
- 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: Form1 Frame1 Option1 Option2 Option
- Page 357 and 358: La presente Guía de Laboratorio de
- Page 359 and 360: La ventana de código de la clase d
- 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
Command2<br />
Command3<br />
Nombre CmdImprimir<br />
Caption Imprimir<br />
Picture C:\Archivos de programa\Microsoft <strong>Visual</strong><br />
Studio\Common\Graphics\Bitmaps\Win95\<br />
Printfld.bmp<br />
Style 1-Graphical<br />
Nombre CmdSalir<br />
Caption Salir<br />
Una vez establecidas las propiedades, proceda a ingresar<br />
el siguiente código:<br />
Private Sub CmdImprimir_Click()<br />
If OptTablaAlumno.Value Then<br />
DataReport<strong>1.</strong>PrintReport True<br />
ElseIf OptTabla<strong>Curso</strong>.Value Then<br />
DataReport2.PrintReport True<br />
ElseIf OptTablaLaboratorio.Value Then<br />
DataReport2.PrintReport True<br />
End If<br />
End Sub<br />
Private Sub CmdVistaPrevia_Click()<br />
If OptTablaAlumno.Value Then<br />
DataReport<strong>1.</strong>Show<br />
ElseIf OptTabla<strong>Curso</strong>.Value Then<br />
DataReport2.Show<br />
ElseIf OptTablaLaboratorio.Value Then<br />
DataReport2.Show<br />
End If<br />
End Sub<br />
Pág. 354
Change language