modwav.bas

引用枕善居的天宏钢构仓库管理系统 Ver 2.96

Attribute VB_Name = "Modwav"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/11
'描    述：天宏钢构仓库管理系统 Ver 2.96
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'使窗体右上角的X按钮失效
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

'播放音乐声明
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

    Const SND_SYNC = &H0

    Const SND_ASYNC = &H1

    Const SND_NODEFAULT = &H2

    Const SND_MEMORY = &H4

    Const SND_ALIAS = &H10000

    Const SND_FILENAME = &H20000

    Const SND_RESOURCE = &H40004

    Const SND_ALIAS_ID = &H110000

    Const SND_ALIAS_START = 0

    Const SND_LOOP = &H8

    Const SND_NOSTOP = &H10

    Const SND_VALID = &H1F

    Const SND_NOWAIT = &H2000

    Const SND_VALIDFLAGS = &H17201F

    Const SND_RESERVED = &HFF000000

    Const SND_TYPE_MASK = &H170007

   Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long