Styre play/pause knappen i Mediaplayer fra VBA

[noccy]

Finnes det en måte å styre play/pause knappen i Mediaplayer fra VBA på?

 

Jeg ønsker å legge inn en knapp i et skjema som styrer play/pause knappen.

 

Forslag?

[noccy]

Jeg har prøvd med Mediaplayer.Play, men jeg tror det bare vil fungere hvis jeg har lagt inn en Media Player kontroll..........

[hansarsclient]

my.computer.audio.pause lerno?

[Harald Staff]

Ja du må bruke en mediaplayer activex-kontroll i skjemaet (eller hvorsomhelst). Den trenger verken være stor eller synlig. Kodeeksempler

 

Private Sub CommandLoad_Click()
Me.Mediaplayer.settings.autoStart = False
Me.Mediaplayer.URL = "C:\Users\Harald\Music\werksman-02-pleasure___pain.mp3"
End Sub

Private Sub CommandPlay_Click()
Me.Mediaplayer.Controls.Play
End Sub

Private Sub CommandPause_Click()
Me.Mediaplayer.Controls.pause
End Sub

Private Sub CommandStop_Click()
Me.Mediaplayer.Controls.stop
End Sub

 

Hvis du skriver Option Explicit øverst i modulene dine får du god hjelp av intellisense når du koder for slike kontroller.

 

Vær obs på at mediaplayerkontrollen har det med å krasje hvis du skifter kodek via kode -dvs hvis du går fra en mediatype til en annen. Hold deg til bare wav eller bare mp3 innen en sesjon for en mediaplayer så skal du ikke få trøbbel.

 

HTH. Beste hilsen Harald