home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Enterprise206415552007.psc / Declarations.bas < prev    next >
BASIC Source File  |  2002-05-09  |  3KB  |  80 lines
  1. Attribute VB_Name = "basDeclarations"
  2. '   *********************************************************************
  3. '   ******  Spy GUI Component!  Designed by naeem@email.com ***************
  4. '   *********************************************************************
  5. Option Explicit
  6. Public Declare Function GetDC& Lib "user32" (ByVal hwnd As Long)
  7. Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
  8. Public Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
  9.  
  10. ''Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  11. Public lngColorArray(7670000) As Long
  12.  
  13. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  14. ''''''''''''   Blazing effect declarations       '''''''''''''''''''
  15.  
  16. Public Const Flame_Height = 30
  17.  
  18. '''''    Higher the number the shorter the flame   '''''''''
  19. Type Pix
  20.     r As Integer   ' Red
  21.     g As Integer   ' Green
  22.     B As Integer   ' Blue
  23.     C As Boolean   ' Constant Colour
  24. End Type
  25.  
  26. Public maxx As Integer   ' Array max x
  27. Public maxy As Integer   ' Array max y
  28.  
  29. Public new_flame() As Pix  ' Flames buffers
  30. Public old_flame() As Pix
  31.  
  32.  
  33. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  34. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  35.  
  36.  
  37. Public Declare Function ReleaseDC& Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long)
  38.  
  39.  
  40. Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
  41.     ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
  42.     ByVal cy As Long, ByVal wFlags As Long) As Long
  43.  
  44. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  45.  
  46. Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
  47.     ByVal yPoint As Long) As Long
  48.     
  49. Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  50.  
  51. Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
  52.     (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
  53.  
  54. Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
  55.     (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  56.  
  57.  
  58. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  59. '''''''               some structures     ''''''''''''''''''''''''
  60. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  61. Public Type POINTAPI
  62.   X As Long
  63.   Y As Long
  64. End Type
  65.  
  66. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  67. ''''' Sound Object from Windows Media Player ...(msdxm.ocx)  ''''
  68. Dim Sound As New MediaPlayer.MediaPlayer
  69. Public Function PlaySound(ByVal strFile As String)
  70.  On Error GoTo EH
  71.   Sound.Open App.Path & "\" & strFile
  72.   Exit Function
  73. EH:
  74.   Query.txtDisplay = Err.Number & Space(2) & Err.Description & vbCrLf & "PlaySound(strFile)"
  75. End Function
  76. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  77. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  78.  
  79.  
  80.