VB程序中加入声音和图像
发布网友
发布时间：2022-09-08 20:39
共1个回答
热心网友
时间：20小时前
外接程序——外接程序管理器——双击资源编辑器——确定，此时在外接程序下方多出一个图标，就是最后那个，点击打开，在最后第二个，添加自定义资源，选择所需声音文件。加入下面代码
'通用部分
Private
Declare
Function
sndPlaySound
Lib
"winmm.dll"
Alias
"sndPlaySoundA"
(lpszSoundName
As
Any,
ByVal
uFlags
As
Long)
As
Long
Private
Const
SND_SYNC
=
&H0&
Private
Const
SND_ASYNC
=
&H1&
Private
Const
SND_LOOP
=
&H8&
Private
Const
SND_MEMORY
=
&H4&
Private
Const
SND_NODEFAULT
=
&H2&
Private
Const
SND_NOSTOP
=
&H10&
Private
Sub
Command1_Click()
bArr
=
LoadResData(100,
"CUSTOM")
sndPlaySound
bArr(0),
SND_MEMORY
Or
SND_ASYNC
End
Sub
Command1_Click中的100是文件在资源编辑器中的标识号，可按需要更改
