 |
doofusboy Level: Scholar
 Registered: 13-05-2003 Posts: 30
|
Re: Windows Media Player Control
Here's code I've used to create a playlist from a listbox of user selected songs:
Set sPlaylist = WindowsMediaPlayer1.playlistCollection.newPlaylist("Audio")
WindowsMediaPlayer1.currentPlaylist = sPlaylist 'selects playlist
For i = 0 To Form1.List1.ListCount - 1
Set sMedia = WindowsMediaPlayer1.mediaCollection.Add("C:\Program Files\3Com\My Documents\My Music\Dad\VariousArtists\" & Form1.List1.List(i)) 'Sets Media to Add to Playlist
WindowsMediaPlayer1.currentPlaylist.insertItem (WindowsMediaPlayer1.currentPlaylist.Count), sMedia ' Adds Playlist Item
Next i
|
|
|
27-12-2003 at 12:40 PM |
|
|
|
|
 |
 |