Office: WindowsMediaPlayer Control erstellen und bearbeiten

Hallo Zusammen,

ich möchte während der Runtime ein WindowsMediaPlayer-Control in meiner Userform erstellen und anpassen. Leider weiß ich nicht wie der Syntax aussehen muss. Im Anschluss möchte ich das Control anpassen.

Wenn möglich möchte ich sämtliche Funktionen deaktivieren sodass der Benutzer weder Play noch anderes durführen kann. Sprich ich möcht per Code alles steuern und im Anschluss das Control wieder löschen. Ist das möglich?

Beste Grüße
iSven

:)

 

Hallo Sven,

so:

Option Explicit

Const WMPLAYER_NAME As String = "MediaPlayer"

Private Sub UserForm_Initialize()
Dim objMediaPlayer As WindowsMediaPlayer
Set objMediaPlayer = Controls.Add(BstrProgID:="WMPlayer.OCX.7", Name:=WMPLAYER_NAME)
With objMediaPlayer
.uiMode = "none" 'alle Controls ausblenden
.Left = 10
.Top = 10
.Width = Width - 30
.Height = Height - 48
End With
End Sub

Private Sub UserForm_Terminate()
Call Controls.Remove(WMPLAYER_NAME)
End Sub

 

Hallo Nepumuk,

Danke für die Hilfe. Da wäre ich nicht drauf gekommen. Meine Suchen haben nie was ergeben.

Lieg ich richtig dass ich mit "Private Sub WindowsMediaPlayer1_EndOfStream(ByVal Result As Long)" einen Code aufrufen kann der ausgeführt wird wenn die Media-Datei zuende abgespielt wurde? Oder ist es "Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)"?

Gibt es evtl. eine Anleitung für den Control indem ich die Antworten finden kann?

 

Hallo Sven,

ich kenne keine Seite außer die Anleitung von Microsoft welche die Eigenschaften und Methoden des Controls erklärt. Aber die habe ich vor 20 Jahren gefunden, keine Ahnung ob es die noch gibt.

Ich nehme mal an, du willst das Control nach dem Ende des Videos wieder löschen. Das geht nur über eine Klasse des Mediaplayers. Ich hab dir mal eine Beispiel gemacht:

 

Ah OK dann wird das doch aufwändiger.

Meine Aufgabe besteht darin auf verschiedene Art und Weise den Media Player zu nutzen.

Musik
- Ich möchte Hintergrundmusik laufen lassen wenn die Userform öffnet. In einer Endlosschleife sollte diese Musik wiederholt werden bis die Userform schließt. "Nice to Have" wäre eine Playliste die sich wiederholt (Hintergrundmusik).
- Wenn eine Taste gedrückt wird soll ein Sound abgespielt werden. Dabei aber die Hintergrundmusik nicht unterbrechen.
- Bei beiden Punkten soll der Media Player nicht zu sehen sein (Visible = False)

Video
- Ich möchte mit einer zweiten Taste ein Video in einem kleinen Bereich der Userform Abspielen. Der Media Player ist also sichtbar. Ist das Video abgelaufen soll das Control wieder gelöscht werden.
- Mit einer dritten Taste soll ein Video im Vollbild ablaufen. Ist das Video abgelaufen soll das Control wieder gelöscht werden.

Allgemein
- Mein Gedanke ist dass, in keinem der oben genannten Fälle, der Benutzer keine Möglichkeit hat den Media Player zu steuern. Das soll der Code übernehmen.
- Natürlich soll es Möglich sein während der Player läuft andere Funktionen der Userform durchzuführen.

Ich dachte mir für jede Media-Datei ein eigenes Control zu erstellen, dementsprechend anzupassen und im Anschluss wieder zu entfernen.

Hört sich nach viel Arbeit an.

Deine Datei öffnet mir schon langsam die Augen.

 

Hallo Sven,

ich hab dir mal die Hintergrundmusik und die Musik per CommandButton eingebaut. Zu mehr hatte ich jetzt keine Lust.

 

Ich denke das war bereits mehr als ausreichend.

Vielen Dank Nepumuk, ich finde deine Beiträge immer sehr konstruktiv und Hilfreich.
Ich werde mir jetzt die Zeit nehmen und reinarbeiten.

Schönes Wochenende dir!

Sven

 

Hallo Sven,

ich hab dir noch das Video eingebaut. Vom Fullscreen-Video würde ich abraten, das lässt sich nicht mehr kontrollieren.

 

Hallo Max,

warum nicht einfach über MCISendstring ?

Sabina

 

Hallo Sabina,

ich weiß nicht wie ich da eine Playlist erstellen und in einer Endlosschleife laufen lassen kann. Und ich empfinde den Mediaplayer nicht allzu schwer zu programmieren da ich den kenne. Zudem kann Sven damit eher was anfangen als mit massig API-Gedöns.

 

Hallo Nepumuk,

danke für die Videoimplementierung.
Aktuell wiederholt sich in deinem Beispiel die Musik nicht. Es werden alle Lieder abgespielt und danach bleibt es ruhig.
Ist hier noch ein bug oder benötige ich andere Vorraussetzungen?

Nachtrag:
Bei einer einzelnen Datei funktioniert die Wiederholung, bei 2 oder mehreren Dateien geht es nicht.

Grüße Sven

 

Hallo Max,

in MCISendstring gibt es das Wait- und das Notify-Flag, das wartet, bis das Playback beendet ist und übergibt dann erst wieder die Steuerung an das Programm.

MciSendString "Play C:\Irgendeine.MP3 Wait", vbNullstring, 0 , vbNullString

Sabina

 

Hallo Sven,

da erwies sich der Player doch widerspenstiger als gedacht. Ich musste das neu laden der Playlist mit OnTime entkoppeln damit es funktioniert.

@Sabina,

das muss ich mir bei Gelegenheit mal näher ansehen.

 

Hallo Sabina,

habe es probiert. Die API spielt dann aber nicht asynchron und damit ist auf dem Userform nichts mehr zu klicken. Mit dem Mediaplayer geht das.

 

Hallo Zusammen,

@ Nepumuk
Ok das war doch etwas aufwändiger *Smilie

Ich habe mich in die Materie schon gut reinarbeiten und deinen Code auf meine Bedürfnisse anpassen können.

Vielen Dank für deine Hilfe. Mir fehlt nicht mehr viel. Sobald ich durch bin schließ ich den Thread.

@ Sabina
Danke auch dir Sabina für einen alternativen Ansatz. Wie bereits Nepumuk geschrieben hatte möchte ich die UserForm parallel verwenden. Von daher mach ich es mit dem Windows Media Player.

Beste Grüße Sven