请教，PB如何调用.wav音频文件，并且让此文件循环播放，在想让音频播放结束时，如何结束，在线等候，立即结账！！

zhangxf2000 2003-01-06 10:11:34

请教，PB如何调用.wav音频文件，并且让此文件循环播放，在想让音频播放结束时，如何结束，在线等候，立即结账！！thanks!!

...全文

66 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

侠雨飞飞 2003-02-21

打赏
举报

最省事的做法是
声明全局函数： FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY
"winmm.dll" ALIAS FOR "sndPlaySoundA"

然后在timer中调用： sndPlaySound('msg.wav',3)
终止时将timer关闭即可

呵呵～

toutou 2003-01-12

打赏
举报

同意balloonman2002(唉，MM，啊) ，我也是这样做。

balloonman2002 2003-01-12

打赏
举报

Q : PB里面调用音乐（wav文件）的例子
主要解答者: songfrh 提交人: herotx
感谢: songfrh
审核者: wu_07 论坛对应贴子: 查看
A :

---------------------------------------------------------------

FUNCTION ulong waveOutGetNumDevs() LIBRARY "winmm.dll "
FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY "winmm.dll " ALIAS FOR "sndPlaySoundA "

//播放wav文件

ulong ll_numdevs,ll_mode

ll_mode = 0

ll_numdevs = waveOutGetNumDevs()
if ll_numdevs > 0 then
sndPlaySound(as_wavfile,ll_mode)
end if

到网上搜索一下该API的参数即可实现循环、停止，，，

如果不行，那就用第三方控件吧，，，

erigido 2003-01-11