Nombre: Leidy Céspedes Acosta
Sección: 7-16
Año: 2012
Acceder a Microsoft Office Word.
 Pulsar los botones alt+F11
 Un clic en:
 Insertar
 UserForm

Clic en:
 El formulario.
 (Name): FRMReproductor

Clic en:
 El Formulario
 Clic en el “Cuadro de Herramientas”:
 Clic en “Botón de comando”
 Arrastrar los botones hasta el
formulario(10 botones)

•1° Botón de play:
(Name)=CMDPlay
Caption: Play
Picture: Se elije una imagen que represente el
botón play de igual manera a todos los
demás botones
•2°Boton pause:
(Name)=CMDPause
Caption: PAUSE
3° Stop:
(Name): CMDStop
Caption: STOP
4° Adelantar:
(name): CMDAdelantar
Caption: ADELANTAR
5°Retroceder:
(Name): CMDRetroceder
Caption: RETROCEDER
•Volumen:
6°Mas:
(Name): CMDMas
Caption: +
7°Menos:
(Name): CMDMenos
Caption: -
8°Mute:
(Name): CMDMute
Caption: MUTE
9°Encendido y apagado:
(Name): CMDEncendido
Caption: ON/OF
10° Salir:
(Name): CMDSalir
Caption: Salir
Clic en:
•El formulario.
•Cuadro de herramientas
•Clic derecho en el cuadro de
herramientas.
Seleccionar:
• Controles Adicionales.
•Windows Media Player.
•Aceptar.

•Seleccionar en el cuadro de herramientas el
ícono de Windows Media Player.
•Arrastrar hasta el formulario
•Clic sobre el ícono de Windows Media
Player ya arrastrado en el formulario.
•(Name): WMPPantalla
•(Personalizado):
En Disposición de controles seleccionamos:
•Seleccione un modo: None
• Y en opciones de reproducción quitamos
todas las marcas que seleccionen
opciones.







Descargo una imagen de internet de un
reproductor de video(T.V, celular, tableta…)
Clic en:
El formulario
Picture […]
Seleccionamos la imagen
Aceptar
Sobre la pantalla de la imagen insertamos la
pantalla de color negra (Windows media
Player)
Clic en:
•El formulario
•Cuadro de herramientas
•Cuadro combinado(arrastrar hasta el
formulario)

•Clic sobre el cuadro combinado del
formulario.
(Name): CBOLista
•Sobre la lista escribimos: “ELIJE UN VIDEO”
*Para programar cada botón se debe dar doble clic
sobre cada uno.
•PLAY:
Private Sub CMDPlay_Click()
WMPPantalla.Controls.play
End Sub
•PAUSE:
Private Sub CMDPause_Click()
WMPPantalla.Controls.pause
End Sub
•STOP:
Private Sub CMDStop_Click()
WMPPantalla.Controls.pause
End Sub
•ADELANTAR:
Private Sub CMDAdelantar_Click()
WMPPantalla.Controls.fastForward
End Sub
•Retroceder:
Private Sub CMDRetroceder_Click()
WMPPantalla.Controls.fastReverse
End Sub
•MAS:
Private Sub CMDMas_Click()
WMPPantalla.settings.volume = WMPPantalla.settings.volume + 10
End Sub
•MENOS:
Private Sub CMDMenos_Click()
WMPPantalla.settings.volume = WMPPantalla.settings.volume - 10
End Sub
•MUTE:
Private Sub CMDMute_Click()
If WMPPantalla.settings.mute = True Then
WMPPantalla.settings.mute = False
Else
WMPPantalla.settings.mute = True
End If
End Sub
•SALIR:
Private Sub CMDSalir_Click()
ThisDocument.Application.Visible = True
ThisDocument.Application.Quit
End Sub

Dim estado As Boolean
Private Sub CMDEncendido_Click()
If estado = False Then
CMDPlay.Enabled = True
CMDPause.Enabled = True
CMDStop.Enabled = True
CMDAdelantar.Enabled = True
CMDRetroceder.Enabled = True
CMDMas.Enabled = True
CMDMenos.Enabled = True
CMDMute.Enabled = True
CMDSalir.Enabled = True
CBOLista.Enabled = True
estado = True
Else
CMDPlay.Enabled = False
CMDPause.Enabled = False
CMDStop.Enabled = False
CMDAdelantar.Enabled = False
CMDRetroceder.Enabled = False
CMDMas.Enabled = False
CMDMenos.Enabled = False
CMDMute.Enabled = False
CMDSalir.Enabled = False
CBOLista.Enabled = False
estado = False
End If
End Sub
• Private Sub CBOLista_Change()
Select Case CBOLista.ListIndex
Case 0
WMPPantalla.URL = ActiveDocument.Path & ("/videos/Gritar.WMV")
Case 1
WMPPantalla.URL = ActiveDocument.Path & ("/videos/color esperanza.WMV")
Case 2
WMPPantalla.URL = ActiveDocument.Path & ("/videos/no basta.WMV")
End Select
End Sub
*No siempre el URL va a ser el mismo, va a variar dependiendo de donde se
encuentre el video, el nombre del video o donde se encuentre ubicado el
reproductor.
*Al dar doble clic en la lista se cambia “change” por “activate”
•Private Sub UserForm_Activate()
CBOLista.AddItem "Gritar"
CBOLista.AddItem "color esperanza"
CBOLista.AddItem "no basta"
End Sub
*Si el video o los videos tiene un nombre distinto se cambia el
nombre “Gritar, color esperanza o no basta” por el nombre
del video que se tenga que agregar al reproductor


Seleccionar la tecla de guardar o (ctrl+G)
Guardar como tipo: Documento habilitado con
macros de Word.
Descargar

Pasos para hacer un reproductor