Question

求一VB用WindowsMediaPlayer1播放程序

我想用WindowsMediaPlayer播放目录里的音乐文件，可以打开目录，谢谢，请教

Answer 1

Private Sub Command1_Click() CommonDialog1.Filter = "mp3(*.mp3)|*.mp3" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then MsgBox "请选择一个mp3文件！" Else WindowsMediaPlayer1.URL = CommonDialog1.FileName WindowsMediaPlayer1.Controls.play End If End Sub Private Sub Form_Load() WindowsMediaPlayer1.Visible = False End Sub 要先在工程->部件里添加Microsoft Common Dialog Control 6.0和Windows Media Player控件引用