vb media player - next song automatically

**juggler** · Jan 5th, 2008, 02:16 PM

Hi,

I am a quite experiences programmer and started coding a vb media player yesterday. Its basically done apart from i cant get the player to automatically load the next song. I have done a search of this forum but none of the previous responses seem to work.

Heres the code :

Private Sub WMP_StatusChange()

If WMP.playState = wmppsMediaEnded Then
If OptOn.Value = True Then
filecount = File1.ListCount
chosenfile = Int(Rnd * filecount) + 1 'generate random index
File1.Selected(chosenfile) = True
filename = Dir1.Path & "\" & File1.filename
WMP.URL = filename
Else
fileindex = File1.ListIndex
fileindex = fileindex + 1
File1.Selected(fileindex) = True 'plays next index
filename = Dir1.Path & "\" & File1.filename
WMP.URL = filename
End If
End If

End Sub

I have tried different events as well like playstatechange but no luck. The very annoying thing is that an identical piece of code works on a button click.

Any response would be appreciated

Thanks in advance

Juggler

**RobDog888** · Jan 5th, 2008, 02:20 PM

How about using a Play List?

**juggler** · Jan 5th, 2008, 02:23 PM

if you mean a pre-determined list of songs to run through that is not what i am after. Can you see any prob with the code and any suggestion why it will work onclick but not on any media event i have tried so far.

Juggler

**RobDog888** · Jan 5th, 2008, 03:33 PM

Ok I think what you should be doing is generating a temporary playlist that you can generate from your files in the selected directory. Then assign the new temp playlist as the active list and play it.

.newPlaylist "MyTempPlaylist1", "C:\SomeFolder\TempList1.wpl"
.settings.setMode wmppsPlaying, True

This is how most sites do it with those continuous playing of videos.

**juggler** · Jan 6th, 2008, 12:06 PM

ok thanks. I will have a play and let you know the outcome.

cheers - juggler

**RobDog888** · Jan 6th, 2008, 02:18 PM

Found this as its a great souce for WMP:
http://msdn2.microsoft.com/en-us/lib...57(VS.85).aspx

**juggler** · Jan 6th, 2008, 03:19 PM

had a play but no luck. So it is possible to put all the mp3 files in one directory into a playlist on form load. If so could you maybe post some code to get me started, if you know it that is.

Thanks

Juggler

**RobDog888** · Jan 6th, 2008, 07:07 PM

Write out your playlist file in this format after you read in the files in your directory.

Playlist format:

Code:

<?wpl version="1.0"?>
<smil>
    <head>
        <meta name="Generator" content="Microsoft Windows Media Player -- 11.0.6000.6344"/>
        <meta name="AverageRating" content="33"/>
        <meta name="TotalDuration" content="111"/>
        <meta name="ItemCount" content="3"/>
        <meta name="ContentPartnerListID"/>
        <meta name="ContentPartnerNameType"/>
        <meta name="ContentPartnerName"/>
        <meta name="Subtitle"/>
        <author/>
        <title>Test</title>
    </head>
    <body>
        <seq>
            <media src="Video1.wmv"/>
            <media src="Video2.wmv"/>
            <media src="Video3.wmv" />
        </seq>
    </body>
</smil>

The to load/play it:

Code:

Option Explicit

Private Sub Form_Load()
    WMP.URL = "C:\Users\UserName\Videos\Test.wpl"
End Sub

**RobDog888** · Jan 6th, 2008, 07:35 PM

Seems you need to invoke the play too.

Code:

Option Explicit

Private Sub Form_Load()
    On Error GoTo My_Error
    WMP.URL = "C:\Users\UserName\Videos\Test.wpl"
    WMP.Controls.play
    Exit Sub
My_Error:
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbExclamation
End Sub

**Sricharan sai** · Nov 22nd, 2013, 09:44 AM

How to create media player with play next song automatically

Timer1.Tick
Timer1.Start()
If Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
ListBox1.SelectedIndex = (Index Mod ListBox1.Items.Count)
Index += 1
AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
This is the code

Codes By Sricharan

**jmsrickland** · Nov 22nd, 2013, 04:20 PM

This sample media player uses msdxm.ocx (included unless moderator removed it). It uses a Play list

**Siddharth Rout** · Nov 24th, 2013, 05:32 AM

@Sricharan: Welcome to the forums. I have deleted the attachment from your post as it contained an executable file. When ever you upload attachments in vbforums, please ensure that it doesn't have an executable file in it. Also this thread is for Visual Basic 6 so your code actually is of no use

Thread: vb media player - next song automatically

Thread Tools

Display

vb media player - next song automatically

Re: vb media player - next song automatically

Re: vb media player - next song automatically

Re: vb media player - next song automatically

Re: vb media player - next song automatically

Re: vb media player - next song automatically

Re: vb media player - next song automatically

Re: vb media player - next song automatically

Re: vb media player - next song automatically

Media Player Play Next Song Automatically

Re: vb media player - next song automatically

Re: vb media player - next song automatically

Posting Permissions