home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / pcplus / handson / vbwrk107 / apim.bas < prev    next >
Encoding:
BASIC Source File  |  1995-04-05  |  1.8 KB  |  47 lines
  1. Option Explicit
  2.  
  3. 'constants for mouse pointer
  4. Global Const HOURGLASS = 11
  5. Global Const DEFAULT = 0
  6.  
  7.  
  8. 'declarations and constants for controlling list and text boxs
  9. Declare Function SendMessageByNum% Lib "USER" Alias "SendMessage" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam As Long)
  10. Declare Function SendMessageByString% Lib "USER" Alias "SendMessage" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam As String)
  11. Global Const WM_SETREDRAW = &HB
  12. Global Const WM_USER = &H400
  13. Global Const LB_ADDSTRING = (WM_USER + 1)
  14. Global Const EM_GETLINECOUNT = (WM_USER + 10)
  15. Global Const EM_LINEINDEX = (WM_USER + 11)
  16. Global Const LB_FINDSTRING = (WM_USER + 16)
  17. Global Const LB_SETTOPINDEX = (WM_USER + 24)
  18.  
  19.  
  20. 'declarations and constants for help engine
  21. Declare Function WinHelp% Lib "User" (ByVal hWnd%, ByVal lpHelpFile$, ByVal wCommand%, dwData As Any)
  22. Global Const HELP_INDEX = &H3
  23. Global Const HELP_QUIT = &H2
  24.  
  25.  
  26. 'declarations and constants for logo animation
  27. Declare Function BitBlt% Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop&)
  28. Global Const SRCCOPY = &HCC0020
  29. Global Const MINIMIZED = 1
  30.  
  31. 'declarations and constants for activating windows
  32. Declare Function FindWindowByClass% Lib "User" Alias "FindWindow" (ByVal lpClassName$, ByVal lpWindowName&)
  33. Declare Function FindWindowByTitle% Lib "User" Alias "FindWindow" (ByVal lpClassName&, ByVal lpWindowName$)
  34. Declare Function ShowWindow% Lib "User" (ByVal hWnd%, ByVal nCmdShow%)
  35. Global Const SW_SHOWNOACTIVATE = 4
  36.  
  37. 'flag to hold logo screen active state
  38. Global AboutLoaded As Integer
  39.  
  40. 'flag to indicate button added to VB toolbar
  41. Global BtnLoaded As Integer
  42.  
  43. Sub Center_Form (vbf As Form)
  44. vbf.Move (Screen.Width - vbf.Width) \ 2, (Screen.Height - vbf.Height) \ 2
  45. End Sub
  46.  
  47.