【实例说明】
大部分小游戏中的音乐文件都会被放在资源文件中,然后在资源文件中读取。这样做的好处就是在发布游戏的时候不需要将音乐文件打包带上,为发布软件带来很多方便,显示“绿色软件”风格。
【编程思路】 VB程序中背景音乐的制作就是调用API函数。
【设计步骤】 1.打开一个新的工程-->>添加一个标准窗体(加载VB 6资源编辑器)。
2.打开资源编辑器,添加自定义资源。将sound.wav文件添加到资源文件中(类型:"WAVE"、标识号:"SOUND")。之后,保存资源文件"工程1.RES"。
3.源程序 [素材源程序下载]
Option Explicit
'API 函数用到的常数
Private Const SND_SYNC = &H0
Private Const SND_MEMORY = &H4
'API函数
Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" _
(lpszSoundName As Any, _
ByVal uFlags As Long) As Long
'音乐效果请“单击”
Private Sub Form_Click()
Dim myMusic() As Byte
'Res 文件读取时也不区分大小写
myMusic = LoadResData("Sound", "Wave")
sndPlaySoundFromMemory myMusic(0), SND_MEMORY Or SND_SYNC
End Sub
|