资源文件与背景音乐


【实例说明】
    大部分小游戏中的音乐文件都会被放在资源文件中,然后在资源文件中读取。这样做的好处就是在发布游戏的时候不需要将音乐文件打包带上,为发布软件带来很多方便,显示“绿色软件”风格。

【编程思路】
    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