求助(关于VB编写播放器代码)!!
在“工程”菜单中选择“部件”，弹出对话框后，分别勾选“Windows Media Player”和“Microsoft Common Dialog Control 6.0”两个复选框，单击“确定”，将上述两个控件添加到工具箱。然后把它们从工具箱中依次拖到窗体中，并调整“Windows Media Player”的大小及位置。从工具箱中选择“CommandButton”，拖入窗体中，调整其大小及位置。可将其Caption属性修改为“打开并选择播放文件”。
输入代码：
CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = "请选择要播放的文件"
CommonDialog1.Filter = "wav|*.wav|mp3|*.mp3"
CommonDialog1.ShowOpen
Dim ss As String
If CommonDialog1.FileName <> "" Then
ss = CommonDialog1.FileName
WindowsMediaPlayer.URL = ss
End If
这个代码是我在书上找到的一个例子,为什么运行是会弹出错误信息!
谢谢!!
[/url]
