modsound.bas

是一个拼数字的游戏！拼图游戏由中上部的游戏区和下边的答案显示区两个部分组成。游戏区的右边有一张被分割成好几块、已被打乱排序的大图案板。它占了整个游戏区约3/4左右。左上角则有一张小巧可爱的完整图片。其

Attribute VB_Name = "modSound"
'--------------------------------------
'源程序的版权属原作者所有！
'所有源程序经过陶海峰检测，并保证通过。
'作者：陶海峰
'班级：电信021
'学号：200204135031
'E_mail：[e-mail]
'希望老师指导
'--------------------------------------
Option Explicit

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10
'产生声音
Public Sub PlaySound(strSound As String)

    Dim wFlags%
    
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    sndPlaySound strSound, wFlags%

End Sub