lunes, 9 de febrero de 2015

Control Windows Media Player en un UserForm.

Aprenderemos hoy un par de aspectos sobre el control de Windows Media Player al ser usado en un UserForm. También veremos las tres propiedades fundamentales para controlarlo: .Play, .Pause y .Stop

Lo primero que deberemos hacer será extraer al Cuadro de herramientas dicho control. Para ello presionaremso botón derecho del ratón y buscaremos Controles adicionales, en la ventana que aparezca buscaremos Windows Media Player:

Control Windows Media Player en un UserForm.



A continuación incluiremos dicho control en un UserForm previamente insertado... además, de tres botones para controlar el Inicio, Pausa y Paro (aunque el control ya posee estas acciones incorporadas); estos botone sservirán para ejemplarizar el uso de las propiedades comentadas: .Play, .Pause y .Stop
Este sería el resultado:

Control Windows Media Player en un UserForm.


Los nombres asignados a cada control:
control Windows Media Player: WindowsMediaPlayer1
control botón Play: BtnPlay
control botón Pausa: BtnPausa
control botón Stop: BtnParo


A continuación lo importante en un UserForm, el desarrollo del código:

Private Sub UserForm_Initialize()
'carga la pista desde la ubicación indicada...
WindowsMediaPlayer1.URL = "C:\Users\Public\Music\Sample Music\Kalimba.mp3"
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub BtnPlay_Click()
WindowsMediaPlayer1.Controls.Play
End Sub
Private Sub BtnPausa_Click()
WindowsMediaPlayer1.Controls.pause
End Sub
Private Sub BtnParo_Click()
WindowsMediaPlayer1.Controls.stop
End Sub



El uso práctico es que podremos controlar el sonido desde cualquier otro evento, incluso otros UserForm...

Algo interesante es que este control de WMP admite prácticamente todos los formatos de audio y vídeo.A tener en cuenta...

No hay comentarios:

Publicar un comentario en la entrada