WindowsmediaPlayer per VBA starten
Jürgen Dietze
Hallo zusammen,
ich habe in einer Userform ein WindowsMediaplayer-Objekt eingeführt.
Über eine Listbox lese ich die Videos ein. Jetzt möchte ich gerne, dass wenn
sich die Playlist ändert, das geladene Video automatisch startet. (Nicht als
separates Fenster, sondern im Objekt auf der Userform).
Wie mache ich das?
Gruß
Jürgen Dietze
Martin Hentrich
<Jrgen...@discussions.microsoft.com> wrote:
>�ber eine Listbox lese ich die Videos ein. Jetzt m�chte ich gerne, dass wenn
>sich die Playlist �ndert, das geladene Video...
Welches ist denn dann das "geladene" Video aus einer Liste von x
Videos?
>... automatisch startet.
Wer sucht denn das "geladene" Video aus der Playlist aus?
Soll es das erste sein, das "automatisch" startet?
>(Nicht als
>separates Fenster, sondern im Objekt auf der Userform).
Martin
--
Die populistische Steuerreform:
Sich auf den Tarif zu konzentrieren ist wie das
Polieren des I-Punkts in der deutschen Grammatik.
Beverly
die folgenden Codezeile lädt das Video und startet es sofort:
DeinPlayer.URL = "C:\Test\Video1.wmv"
Bis später,
Karin
http://beverly.excelhost.de/
Andreas Killer
<JrgenDie...@discussions.microsoft.com> wrote:
> ich habe in einer Userform ein WindowsMediaplayer-Objekt eingeführt.
>
> Über eine Listbox lese ich die Videos ein. Jetzt möchte ich gerne, dass wenn
> sich die Playlist ändert, das geladene Video automatisch startet. (Nicht als
> separates Fenster, sondern im Objekt auf der Userform).
Wenn Du möchtest das die Titel nacheinander abgespielt werden, dann
mußt Du die Playliste im Mediaplayer identisch mit Deiner Listbox
aufbauen und abspielen.
Andreas.
Option Compare Text
Private Sub UserForm_Initialize()
Const Ordner = "C:\SURFCAM\Surf2003\MultimediaTutor\"
Dim fs As Object, F As Object
Set fs = CreateObject("Scripting.FileSystemObject")
With WindowsMediaPlayer1
'Playliste leeren
.currentPlaylist.Clear
For Each F In fs.GetFolder(Ordner).Files
Select Case fs.GetExtensionName(F.Name)
Case "WAV"
'Listbox und Playliste identisch aufbauen
ListBox1.AddItem F.Name
.currentPlaylist.appendItem .newMedia(Ordner & F.Name)
End Select
Next
'Playliste abspielen
.Controls.Play
End With
End Sub
Private Sub ListBox1_Click()
With WindowsMediaPlayer1
'Zu diesem Lied springen
.Controls.playItem .currentPlaylist.Item(ListBox1.ListIndex)
End With
End Sub