Discussion :

[shayw]

Bonjour

J'ai une liste de string contenant les chemins des fichier mp3.
Je choisis aléatoirement un fichier de la liste pour le jouer.
Mais parfois le windows media player ne joue pas tout de suite ou même est bloqué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Imports WMPLib
 Private wmp As WindowsMediaPlayer = New WindowsMediaPlayer
  Private Sub Button1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick
        Dim rnd As New Random
        Dim x As Integer
        x = rnd.Next(0, listmusics.Count)
        wmp.URL = listmusics(x)
        Try
            wmp.controls.play()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
 
    End Sub

Merci

[shayw]

voila pas besoin de wmp.controls.play()
il suffit de mettre wmp.settings.autoStart = True dans le load event
et wmp.url = thepath pour jouer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports System.IO
Imports WMPLib
 Private wmp As WindowsMediaPlayer = New WindowsMediaPlayer
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 wmp.settings.autoStart = True
end sub
 
 Private Sub Button1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick
        Dim rnd As New Random
        Dim x As Integer
        x = rnd.Next(0, listmusics.Count)
        wmp.URL = listmusics(x)
 
   End Sub