Prev: Error using FAXCOMEXLib
Next: convert image to array of bytes or InPtr
From: Jerry Spence1 on 6 Dec 2007 06:17
If I've understood correctly I would have thought the following should do
the trick:

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

Dim Filename As String = ListBox1.SelectedItem
AxWindowsMediaPlayer1.URL = Filename
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object,
ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles
AxWindowsMediaPlayer1.PlayStateChange
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded
Then
If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Else

'Start at the top of the list again if needed

ListBox1.SelectedIndex = 0

End If

End If

End Sub




"Lim Eng Keong" <admin(a)infoct.net> wrote in message
news:OWBdIRoCIHA.5712(a)TK2MSFTNGP05.phx.gbl...
> Use timer maybe?
>
> "Cor Ligthert[MVP]" <notmyfirstname(a)planet.nl> wrote in message
> news:86C3A9B2-49D2-4058-9698-52D90BBB586F(a)microsoft.com...
>> Then use that button click and place a label before it, "Next to play".
>>
>> Cor
>


 | 
Pages: 1
Prev: Error using FAXCOMEXLib
Next: convert image to array of bytes or InPtr