advancing

[lee123]

if you have a list box with music in them how do you have it advance to the next one down to the next song when the one is over?

lee123

[debasisdas]

try to increase the listindex by 1.

[lee123]

well i really don't know if this is right because i tried doing this and it didn't work

Private Sub List1_Click()
    WindowsMediaPlayer1.URL = List1.Text
    List1.ListIndex 1    
End Sub

if this isn't right then how is it done, or do i stick this code in somewhere else? because when you try this:

Private Sub List1_Click()
    WindowsMediaPlayer1.URL = List1.Text
    List1.ListIndex + 1    
End Sub

it won't except the "+" sign

lee123

[lee123]

By the way i am using vb6 and a windows media player in my project

lee123

[QVeen72]

Hi,

I guess, you have to write the code in StatusChange() Event of the media player..
Check for WMP.Status
If WMP.Status = "Finished" Then


Regards
Veena

[lee123]

well i still can't get it to work now i have placed this in the "status change" and entered in this:

Private Sub WindowsMediaPlayer1_StatusChange()
    If WindowsMediaPlayer1.Status = "finished" Then
        WindowsMediaPlayer1.URL = List1.Text
        List1.ListIndex = List1.ListIndex + 1
    End If
End Sub

but nothing, mayby you can tell me whats wrong or what i can do.

lee123

[debasisdas]

try using this

List1.ListIndex = List1.ListIndex + 1
WindowsMediaPla yer1.URL = List1.list(list 1.listindex)


do not forget to check listcount before incrementing the listindex

[lee123]

so do i put this in the WindowsmediaPla yer
like this:

Private Sub WindowsMediaPlayer1_StatusChange()
    If WindowsMediaPlayer1.Status = "finished" Then
        List1.ListCount
        List1.ListIndex = List1.ListIndex + 1
        WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
    End If
End Sub

or in the listbox itself like this:

Private Sub List1_Click()
     WindowsMediaPlayer1.URL = List1.Text
    List1.ListCount
End Sub

or i don't think i understand what you mean or how the listcount works. i have searched in my books but the closes i have come to it is what i have listed here.

lee123

[lee123]

well i got it to go to the next one down but keep getting this error:

runtime error '380'
invalid property value

but this is what i have done:

Private Sub WindowsMediaPlayer1_StatusChange()
    If WindowsMediaPlayer1.Status = "Finished" Then
        List1.ListIndex = List1.ListIndex + 1
        WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
        List1.ListIndex = List1.ListCount + 1
 End If

can this be fixed to where i don't have an error? I have tried doing this error handler

On Error Resume Next

But that didn't work either what else can i do? or is this the way the code is suppose to be like?

lee123

[QVeen72]

Hi,

You need to Check if it is not the Last Index in the List..

If List1.ListIndex < (List1.ListCount-1) Then
    List1.ListIndex = List1.ListIndex + 1
End If
 

Regards
Veena