查人人中国名人网索诺拉巫术市场:vb编程中，加入音乐的问题，紧急
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 02:40:56
VB编的一个小程序，想让它能播放一首MP3，而且想把这个MP3整合到程序中，就象authorware一样，多谢大家
你可以用API函数来实现播放声音，举个例子：
假设你要播放D盘下的sound.wav
在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub
在窗体中输入以下代码
Private Sub Form_Load()
PlaySound "D:\sound.wav"
End Sub
P.S.你还可以用MMControl控件来播放WAV格式的音频，不过反应时间比较慢，或者是WMP(Windows Media Player)控件也行，都很好用的。两三行代码就能搞定！
工程->部件->可插入对象->音效
录音机->编辑->插入文件->退出
用vb中的ActiveMovie控件