A Button To Select The Next Item In A List Box

[MasterStarr]

I Have A Music Player I Made Using A Tutorial In Visual basic 2008 And The Play Button For This Player Plays The Songs Fine, But The Problem Is The Code:

AxWindowsMediaPlayer1.Ctlcontrols.next()

Does Not Play The Next Song Imported Into The List Box. So Rather Than Playing Around With That I Figured It Would Be Easier To Have A Button That Will Just Select The Next Item In The List Box (Becuase The Windows Media Player Tool Is Playing Songs Imported Into The List Box) . Unfortunately I Have No Idea how To Do That, So I Was Hoping Someone Could Help me Out?

Public Class Form1
 
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
 
    Private Sub shadows_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Timer1.Enabled = True
        Timer1.Interval = 1
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Dim F12key As Boolean
        Dim F11key As Boolean
 
        F12key = GetAsyncKeyState(Keys.F12)
        F11key = GetAsyncKeyState(Keys.F11)
 
        If F12key = True Then
            AxWindowsMediaPlayer1.URL = Listbox1.SelectedItem
 
        End If
 
        If F11key = True Then
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
 
        End If
 
 
    End Sub
 
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    OpenFileDialog1.ShowDialog()
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    AxWindowsMediaPlayer1.URL = Listbox1.SelectedItem
End Sub
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub
 
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    AxWindowsMediaPlayer1.Ctlcontrols.next()
End Sub
 
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    AxWindowsMediaPlayer1.Ctlcontrols.previous()
End Sub
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
End Sub
 
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        For Each track As String In OpenFileDialog1.FileNames
            Listbox1.Items.Add(track)
        Next
 
    End Sub
 
 
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
 
 
    End Sub
End Class

Also Just Ignore This Part

Public Class Form1
 
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
 
    Private Sub shadows_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Timer1.Enabled = True
        Timer1.Interval = 1
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Dim F12key As Boolean
        Dim F11key As Boolean
 
        F12key = GetAsyncKeyState(Keys.F12)
        F11key = GetAsyncKeyState(Keys.F11)
 
        If F12key = True Then
            AxWindowsMediaPlayer1.URL = Listbox1.SelectedItem
 
        End If
 
        If F11key = True Then
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
 
        End If
 
 
    End Sub

Thats Just A Universal Hotkey, Which Already Works Fine.

[Guido Geurs]

dear,

I have used next code in VB6 (can be used in VB2008 ????)

Private Sub Com_down_play_Click()
' select next in the list
   With FileListBox
      If .ListIndex < .ListCount - 1 Then .Selected(.ListIndex + 1) = True
   End With
   With MMControl
         .Command = "Stop"
         .Command = "Close"
         .FileName = FileListBox.Path & "\" & FileListBox.FileName
         .Command = "Open"
         .From = Val(Text_seconden) * 1000
         .Command = "Play"
   End With
End Sub

Hope this will help