VB中的Windows Media Player控件，如何播放本地音乐

具体步骤如下：

1、建立一个空窗体。

2、加入WindowsMediaPlayer控件（也可以完全由代码生成）,更名为Player

3、加入两个命令按钮：cmdPlay,cmdStop

4、sub cmdPlay_Clicked：

With Player
  .uiMode = "none"
  .URL = "D:/MUSIC/雨人.wma"
  .Controls.Play
End With
5、sub cmdStop_Clicked：

Player.Controls.Stop

可以用controls.currentPositionString属性来获取它的时间。
问题重复了。
---------
不好意思，看错，是DurationString。
参考 http://zhidao.baidu.com/question/12035736.html?si=10

正在研究~~~
参考 http://zhidao.baidu.com/question/47170718.html?si=9

在设计模式下选择WindowsMediaPlayer的“自定义……”可以设置它的相关基本属性，如装载时是否启动它，窗口模式--最大化还是最小化
WindowsMediaPlayer主要用到以下属性：
WindowsMediaPlayer.playState=（1、2、3……）
WindowsMediaPlayer.URL=""(音乐文件路径)
WindowsMediaPlayer.windowlessVideo = True/False
WindowsMediaPlayer1.Close 关闭播放器
至于Treeview我几乎还没用到过哈，SORRY
参考 http://zhidao.baidu.com/question/2643585.html?si=8

在设计模式下选择WindowsMediaPlayer的“自定义……”可以设置它的相关基本属性，如装载时是否启动它，窗口模式--最大化还是最小化
WindowsMediaPlayer主要用到以下属性：
WindowsMediaPlayer.playState=（1、2、3……）
WindowsMediaPlayer.URL=""(音乐文件路径)
WindowsMediaPlayer.windowlessVideo = True/False
WindowsMediaPlayer1.Close 关闭播放器
参考 http://zhidao.baidu.com/question/9039089.html?si=7

是WindowsMediaPlayer吧？

＝＝＝＝＝＝＝＝＝＝WindowsMediaPlayer的常用属性和方法＝＝＝＝＝＝＝＝＝＝＝

[基本属性]
URL:string 可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean 全屏显示
stretchToFit:boolean 非全屏状态时是否伸展到最佳大小
uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer 当前控件状态，下面是三种基本状态：
3：正在播放
2：暂停
1：已停止
状态变化时会触发OnStatusChange事件

[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"

[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.duration Double 总长度
currentMedia.durationString 时间格式的字符串 "4:34"

[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。
参考 http://zhidao.baidu.com/question/43945035.html?si=6

Windows Media Player 11 for Windows XP 使您能够以全新的方式来存

答案补充：相对路径当然可以，比方说与程序文件在同一路径，代码如下。
WindowsMediaPlayer1.Url = app.path & "\a.avi"
==========================
比方说音乐路径是D:\a.avi,那么代码就是
WindowsMediaPlayer1.Url = "D:\a.avi"