Mediaplayer1, Lautstärkeänderung auslesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Mediaplayer1, Lautstärkeänderung auslesen von: Heiko S.
Geschrieben am: 30.03.2005 21:05:12

Hallo Forum,

habe mir mit EXCEL eine MP3 Verwaltung gebastelt. Im Programm enthalten ist auch eine Playlist die über den Mediaplayer1 (befindet sich auf einem nicht modalen Userform) abgespielt werden kann.

Mit diesem Code wird eine abzuspielende Datei geladen, der Player gestartet und die Lautstärke gesetzt. Funktioniert auch einwandfrei.

MediaPlayer1.filename = strMP3Pfad
MediaPlayer1.Play
MediaPlayer1.Volume = -250

Nun zu meiner Frage:

Gibt es ein Ereignis das Eintritt wenn die Lautstärke am Player geändert wird? Ich möchte halt die geänderte Lautstärke auslesen und mir abspeichern. Damit bei nächsten mal mit der gleichen Lautstärke abspielen kann.

Danke für eure Bemühungen und Antworten,
Gruß Heiko

Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: ransi
Geschrieben am: 30.03.2005 21:11:16

hallo

speicher doch die lautstärke beim query_close in einer zelle.
im
userform_initialize kannst du lautstärke wieder setzen.

MediaPlayer1.filename = strMP3Pfad
MediaPlayer1.Play
MediaPlayer1.Volume = [a1]

rnsi


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Heiko S.
Geschrieben am: 30.03.2005 21:25:01

Hallo Ransi,

danke für deinen Tipp, hat aber leider nicht den gewünschten Erfolg gebracht.
Denn das ist ja genau mein Problem, wenn ich die Lautstärke verändert habe und z.B. über deinen Weg QueryClose die Lautstärke beim schließen auslese, dann trägt er mir immer die -250 ein, die ich bei starten gesetzt habe. Habe es auch schon mit -100 usw. probiert, auch dann steht in der Zelle -100 usw.

Hast du noch ne andere Idee, oder nen Tipp wie ich die neu eingestellte Lautstärke einlesen kann.

Gruß Heiko


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Ramses
Geschrieben am: 30.03.2005 21:40:57

Hallo

müsst folgendermassen gehen

x = me.mediaplayer.settings.volume

Sollte einen Wert von 0 - 100 zurückgeben.

Gruss Rainer


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Heiko S.
Geschrieben am: 30.03.2005 21:50:03

Hallo Rainer,

Danke für deinen Tipp, er tut´s aber leider auch nicht.

wenn ich das Settings da einbaue kriege ich ne Fehlermeldung.

Bei dieser Version, "Methode oder Datenobjekt nicht gefunden"
x = me.mediaplayer.settings.volume
Bei dieser Version, "Objekt unterstützt Eigenschaft oder Methode nicht"
x = me.mediaplayer1.settings.volume


Also weitersuchen, habe vor ein paar Stunden gedacht das wäre ein Quickie, nun wurde ich eines besseren belehrt. Ja ja die unergründlichen Tiefen von VBA, Excel und Microsoft.


Gruß Heiko


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Ramses
Geschrieben am: 30.03.2005 21:56:26

Hallo

hast du die Anweisung wo benannt wie dein Object heisst ? ;-)

Gruss Rainer


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Heiko S.
Geschrieben am: 30.03.2005 22:04:18

Hallo Rainer,

mein Objekt heißt MediaPlayer1 und ich habe, unter anderem, diese Zeile probiert.
x = me.mediaplayer1.settings.volume

VBA bietet mir aber auch garnicht die Settings Methode für meinen Mediaplayer an.
Soll heißen, wenn ich Mediaplayer1. geschrieben habe kommt ja von VBA dieses Auswahlfenster rechts neben dem Punkt. In dem man die Methoden auswählen kann, da ist bei mir kein Settings drin.

Noch Ideen ?

Gruß Heiko


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Ramses
Geschrieben am: 30.03.2005 22:09:44

Hallo

nachdem bei mir die Anweisung sowohl unter XP wie auch unter 2003 mit dem Mediaplayer Object basierend auf der WPM.DLL im Windows/System32 problemlos funktioniert, muss ich leider passen für deine Version.

Schau mal hier vorbei, vielleicht findest du da was brauchbares

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmplay10/mmp_sdk/usingwindowsmediaplayerwithvisualbasic.asp

Gruss Raienr


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Heiko S.
Geschrieben am: 30.03.2005 22:35:18

Hallo Rainer,

danke für den Tipp mit dem Link, werde ich mir morgen mal anschauen. Vielleicht finde ich ja was.


Für weitere Tipps, hier noch ein paar Infos von mir.

Den Player den ich nutze ist die
Version 6.4.07.1121
und ich ich habe Ihn in mein Userform eingefügt über zusätzliche Steuerelemente.
EXCEL Version 9.0 Office 2000

Danke für weitere Tipps und erstmal gute Nacht,
Gruß Heiko


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Ramses
Geschrieben am: 30.03.2005 23:45:39

Hallo

Bin gerade von Nepumuk auf deine Playerversion aufmerksam gemacht worden.
Sorry,... das ist ja schon "Steinzeit" :-)
Keine Lösung dafür,... aber lade dir doch die aktuelle version von MS runter.
Gratis und Frei,... dann klappt's auch mit den Settings :-)

http://www.microsoft.com/windows/windowsmedia/mp10/default.aspx

Gruss Rainer


Bild


Betrifft: AW: Mediaplayer1, Lautstärkeänderung auslesen von: Heiko S.
Geschrieben am: 31.03.2005 11:08:15

Hallo Rainer,

hätte da noch zwei Fragen.

1. Wenn ich den Mediaplayer vom Desktop aus aufrufe und mir die Version anschaue dann habe ich da die Version 8...
In meinem EXCEL Programm auf dem Userform die Version 6...
Also ist die Version die ich in EXCEL auf dem Userform über zusätzliche Steuerelemente einbaue eine andere als der in unter Windows direkt genutzt wird.
Man hat also verschiedene Versionen davon auf dem Rechner.

Dazu meine Frage:
Ist die "alte" 6er Version immer im Hintergrund vorhanden?
Ist das ein Zusatz von VBA ?

Bei mir hier in der Firma auf XP wie Zuhause auf ME läuft mein Prgramm nämlich einwandfrei. Wenn die 6er Version immer drauf wäre, wäre das ja garnicht so schlecht, denn dann brauche ich mir über die Mediaplayer Version die auf dem Rechner "normal" genutzt wird keine Gedanken zu machen, mein Programm würde auf verschiedenen Rechner immer auf die 6er Version zurückgreifen.
Den Lautstärke Regler baue ich mir dann selbst und blende den vom Mediaplayer aus.

2. Wenn ich mir die Version 10 runterlade, hättest du da einen Tipp wie ich den auf mein Userform kriege. Über zusätzliche Steuerelemente bekomme ich immer nur die Version 6.


Danke für Antworten und Tipps im voraus,
Gruß Heiko


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Mediaplayer1, Lautstärkeänderung auslesen"