modsound.bas

简单的一个拼图游戏原代码

Attribute VB_Name = "modSound"
'--------------------------------------
'源程序的版权属原作者所有！
'所有源程序经过玫瑰雪儿检测，并保证通过。
'网名：玫瑰雪儿
'站点：rosesnow.onchina.net
'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