求助(关于VB编写播放器代码)!! - VB6论坛

lewyoung

等　级：新手上路
帖　子：20
专家分：0
注　册：2008-1-5
结帖率：0

楼主

问题点数：0 回复次数：3

求助(关于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

  这个代码是我在书上找到的一个例子,为什么运行是会弹出错误信息!
  谢谢!!