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

【编程思路】
    VB程序中背景音乐的制作就是调用API函数。

【设计步骤】
    1.打开一个新的工程-->>添加一个标准窗体和一个标准模块（加载VB 6资源编辑器）。
    2.打开资源编辑器，添加自定义资源。将sound.wav文件添加到资源文件中（类型："WAVE"、标识号："Click"）（类型一定为要"WAVE"）。之后，保存资源文件"工程1.RES"。
    3.在Form1上添加一个CommandBox控件和一个CheckBox控件。

    4.源程序  [素材源程序下载]


'一、将以下程序添加到标准模块Module1中

Option Explicit

Public Const SND_RESOURCE& = &H40004
Public Const SND_ASYNC& = &H1

Public BlnClickSound As Boolean

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
       (ByVal lpszName As String, _
       ByVal hModule As Long, _
       ByVal dwFlags As Long) As Long

Public Sub PlayFromRes(ByVal ResID As String)
        If BlnClickSound = True Then
                Call PlaySound(ResID, App.hInstance, SND_RESOURCE Or SND_ASYNC)
        End If
End Sub

'二、将以下程序添加到窗体Form1中

Option Explicit

Private Sub Form_Load()
        BlnClickSound = True
End Sub

Private Sub Check1_Click()
        BlnClickSound = Not BlnClickSound
End Sub

Private Sub Command1_Click()
        Call PlayFromRes("click")
End Sub