home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / RPG_Engine768744282002.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2002-04-16  |  2.4 KB  |  55 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  5. Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  6. Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
  7. Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  8. Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
  9. Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  10. Public Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
  11. Public Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
  12. Public Declare Function GetTickCount Lib "kernel32" () As Long
  13. Public Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
  14. Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
  15. Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  16.  
  17. Public Type MoB
  18.     x As Long
  19.     y As Long
  20.     OldX As Long
  21.     OldY As Long
  22.     Direction As Long
  23.     Movement As Integer
  24.     Moved As Boolean
  25. End Type
  26.  
  27. Public Type BITMAP
  28.     bmType As Long
  29.     bmWidth As Long
  30.     bmHeight As Long
  31.     bmWidthBytes As Long
  32.     bmPlanes As Integer
  33.     bmBitsPixel As Integer
  34.     bmBits As Long
  35. End Type
  36.  
  37. Public Const SRCAND = &H8800C6
  38. Public Const SRCPAINT = &HEE0086
  39. Public Const SRCCOPY = &HCC0020
  40.  
  41. Public Const GM_CONTROL = &H11
  42. Public Const GM_DOWN = &H28
  43. Public Const GM_ESCAPE = &H1B
  44. Public Const GM_LEFT = &H25
  45. Public Const GM_RIGHT = &H27
  46. Public Const GM_UP = &H26
  47. Public Const GM_SPACE = &H20
  48.  
  49.  
  50. Public Const IMAGE_BITMAP As Long = 0
  51. Public Const LR_LOADFROMFILE As Long = &H10
  52. Public Const LR_CREATEDIBSECTION As Long = &H2000
  53.  
  54.  
  55.