01.
Imports
WMPLib
02.
Imports
System.IO
03.
Public
Class
Form1
04.
Dim
playlist
As
IWMPPlaylist =
Nothing
05.
Dim
unsaved
As
String
= My.Computer.FileSystem.SpecialDirectories.Temp &
"\" & "
Unsaved.m3u"
06.
07.
Private
Sub
OpenFilesToolStripMenuItem_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
OpenFilesToolStripMenuItem.Click
08.
Dim
ofd
As
New
OpenFileDialog
09.
ofd.RestoreDirectory =
True
10.
ofd.Filter =
""
11.
If
ofd.FilterIndex = 2
Then
12.
ofd.Multiselect =
False
13.
Else
14.
ofd.Multiselect =
True
15.
End
If
16.
ofd.Title =
"เปิดไฟล์"
17.
If
ofd.ShowDialog = Windows.Forms.DialogResult.OK
Then
18.
ListBox1.Items.Clear()
19.
Using sw
As
New
StreamWriter(unsaved,
False
)
20.
For
Each
song
As
String
In
ofd.FileNames
21.
sw.WriteLine(song)
22.
Next
23.
End
Using
24.
ListBox1.Items.Clear()
25.
playlist = player.newPlaylist(
"Unsaved Playlist"
, unsaved)
26.
player.currentPlaylist = playlist
27.
28.
For
i = 0
To
player.currentPlaylist.count - 1
29.
ListBox1.Items.Add(player.currentPlaylist.Item(i).name)
30.
Next
31.
ListBox1.SelectedItem = player.Ctlcontrols.currentItem.name
32.
Play1.Image = My.Resources.pause1
33.
My.Settings.LastPlaylist = unsaved
34.
End
If
35.
End
Sub