1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
2 botones de comando En seguida establezca las propiedades según se indica a continuación: Form1 Image1 Command1 Command2 Nombre FrmMultimedia Caption Hacer sonar un fichero Wav o Midi BorderStyle 3-Fixed Dialog Picture C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\Mike.ico Stretch True Nombre CmdEjecutar Caption &Ejecutar Nombre CmdSalir Caption &Salir Una vez establecidas las propiedades, proceda a ingresar el siguiente código: Private Sub CmdEjecutar_Click() iResult = mciExecute(“Play c:\vbN2\bmp\34.wav”) End Sub Private Sub CmdSalir_Click() Unload Me End Sub Aplicación Nº 3 Pág. 402
Uno de los temas en los que Windows ha creado un estándar es el sistema de ayuda de las aplicaciones. Para ello incluye una aplicación denominada WinHelp como motor de ayuda de Windows. Los pasos necesarios para crear un sistema de ayuda son los siguientes: • Crear un archivo de texto RTF. • Compilar el archivo RTF mediante el compilador de ayudas Help Workshop, para obtener el archivo HLP. • Utilizar el motor de ayuda WinHelp. En vista de lo anterior, lo primero que necesitamos para crear nuestro sistema de ayuda, es un archivo con formato RTF donde se incluirá el texto de la ayuda. Para ello ingrese a Microsoft Word 2000 y digite lo siguiente: Profesor Carlos Castillo Peralta Contenido • Microsoft Visual Basic Nivel I • Microsoft Visual Basic Nivel II • Microsoft Visual Basic Nivel III Microsoft Visual Basic 6.0 Curso de programación En seguida ubique el cursor en la última línea de texto y presione la combinación de teclas Ctrl + Enter, para comenzar en una nueva página. A continuación digite lo siguiente: Pág. 403
- 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 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: De la siguiente pantalla Ud. podrá
- 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
- Page 411 and 412: En seguida se mostrará la siguient
- Page 413 and 414: En la ficha Position defina el tama
- Page 415 and 416: Para cambiar el color de la zona de
- Page 417 and 418: En seguida dar click en el botón V
- Page 419 and 420: A continuación se presentará una
- Page 421: pedirán información referente al
2 botones de comando<br />
En seguida establezca las propiedades según se indica a<br />
continuación:<br />
Form1<br />
Image1<br />
Command1<br />
Command2<br />
Nombre FrmMultimedia<br />
Caption Hacer sonar un fichero Wav o Midi<br />
BorderStyle 3-Fixed Dialog<br />
Picture C:\Archivos de programa\Microsoft <strong>Visual</strong><br />
Studio\Common\Graphics\Icons\Misc\Mike.ico<br />
Stretch True<br />
Nombre CmdEjecutar<br />
Caption &Ejecutar<br />
Nombre CmdSalir<br />
Caption &Salir<br />
Una vez establecidas las propiedades, proceda a ingresar<br />
el siguiente código:<br />
Private Sub CmdEjecutar_Click()<br />
iResult = mciExecute(“Play c:\vbN2\bmp\34.wav”)<br />
End Sub<br />
Private Sub CmdSalir_Click()<br />
Unload Me<br />
End Sub<br />
Aplicación Nº 3<br />
Pág. 402