Как воспроизвести файл *.WAV из ресурсов?
Откройте в первую очередь файл VB Resource Editor и нажмите «Add Custom Resource...», затем выберите любой WAV-файл для открытия. В списке появилась папка «CUSTOM», а в ней файл «101».
Сохраните файл ресурсов.
Теперь перейдем к проекту: создайте модуль, в декларациях объявите АПИ:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,
ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4
Затем создайте функцию:
Public Sub
ResPlaySound(ByVal ResourceId
As Integer)
Dim Ret As Variant
#If Win32 Then
SoundBuffer = StrConv(LoadResData(ResourceId, "CUSTOM"), vbUnicode)
#Else
SoundBuffer = LoadResData(ResourceId, "CUSTOM")
#End If
Ret = sndPlaySound(SoundBuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_NOSTOP)
DoEvents
End Sub
Dim Ret As Variant
#If Win32 Then
SoundBuffer = StrConv(LoadResData(ResourceId, "CUSTOM"), vbUnicode)
#Else
SoundBuffer = LoadResData(ResourceId, "CUSTOM")
#End If
Ret = sndPlaySound(SoundBuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_NOSTOP)
DoEvents
End Sub
Попробуем воспроизвести звук:
ResPlaySound 101
Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/