WindowsMediaPlayer

[Peer31]

Wie kan me helpen?
Ik wil de WindowsMediaPlayer gebruiken in MicrosoftVisualBasic 2008 Express.
De tool AxWindowsMediaplayer1 en OpenFileDialog1 staan al klaar.
Het volgende heb ik al:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strInfo As String

OpenFileDialog1.Filter = "wmv bestanden| *wmv"
OpenFileDialog1.ShowDialog()

strInfo = OpenFileDialog1.FileName


End Sub
Ik kan nu dus een video van mijn computer aan.
Nu moet ik verder met AxWindowsMediaplayer1.
Wat moet er achter de punt?
En welke commando's moeten er nog bij?

Groetjes

 

[WILLIAMXXX]

uit mijn hoofd gezegd iets van:

axwindowsmediaplayer.url = openfiledialog.filename

zoiets^

 

[Peer31]

Nee zo kom ik er niet.
Groetjes,
Peer

 

[WILLIAMXXX]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strInfo As String

OpenFileDialog1.Filter = "wmv bestanden| *wmv"
OpenFileDialog1.ShowDialog()

strInfo = OpenFileDialog1.FileName
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

End Sub

Probeer werkt echt!!!

 

[Peer31]

William hartstikke bedankt, het werkt !!
Nu durf ik jou de volgende vraag ook te stellen:
Hoe kan ik de tool Microsoft Multimedia Control vinden? Bij VB net kon je die toevoegen aan de toolbox. Die moet bij Visual Basic 2008 express toch ook te vinden zijn of werk je dan ook met de mediaplayer denk ik nu ineens!
Groetjes,
Peer

 

[WILLIAMXXX]

Ik snap het niet helemaal hoor

Maar als je met een control wilt werken die niet in je toolbox staat moet je hem toevoegen met de functie Choose Toolbox Items...

 

[Pizara]

heb je niet nodig. alles zit in de axWindowsMediaPlayer1.

maar wat zou je willen instellen dan?

 

[Peer31]

Pizara,

Dat ik songs kan afspelen.
Groetjes,

 

[WILLIAMXXX]

Dat kan gewoon met dezelfde code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strInfo As String

OpenFileDialog1.ShowDialog()

strInfo = OpenFileDialog1.FileName
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

End Sub

Alleen hebben we nu geen filter meer dus alles kan geopend worden...

 

[Pizara]

.URL = "c:\blabla.mp3"

zou gewoon automatisch moeten starten hoor.

 

[Peer31]

MediaPlayer

Hallo William,

Het is allemaal opgelost. Voorheen ( ook nog bij VB net ) had je voor muziek een stel knoppen als cd-speler. Nu gaat video en muziek via WindowsMediaPlayer.
Bedankt nog,
Peer