Public Const SND_RESOURCE = &H40004 Public Const SND_ASYNC = &H1 ' play asynchronously Public Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file Public Const SND_NODEFAULT = &H2 ' silence not default, if sound not foundPublic Declare Function PlaySoundData Lib "winmm.dll" Alias "PlaySoundA" (lpData As Any, ByVal hModule As Long, ByVal dwFlags As Long) As LongPublic m_SndClick() As Byte m_SndClick = LoadResData("CLICK", "CUSTOM")'我这是从资源文件里取出声音的数据,你从难从数据库里取就行了!!Call PlaySoundData(m_SndClick(0), 0, SND_MEMORY Or SND_ASYNC Or SND_NODEFAULT)
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Public Const SND_NODEFAULT = &H2 ' silence not default, if sound not foundPublic Declare Function PlaySoundData Lib "winmm.dll" Alias "PlaySoundA" (lpData As Any, ByVal hModule As Long, ByVal dwFlags As Long) As LongPublic m_SndClick() As Byte
m_SndClick = LoadResData("CLICK", "CUSTOM")'我这是从资源文件里取出声音的数据,你从难从数据库里取就行了!!Call PlaySoundData(m_SndClick(0), 0, SND_MEMORY Or SND_ASYNC Or SND_NODEFAULT)