home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / DISSOL32.ZIP / DSLVEXP.BAS next >
Encoding:
BASIC Source File  |  1995-06-26  |  2.3 KB  |  67 lines
  1. Attribute VB_Name = "DSLVEXP1"
  2. Option Explicit
  3.  
  4. Type BITMAPINFOHEADER
  5.    biSize As Long
  6.    biWidth As Long
  7.    biHeight As Long
  8.    biPlanes As Integer
  9.    biBitCount As Integer
  10.    biCompression As Long
  11.    biSizeImage As Long
  12.    biXPelsPerMeter As Long
  13.    biYPelsPerMeter As Long
  14.    biClrUsed As Long
  15.    biClrImportant As Long
  16. End Type
  17.  
  18. Type RGBQUAD
  19.    rgbBlue As Byte
  20.    rgbGreen As Byte
  21.    rgbRed As Byte
  22.    rgbReserved As Byte
  23. End Type
  24.  
  25. Type BITMAPINFO
  26.    bmiHeader As BITMAPINFOHEADER
  27.    bmiColors(1) As RGBQUAD
  28. End Type
  29.  
  30. Declare Function CreateDIBitmap Lib "gdi32" (ByVal hDC As Long, lpInfoHeader As BITMAPINFOHEADER, ByVal dwUsage As Long, ByVal lpInitBits As String, lpInitInfo As BITMAPINFO, ByVal wUsage As Long) As Long
  31. Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  32. Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
  33. 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
  34. Declare Function StretchBlt% Lib "gdi32" Alias "StretchBlt%" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
  35. Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
  36.  
  37. Global Const SRCCOPY = &HCC0020
  38. Global Const SRCPAINT = &HEE0086
  39. Global Const SRCAND = &H8800C6
  40. Global Const SRCINVERT = &H660046
  41. Global Const SRCERASE = &H440328
  42. Global Const NOTSRCCOPY = &H330008
  43. Global Const NOTSRCERASE = &H1100A6
  44. Global Const MERGECOPY = &HC000CA
  45. Global Const MERGEPAINT = &HBB0226
  46. Global Const PATCOPY = &HF00021
  47. Global Const PATPAINT = &HFB0A09
  48. Global Const PATINVERT = &H5A0049
  49. Global Const DSTINVERT = &H550009
  50. Global Const BLACKNESS = &H42&
  51. Global Const WHITENESS = &HFF0062
  52. Global Const BLACKONWHITE = 1
  53. Global Const WHITEONBLACK = 2
  54. Global Const COLORONCOLOR = 3
  55. Global Const BI_RGB = 0&
  56. Global Const BI_RLE8 = 1&
  57. Global Const BI_RLE4 = 2&
  58. Global Const TRANSPARENT = 1
  59. Global Const OPAQUE = 2
  60.  
  61. Global Const CBM_INIT = &H4&
  62.  
  63. Global Const DIB_RGB_COLORS = 0
  64. Global Const DIB_PAL_COLORS = 1
  65.  
  66.  
  67.