home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / TileMaker1935149242005.psc / TileMaker / CaptureCode.bas < prev   
BASIC Source File  |  1999-01-21  |  787b  |  43 lines
  1. Attribute VB_Name = "CaptureCode"
  2. Private Type PALETTEENTRY
  3. peRed As Byte
  4. peGreen As Byte
  5. peBlue As Byte
  6. peFlags As Byte
  7. End Type
  8.  
  9. Private Type LOGPALETTE
  10. palVersion As Integer
  11. palNumEntries As Integer
  12. 'Enough for 256 colors
  13. palPalEntry(255) As PALETTEENTRY
  14. End Type
  15.  
  16. Private Type GUID
  17. Data1 As Long
  18. Data2 As Integer
  19. Data3 As Integer
  20. Data4(7) As Byte
  21. End Type
  22.  
  23.  
  24. Private Const RASTERCAPS As Long = 38
  25. Private Const RC_PALETTE As Long = &H100
  26. Private Const SIZEPALETTE As Long = 104
  27.  
  28. Private Type RECT
  29.    Left As Long
  30.    Top As Long
  31.    Right As Long
  32.    Bottom As Long
  33. End Type
  34.  
  35. Private Type PicBmp
  36.    Size As Long
  37.    Type As Long
  38.    hBmp As Long
  39.    hPal As Long
  40.    Reserved As Long
  41. End Type
  42.  
  43. Private Declare Function BitBlt Lib "GDI32" (oLefaBst B