VB.NET 调用Interop.WMPLib.dll实现音乐播放器功能.rar

这款音乐播放器基于VB.NET编写，实现了以下功能：播放位置随着滑块的拖动而实时变化，是否静音播放的功能，把跟踪条值赋给MediaPlayer1控件的音量设置值，播放或暂停的功能，打开要播放的媒体文件的功能，实时（每隔0.1秒）更新滑块的位置及播放了的时间，清空列表框中所有歌曲功能，全屏播放功能。 　　本播放器基于AxInterop.WMPLib.dll、Interop.WMPLib.dll。 　　利用For循环一次吧选定的文件添加到列表框 　　For j = 0 To i 　　count = Me.ListView1.Items.Count '获取现有文件数目 　　'Substring为检索子字符串，从后面的参数位置开始；LastIndexOf（"\"）为检索标志 　　sfile = paths(i - j).Substring(paths(j).LastIndexOf("\") 1) '获取歌曲名称 　　Dim mitem As New ListViewItem(count 1 j) '列表项循环一次增1,也即是序号值 　　mitem.SubItems.Add(sfile) '添加子项内容歌曲名 　　mitem.SubItems.Add(paths(i - j)) '添加子项内容路径 　　'把新打开的含有序号值、歌曲名和路径的文件添加到列表控件中 　　Me.ListView1.Items.Add(mitem) 　　Next