vb中，如何让Windows Media Player控件播放音乐文件？

Imports QuartzTypeLib
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim music As New QuartzTypeLib.FilgraphManager
music.RenderFile("F:music\不是因为寂寞才想你.mp3")
music.Run()
End Sub
End Class

先添加引用Quartz.dll(系统文件 window\system32\quartz.dll)，在添加Interop.QuartzTypelib.dll(在项目obj文件夹下)

Ctlcontrols.fastForward; 快进
Ctlcontrols.fastReverse; 快退
Ctlcontrols.next; 下一曲
Ctlcontrols.previous; 上一曲

[settings]播放器基本设置
settings.volume:integer; 音量，0-100
settings.balance:integer (-100-100) 声道，通过它应该可以进行立体声、左声道、右声道的控制。 (-100代表左声道 0立体声 100右声道)

settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数

[currentMedia] 当前媒体属性
currentMedia.durationouble; 媒体总长度
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] 当前播放列表属性
currentPlaylist.count:integer; 当前播放列表所包含媒体数
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息
WindowsMediaPlayer.playState == WMPLib.WMPPlayState.wmppsMediaEnded//判断歌曲是否播放结束

希望对你有用，

只需要在程序运行时，控制Windows Media Player控件的URL属性，便会自动播放URL属性所指路径的媒体文件(音乐或视频)。

我空间里有详细的说明，之前我也搞过这个