home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / FYI__UserC204114152007.psc / cBMPparser.cls < prev   
Text File  |  2007-01-01  |  2KB  |  47 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cBMPparser"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. ' No APIs are declared public. This is to prevent possibly, differently
  17. ' declared APIs, or different versions of the same API, from conflciting
  18. ' with any APIs you declared in your project. Same rule for UDTs.
  19.  
  20. Private Type SafeArrayBound
  21.     cElements As Long
  22.     lLbound As Long
  23. End Type
  24. Private Type SafeArray
  25.     cDims As Integer
  26.     fFeatures As Integer
  27.     cbElements As Long
  28.     cLocks As Long
  29.     pvData As Long
  30.     rgSABound(0 To 1) As SafeArrayBound ' reusable UDT for 1 & 2 dim arrays
  31. End Type
  32. Private Type BITMAP
  33.     bmType As Long
  34.     bmWidth As Long
  35.     bmHeight As Long
  36.     bmWidthBytes As Long
  37.     bmPlanes As Integer
  38.     bmBitsPixel As Integer
  39.     bmBits As Long
  40. End Type
  41.  
  42. ' used to transfer a stdPicture bmp,jpg,wmf to a DIB
  43. Private Declare Function GetGDIObject Lib "gdi32.dll" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, ByRef lpObject As Any) As Long
  44. Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long
  45. Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
  46. Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long Alias "ng
  47. Pll"