how to Automatically select next item in listbox

Clarence

Imports WMPLib
Imports System.Web.UI
Imports System.Diagnostics
Imports System
Imports System.Collections.Generic
Imports System.IO


Partial Class cpgFullCDSytes
Inherits System.Web.UI.Page

Public WithEvents wmpPlayer As WindowsMediaPlayer

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If (Not Page.IsPostBack) Then
' MsgBox("Page_Load()")

'Create Player
wmpPlayer = New WMPLib.WindowsMediaPlayer()

'Configure Media Player Here
wmpPlayer.uiMode = "mini"


'Save the reference to Media Player To a session variable
Session.Add("MediaPlayer", wmpPlayer)

Dim lstItem As New ListItem
lstItem.Text = "PlayList"
lstItem.Value = -1
lstPlayList.Items.Add(lstItem)
lstPlayList.SelectedIndex = 0
lstPlayList.SelectionMode = ListSelectionMode.Single
lstPlayList.ControlStyle.BackColor = Drawing.Color.AntiqueWhite
Else
'MsgBox("Page.IsPostBack")

'Get a reference To Our Media Player Object Stored As a Session Value
wmpPlayer = Session.Item("Mediaplayer")
End If
End Sub

Protected Sub wmpPlayer_StatusChange() Handles wmpPlayer.StatusChange
' MsgBox(wmpPlayer.status)
If wmpPlayer.status = "Finished" Then
MsgBox("StatusChange: Finished")
End if
End Sub

Protected Sub wmpPlayer_PlayStateChange(ByVal newState As Int32) Handles wmpPlayer.PlayStateChange

If newState = WMPLib.WMPPlayState.wmppsMediaEnded Then
MsgBox("PlayStateChange: Media Ended")
End If
End Sub



Protected Sub btnPlay_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnPlay.Click
MsgBox("PlayButton")
If lstPlayList.Items.Count > 0 And lstPlayList.SelectedValue = "-1" Then
lstPlayList.SelectedIndex = 1
End If
'wmpPlayer.URL = "wma/3 Doors Down - The Better Life\1 - Kryptonite.wma"
wmpPlayer.URL = "wma/" & lstPlayList.SelectedValue
MsgBox("btnPlay_click - Media Player URL = " & wmpPlayer.URL)


End Sub
End Class

Hey, I am working on a similar project.
Porting my site to asp .net.

This code sniplet handles the media player events, but the events(PlayStateChange & StatusChange) seem to fire off 5 or 6 times for some strange reason, and I do not know ghow to sink these(possibly removeHandler() ). Also I had to use a Session Variable to store the Media Player Object Reference otherwise it loses itself. Please add a reference to WMPLib.dll to the vs2005 project.

From

Posted via DevelopmentNow.com Groups

Jerry Spence1

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" <> wrote in message
news:.gbl...
> Use timer maybe?
>
> "Cor Ligthert[MVP]" <> wrote in message
> news:...
>> Then use that button click and place a label before it, "Next to play".
>>
>> Cor
>

Jerry Spence1

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" <> wrote in message
news:.gbl...
> Use timer maybe?
>
> "Cor Ligthert[MVP]" <> wrote in message
> news:...
>> Then use that button click and place a label before it, "Next to play".
>>
>> Cor
>

Jerry Spence1

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" <> wrote in message
news:.gbl...
> Use timer maybe?
>
> "Cor Ligthert[MVP]" <> wrote in message
> news:...
>> Then use that button click and place a label before it, "Next to play".
>>
>> Cor
>

Jerry Spence1

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" <> wrote in message
news:.gbl...
> Use timer maybe?
>
> "Cor Ligthert[MVP]" <> wrote in message
> news:...
>> Then use that button click and place a label before it, "Next to play".
>>
>> Cor
>

Jerry Spence1

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" <> wrote in message
news:.gbl...
> Use timer maybe?
>
> "Cor Ligthert[MVP]" <> wrote in message
> news:...
>> Then use that button click and place a label before it, "Next to play".
>>
>> Cor
>

Jerry Spence1

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" <> wrote in message
news:.gbl...
> Use timer maybe?
>
> "Cor Ligthert[MVP]" <> wrote in message
> news:...
>> Then use that button click and place a label before it, "Next to play".
>>
>> Cor
>

Jerry Spence1

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" <> wrote in message
news:.gbl...
> Use timer maybe?
>
> "Cor Ligthert[MVP]" <> wrote in message
> news:...
>> Then use that button click and place a label before it, "Next to play".
>>
>> Cor
>

M0rPh3n3

I Myself also created a media Player and struggled with the same problem as the first post but i have used your solution Jerry and it works fin except for the axmediaplayer that should play the selected sings Each time it selects the item but the media layer merely says "opening file" and doesnt play the file Do u know how to fix this problem?

any help is appreciated

M0rPh3n3