[itzkhurram]

I am designing mp3 player 90% work completed but 1 problem

when i select a song and click on play button need is the playlist disable, means song play complete then playlist enable.

and playlist is showing complete directory name, need simple song name.

thanks my code is here.

using axwindowsmediaplayer

*** this is the category button where i select my song and fill playlist

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        playlist.Items.Clear()
        Dim folderInfo As New IO.DirectoryInfo("d:\songs\wedding")

        Dim arrFilesInFolder() As IO.FileInfo

        Dim fileInFolder As IO.FileInfo


        arrFilesInFolder = folderInfo.GetFiles("*.mp3")

        For Each fileInFolder In arrFilesInFolder

            playlist.Items.Add(fileInFolder.FullName)

        Next
    End Sub


*** here I am trying to disable and enable my playlist. but not successful

Private Sub AxWindowsMediaPlayer2_StatusChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer2.StatusChange

        If WMPLib.WMPPlayState.wmppsPlaying Then

            playlist.Enabled = False
        Else
            playlist.Enabled = True
        End If

    End Sub
End Class

[adamarek]

Try this...

Private Sub AxWindowsMediaPlayer2_StatusChange(ByVal sender System.Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer2.StatusChange 
 
        If e.newState = 9 Then
            playlist.Enabled = False 
        ElseIf e.newState = 8 Then
            playlist.Enabled = True 
        End If 
 
    End Sub 

[itzkhurram]

Error 1 Method 'Private Sub AxWindowsMediaPlayer2_StatusChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)' cannot handle event 'Public Event StatusChange(sender As Object, e As System.EventArgs)' because they do not have a compatible signature.

adamarek, on 30 April 2010 - 03:20 AM, said:

Try this...

Private Sub AxWindowsMediaPlayer2_StatusChange(ByVal sender System.Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer2.StatusChange 
 
        If e.newState = 9 Then
            playlist.Enabled = False 
        ElseIf e.newState = 8 Then
            playlist.Enabled = True 
        End If 
 
    End Sub 

[Recoil]

Best way to get help on this issue != double posting

[adamarek]

In the Sub where you use:

Player.URL = (filename)' Play song
'   Add the Handler
AddHandler Player.PlayStateChange, AddressOf AxWindowsMediaPlayer2_StatusChange

Remove 'Handles AxWindowsMediaPlayer2.StatusChange

Private Sub AxWindowsMediaPlayer2_StatusChange(ByVal sender System.Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)   
        If e.newState = 9 Then 
            playlist.Enabled = False  
        ElseIf e.newState = 8 Then 
            playlist.Enabled = True  
        End If  
  
    End Sub 

[itzkhurram]

change Private to Public sub

If e.newState = 3 Then &&& 3 is playing
playlist.Enabled = False
ElseIf e.newState = 1 Then &&&& 1 is stopped
playlist.Enabled = True
End If


thanks to all
but 1 thing is remaining
list box show only song name not a directory path

<code>
playlist.Items.Clear()


Dim folderInfo As New IO.DirectoryInfo("d:\songs\old")

Dim arrFilesInFolder() As IO.FileInfo

Dim fileInFolder As IO.FileInfo


arrFilesInFolder = folderInfo.GetFiles("*.mp3")

For Each fileInFolder In arrFilesInFolder
playlist.Items.Add(System.IO.Path.GetFileName(fileInFolder.FullName))

Next

but when i double click on playlist song not run

</code>

adamarek, on 30 April 2010 - 06:14 AM, said:

In the Sub where you use:

Player.URL = (filename)' Play song
'   Add the Handler
AddHandler Player.PlayStateChange, AddressOf AxWindowsMediaPlayer2_StatusChange

Remove 'Handles AxWindowsMediaPlayer2.StatusChange

Private Sub AxWindowsMediaPlayer2_StatusChange(ByVal sender System.Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)   
        If e.newState = 9 Then 
            playlist.Enabled = False  
        ElseIf e.newState = 8 Then 
            playlist.Enabled = True  
        End If  
  
    End Sub 

[lozthegreat1]

here try this it might work im not sure though

            Form1.AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            Form1.Label1.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
            Form1.AxWindowsMediaPlayer1.mediaCollection.add(Form1.AxWindowsMediaPlayer1.URL)
            ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name)
            urlArray(count) = OpenFileDialog1.FileName
            mediaArray(count) = Form1.AxWindowsMediaPlayer1.currentMedia.name
            count = count + 1
            Me.ListBox1.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name

This post has been edited by lozthegreat1: 05 May 2010 - 07:22 PM