home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD53124282000.psc / modEffects.bas < prev    next >
Encoding:
BASIC Source File  |  2000-04-28  |  1.5 KB  |  54 lines
  1. Attribute VB_Name = "modEffects"
  2. Option Explicit
  3. '//Scrolling Credtis Const and Api Call
  4. Public Const EM_GETLINECOUNT = &HBA
  5. Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  6.                             (ByVal hwnd As Long, _
  7.                             ByVal wMsg As Long, _
  8.                             ByVal wParam As Long, _
  9.                             lParam As Any) As Long   ' <---
  10.  
  11.  
  12. '//Bouncing image variables
  13. Public VelX As Integer
  14. Public VelY As Integer
  15. Public MaxX As Integer
  16. Public MaxY As Integer
  17. Public X As Integer
  18. Public Y As Integer
  19.  
  20. '//Form On Top Code Starts Here
  21. Public Declare Function SetWindowPos _
  22. Lib "user32" ( _
  23.     ByVal hwnd As Long, _
  24.     ByVal hwndinsertafter As Long, _
  25.     ByVal X As Long, _
  26.     ByVal Y As Long, _
  27.     ByVal cx As Long, _
  28.     ByVal cy As Long, _
  29.     ByVal wFlags As Long _
  30.     ) As Long
  31.  
  32. '//SetWindowPos flags
  33. Public Const SWP_NOSIZE = &H1
  34. Public Const SWP_NOMOVE = &H2
  35. Public Const SP_NOZORDER = &H4
  36. Public Const SWP_NOREDRAW = &H8
  37. Public Const SWP_NOACTIVATE = &H10
  38. Public Const SWP_FRAMECHANGED = &H20
  39. Public Const SWP_SHOWWINDOW = &H40
  40. Public Const SWP_HIDEWINDOW = &H80
  41. Public Const SWP_NOCOPYBITS = &H100
  42. Public Const SWP_NOOWNERZORDER = &H200
  43. Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
  44. Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
  45.  
  46. 'SetWindowsPos hwndInsertAfter values
  47. Public Const HWND_TOP = 0
  48. Public Const HWND_BOTTOM = 1
  49. Public Const HWND_TOPMOST = -1
  50. Public Const HWND_NOTOPMOST = -2
  51.    
  52. Public mbOnTop As Boolean
  53. '//Form OnTop Code Ends Here
  54.