如何让VB小程序发出声音？

使用Playwav(wav(wav声音的路径名)发出声音。..

'

playWav(文件路径)

'

#如果是Win32，则

公共声明函数sndPlaySound & ampLib "winmm.dll "别名" sndPlaySoundA "(ByVal lpszSoundName为String，ByVal uFlags为Long)

#否则

公共声明函数sndPlaySound % Lib " mm system . dll "(ByVal lpszsound name为字符串，ByVal uFlags为整数)

#End If 'WIN32

全局常量SND _ SYNC = & amp零假设

全局常量SND _ ASYNC = & ampH1

全局常量SND _ NODEFAULT = & amp氘

全局常量SND _ LOOP = & ampH8

全局Const SND _ NOSTOP = & ampH10

*** pathWavFiles是一个带有子目录的变量，其中

声音文件被存储

公共Sub PlayWav(字符串形式的SoundName)

Dim tmpSoundName作为字符串

Dim wFlags%，X%

tmpSoundName = pathWavFiles & amp声音名称

wFlags% = SND_ASYNC或SND_NODEFAULT

X% = sndPlaySound(tmpSoundName，wFlags%)

末端接头