编程论坛 → VB6论坛

求助(关于VB编写播放器代码)!!

lewyoung 发布于 2008-01-05 19:21， 2167 次点击

　在“工程”菜单中选择“部件”，弹出对话框后，分别勾选“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

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

9 回复

#2

dawn46405762008-01-06 08:10

WindowsMediaPlayer1.URL = ss

#3

lisypro2008-01-06 09:56

帮顶一下

#4

lewyoung2008-01-09 16:30

谢谢一楼的,我在试试哈!!!

#5

随风逐流2008-01-09 16:33

错误在哪行得说出来

#6

dawn46405762008-01-09 16:38

原帖由 [bold][underline]lewyoung[/underline][/bold] 于 2008-1-9 16:30 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1176031&ptid=196057]

[/url]
谢谢一楼的,我在试试哈!!!

不用试了．再谢我一次就行了．

#7

lewyoung2008-01-13 21:25

原帖由 [bold][underline]dawn4640576[/underline][/bold] 于 2008-1-9 16:38 发表 [url=http://bbs.bccn.net/redirect.php?goto=findpost&pid=1176042&ptid=196057]

[/url]

不用试了．再谢我一次就行了．

谢谢,我不常上网的,就是得行的!!!
再谢一次哦 !!!呵呵.....

#8

lomey2008-01-15 17:44

原帖由 [bold][underline]dawn4640576[/underline][/bold] 于 2008-1-9 16:38 发表 [url=http://bbs.bccn.net/redirect.php?goto=findpost&pid=1176042&ptid=196057]

[/url]

不用试了．再谢我一次就行了．

兄弟挺幽默的

#9

gyf20102010-07-24 22:37

最后怎么没结果了啊，到底是怎么改的啊

#10

lewyoung2012-06-26 13:44

改了的啊 WindowsMediaPlayer1 后面多了一个1啊！看到没。。。

1