pb播放音乐

既然博客开了，总该写点啥。正好手头有这么段代码，原创性嘛自然谈不上，类似的东西网上太多了。很长一段时间以来只是用pb跟数据库打交道而已，没太关注这些零零碎碎的小东西，昨天QQ上一个小网友突然问起来，想在程序里加点提示音，不知道该怎么弄。很久没弄过了，一下子也被问住了，呵呵，就算是为了面子也不能说不会不是，于是打开箱子一通猛翻，终于在箱子底找到这么段代码，还好还好，没有让对方失望。今天把代码贴到这里也算是对自己的一个提醒吧，有些东西不用真的会忘。

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

/*
0 - 同步播放
1 - 异步播放
2 - 如果找不到声音文件，不使用缺省的声音文件
3 - 第1项与第2项
8 - 循环播放直到下一个sndPlaysound
10- 不停止播放
*/

ULong ll_numdevs,ll_mode
String ls_wavfile

ll_mode = 3
ls_wavfile = 'SpeechOn.wav'

ll_numdevs = waveOutGetNumDevs()
If ll_numdevs > 0 Then
   sndPlaySound(ls_wavfile,ll_mode)
End If