Private Sub Command1_Click()
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
添加CommonDialog控件 和 WindowsMediaPlayer 代码如上
Private Sub Command1_Click()
CommonDialog1.ShowOpen
filename=CommonDialog1.FileName
……
……
'根据你选择的播放器控件来编写代码
End Sub