直接播放EXE文件中的声音文件

最新推荐文章于 2024-03-08 23:19:29 发布

Snailqiu

最新推荐文章于 2024-03-08 23:19:29 发布

阅读量2.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： VisualBasic 文章标签： exe vb 语言

本文链接：https://blog.youkuaiyun.com/Snailqiu/article/details/284064

VisualBasic 专栏收录该内容

19 篇文章

订阅专栏

博客介绍了在EXE文件中使用资源文件播放WAV声音文件的方法，以让程序更专业。详细说明了在VB6.0中加载资源编辑器、添加WAV文件并定义属性的步骤，还给出了保存资源文件后实现声音播放的代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。
⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：
类型： "WAVE"
标识号： 102
语言：中文（中国）
⑶保存资源文件，写如下代码：
Option Explicit

Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1&
PrivateConst SND_MEMORY = &H4&
Dim bArr() As Byte
Private Sub Form_Load()
bArr = LoadResData(101, "custom") '最好不要把这一句放在按钮的单击事件中，因为这样会使得播放声音显的迟缓一些
End Sub
Private Sub Command1_Click()
sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
End Sub