home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / DisplayMes174101542004.psc / bDisplay.bas < prev    next >
BASIC Source File  |  2004-02-05  |  1KB  |  28 lines
  1. Attribute VB_Name = "bDisplay"
  2. Option Explicit
  3.  
  4. Public AlertCount As Integer
  5.  
  6. Public Const HWND_TOPMOST = -1
  7. Public Const SWP_NOSIZE = &H1
  8. Public Const SWP_NOMOVE = &H2
  9. Public Const SWP_NOACTIVATE = &H10
  10. Public Const SWP_SHOWWINDOW = &H40
  11.  
  12. Private m_snd() As Byte
  13. Private Const SND_ASYNC = &H1 ' play asynchronously
  14. Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
  15.  
  16. Public Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
  17.  
  18. Private Declare Function PlaySoundData Lib "winmm.dll" Alias "PlaySoundA" _
  19.                                            (lpData As Any, _
  20.                                       ByVal hModule As Long, _
  21.                                       ByVal dwFlags As Long) As Long
  22.  
  23. Public Function PlaySound(ByVal SndID As Long) As Long
  24.        Const Flags = SND_ASYNC Or SND_MEMORY
  25.        m_snd = LoadResData(SndID, "SOUND")
  26.        PlaySoundData m_snd(0), 0, Flags
  27. End Function
  28.