​
كود تشغيل الملفات الصوتية متتالية


كود:

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Me.Timer1.Start()
If Me.ListBox1.SelectedIndex = 1 Then
Me.AxWindowsMediaPlayer1.URL = "الملف "
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
If Me.ListBox1.SelectedIndex = 2 Then
e.AxWindowsMediaPlayer1.URL = "الملف 2"
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
If Me.ListBox1.SelectedIndex = 3 Then
Me.AxWindowsMediaPlayer1.URL = "الملف3"
End If
If Me.ListBox1.SelectedIndex = 4 Then
Me.AxWindowsMediaPlayer1.URL = "الملف4"
End If
If Me.ListBox1.SelectedIndex = 5 Then
Me.AxWindowsMediaPlayer1.URL = "الملف5"
End If
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.ListBox1.SelectedIndex = 5 Then
Me.AxWindowsMediaPlayer1.Ctlcontrols.pause()
End If
If Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
End If
End Sub