190 likes | 389 Views
Manual del reproductor. Por: Carlos Eduardo Jara Vasquez 7-14. Pasos para hacer el Diseño del Reproductor Grafico. 1er Paso. Ingresar a Microsoft Office Word. 2ndo Paso. Presionar “ Alt + F11” . 3er Paso. “Insertar” “ Userform ”. 4to Paso. Escribir
E N D
Manual del reproductor Por: Carlos Eduardo Jara Vasquez 7-14
1er Paso • Ingresar a Microsoft Office Word.
2ndo Paso • Presionar “Alt + F11”
3er Paso • “Insertar” “Userform”
4to Paso Escribir • “Name” FRMReproductor • “Back Color” Paleta “Escoges Color”
5to Paso (Hacer pantalla para reproducir videos) • Presionar “Cuadro de Herramientas” • Click derecho (en el cuadro que aparece) Controles adicionales Windows Media Player Click
6to Paso • Click en Pantalla “Name” (Escribo) WMPPantalla
7mo Paso • (Personalizada) “Cambiar” • “Quitar” inicio automatico.
8vo Paso • Picture “Click” • Busco imagen • Picture alignment (escogen) • Picture sizemode (escogen)
Botón “Play” (Y demás botones) • Cuadro de herramientas Botón comando Colocamos Botón “Name” (Escribo) CMDPLay Caption (Escribo) Play
Botón “Play” (Y demás botones) • Doble click en boton “Play” Private Sub CMDPlay_Click() WMPPantalla.Controls.play End Sub
CBOLista • “Click” Cuadro de herramientas “Click” Cuadro combinado • “Name” CBOLista • Dentro de la lista escribo “elija un video”
CBOLista • Doble click en formulario Private Sub UserForm_Activate() PrivateSub UserForm_Activate() CBOlista.AddItem"Me Gusta la Palabra Libertad" CBOlista.AddItem"Color Esperanza" CBOlista.AddItem"La Calle“ EndSub
CBOLista • (Play) Doble click en CBOListaPrivateSub CBOlista_Change() Select Case CBOlista.ListIndex Case 0 WMPPantalla.URL = ActiveDocument.Path & ("/Videos/Me Gusta la Palabra Libertad.WMV") Case 1 WMPPantalla.URL = ActiveDocument.Path & ("/Videos/color esperanza.WMV") Case 2 WMPPantalla.URL = ActiveDocument.Path & ("/Videos/la calle.WMV") EndSelect End Sub