一个简单的媒体播放器的设计与实现.

一个简单的媒体播放器的设计与实现

1.1 文件加载系统 1.1.1 打开打开系统是向

播放列表加载一个或者多个多媒体文件，通过打开加载文件时，将会覆盖播放

列表中已有的文件。并且将自动播放。其实现代码为： 1）打开文件： With Openfile .FileName =

"" .Filter = "视频文件

(*.rm;*.rmvb;*.dat;*.avi;*.mp3;*.asf;*.mpg)|*.rm;*.rmvb;*.dat;*.avi;* .mp3;*.asf;*.mpg|音频文件

(*.mp3;*.wav;*.wma;*.mid)|*.mp3;*.wav;*.wma;mid|所有文件

(*.*)|*.*" .Multiselect =

True If .ShowDialog() = DialogResult.Cancel Then Exit Sub End With 2）清空播放列表： file = Openfile.FileNames.Length If file = 0 Then

Exit Sub 播放列

表.Items.Clear() filelist.Clear() 3）加载新文件： filename = Openfile.FileNames ReDim strfile(file) For i = 0 To

file - 1 For j = 0 To

filename(i).Length If Microsoft.VisualBasic.Right(filename(i), j + 1).Chars(0) = "\" Then strfile(i) =

CType(Microsoft.VisualBasic.Right(filename(i), j), String) strfile(i) = CType(Microsoft.VisualBasic.Left(strfile(i), strfile(i).Length - 4), String) For i = 0 To file - 1 播放

列表.Items.Add(i + 1 & ". " &

strfile(i)) filelist.Add(filename(i)) 4）自动播放： WindowsMediaPlayer1.URL =

filename(0) 播放列表.SetSelected(0,

True) cmbAdd()