vb播放器的问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 01:18:42
我想用vb写个引用windows media player控件的播放器
单击Command1按钮
弹出打开文件对话框(文件类型.mp3和.wma)
选择好文件后
windows media player1 控件 开始播放刚才打开的文件
代码应该怎么写?
我是个vb新手

添加一个CommonDialog控件,一个Windows Media Player,一个command复制以下代码:

Private Sub Command1_Click()
CommonDialog1.Filter = "Windows Media Player 所有支持文件|*.mid;*.rmi;*.midi;*.asf;*.wm;*.wma;*.jpg;*.wmv;*.avi;*.wav;*.au;*.snd;*.mpeg;*.mpg;*.m1v;.mp2;*.mp3;|"
CommonDialog1.ShowOpen
CommonDialog1.FilterIndex = 1
If CommonDialog1.FileName <> "" Then
WindowsMediaPlayer1.url=CommonDialog1.FileTitle
WindowsMediaPlayer1.Controls.play '选了自动播放可以不要这句
else
msgbox "没有选中文件"
End If
end sub

WindowsMediaPlayer1.url = CommonDialog1.FileName
WindowsMediaPlayer1.Controls.play