Question

关于VB中WindowsMediaPlayer的控制代码

关于VB中WindowsMediaPlayer的控制代码，如何播放下一个文件和上一个文件，还有快进和快退，随即播放和顺序播放！

若以下回答无法解决问题，邀请你更新回答

Answer 1

属性/方法名： 说明：
[基本属性] 　
URL:String; 指定媒体位置，本机或网络地址
uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible
playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪
enableContextMenu:Boolean; 启用/禁用右键菜单
fullScreen:boolean; 是否全屏显示
[controls] wmp.controls //播放器基本控制
controls.play; 播放
controls.pause; 暂停
controls.stop; 停止
controls.currentPosition:double; 当前进度
controls.currentPositionString:string; 当前进度，字符串格式。如“00:23”
controls.fastForward; 快进
controls.fastReverse; 快退
controls.next; 下一曲
controls.previous; 上一曲
[settings] wmp.settings //播放器基本设置
settings.volume:integer; 音量，0-100
settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数
[currentMedia] wmp.currentMedia //当前媒体属性
currentMedia.duration:double; 媒体总长度
currentMedia.durationString:string; 媒体总长度，字符串格式。如“03:24”
currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述，"Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //当前播放列表属性
currentPlaylist.count:integer; 当前播放列表所包含媒体数
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia

Answer 2

在菜单栏的 工程-部件-Microsoft Windows common Controls 6.0 与 Windows Media Player 两项打上对勾，点击确认。
窗体中创建一个 WindowsMediaPlayer1，一个 Slider1，一个 Timer1控件，并输入以下代码：

Private Sub Form_Load()
WindowsMediaPlayer1.URL = "" '设置播放路径
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
'/////播放器进度控制
Private Sub Slider1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub
Private Sub Slider1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Slider1.Value = WindowsMediaPlayer1.Controls.currentPosition '显示实时速度
End Sub
Private Sub Slider1_Click()
WindowsMediaPlayer1.Controls.currentPosition = Slider1.Value '改变播放进度
End Sub

'/////播放器状态改变
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
Slider1.Max = Int(WindowsMediaPlayer1.currentMedia.duration) '设置播放长度
End Sub