谁编一个调用声音的程序 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 谁编一个调用声音的程序

标题：谁编一个调用声音的程序

只看楼主

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9
结帖率：100%

楼主

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

谁编一个调用声音的程序

当 Command1的时候就播放相对路径的 6.MP3
请加上注释小菜在此谢谢大家

搜索更多相关主题的帖子: 声音　

2007-02-15 02:02

田里兵蜂

等　级：新手上路
威　望：2
帖　子：604
专家分：0
注　册：2007-1-29

第 2 楼

得分:0

楼主,打开下面这个链接
里面有许多你需要的,比如上面的这个就在多媒体项目中
http://bbs.bc-cn.net/viewthread.php?tid=115229&star=at#
[分享]ＶＢ资料大全-可以下载了

免费视频资源下载

2007-02-15 08:35

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 3 楼

得分:0

谢谢

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-02-15 11:06

hyhhd

等　级：论坛游民
威　望：1
帖　子：502
专家分：44
注　册：2006-5-12

第 4 楼

得分:0

添加：windows madia player控件，在url=app.path & "\6.mp3"，运行即可听见6.mp3的音乐了。

2007-02-15 22:31

hyhhd

等　级：论坛游民
威　望：1
帖　子：502
专家分：44
注　册：2006-5-12

第 5 楼

得分:0

也可以：
Private Sub Command1_Click()
With CommonDialog1

.ShowOpen

If .FileName = "" Then Exit Sub

WindowsMediaPlayer1.URL = .FileName

End With

End Sub

这样就可以选歌了

2007-02-15 22:41

hyhhd

等　级：论坛游民
威　望：1
帖　子：502
专家分：44
注　册：2006-5-12

第 6 楼

得分:0

如果想在系统自带的播放器播放：
WindowsMediaPlayer1.openPlayer .FileName

2007-02-15 22:43

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 7 楼

得分:0

谢谢解释的很详细还带例题！

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-02-15 23:45

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-120987-1-1.html