home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / ComboBoxEX2066925222007.psc / ComboBoxEx32 / modImageList.bas < prev   
BASIC Source File  |  2007-05-09  |  4KB  |  80 lines
  1. Attribute VB_Name = "modImageList"
  2. ' Some of the functions written by me and some of the functions i taken from PSC
  3.  
  4. Option Explicit
  5. Public Type RECT
  6.         Left As Long
  7.         Top As Long
  8.         Right As Long
  9.         Bottom As Long
  10. End Type
  11.  
  12. '====== IMAGE APIS ===========================================================
  13. '#ifndef NOIMAGEAPIS
  14. Public Const CLR_NONE = vbBlack                '00FFFFFFFFL
  15. Public Const CLR_DEFAULT = vbBlue        ' &hFF000000L
  16. 'struct _IMAGELIST;
  17. 'Public Type _IMAGELIST NEAR* HIMAGELIST;
  18. '#if (_WIN32_IE >= = &h0300)
  19. Public Type IMAGELISTDRAWPARAMS
  20.            cbSize As Long
  21.     hIml As Long '    HIMAGELIST  himl;
  22.              i As Long
  23.              hdcDst As Long
  24.              x As Long
  25.              y As Long
  26.              cx As Long
  27.              cy As Long
  28.              xBitmap    As Long      ' x offest from the upperleft of bitmap
  29.              yBitmap     As Long       ' y offset from the upperleft of bitmap
  30.     rgbBk    As Long 'COLORREF    rgbBk;
  31.     rgbFg  As Long 'COLORREF    rgbFg;
  32.             fStyle As Long
  33.            dwRop As Long
  34. '} IMAGELISTDRAWPARAMS, FAR * LPIMAGELISTDRAWPARAMS;
  35. '#End If     ' _WIN32_IE >= = &h0300
  36. End Type
  37. Public Const ILC_MASK = &H1
  38. Public Const ILC_COLOR = &H0
  39. Public Const ILC_COLORDDB = &HFE
  40. Public Const ILC_COLOR4 = &H4
  41. Public Const ILC_COLOR8 = &H8
  42. Public Const ILC_COLOR16 = &H10
  43. Public Const ILC_COLOR24 = &H18
  44. Public Const ILC_COLOR32 = &H20
  45. Public Const ILC_PALETTE = &H800                   ' (not implemented)
  46. 'All Byval
  47. Public Declare Function ImageList_Create Lib "COMCTL32.DLL" (ByVal cx As Long, ByVal cy As Long, ByVal flags As Long, ByVal cInitial As Long, ByVal cGrow As Long) As Long
  48. Public Declare Function ImageList_Destroy Lib "COMCTL32.DLL" (ByVal hIml As Long) As Boolean
  49. Public Declare Function ImageList_GetImageCount Lib "COMCTL32.DLL" (ByVal hIml As Long) As Long
  50. Public Declare Function ImageList_SetImageCount Lib "COMCTL32.DLL" (ByVal hIml As Long, uNewCount As Long) As Boolean
  51. '#if (_WIN32_IE >= = &h0300)
  52. 'WINCOMMCTRLAPI BOOL        WINAPI ImageList_SetImageCount(HIMAGELIST himl, UINT uNewCount);
  53. '#End If
  54. Public Declare Function ImageList_Add Lib "COMCTL32.DLL" (ByVal hIml As Long, ByVal hbmImage As Long, ByVal hbmMask As Long) As Long
  55. Public Declare Function ImageList_ReplaceIcon Lib "COMCTL32.DLL" (ByVal hIml As Long, ByVal i As Long, ByVal hIcon As Long) As Long
  56. Public Declare Function ImageList_SetBkColor Lib "COMCTL32.DLL" (ByVal hIml As Long, ByVal clrBk As Long) As Long
  57. Public Declare Function ImageList_GetBkColor Lib "COMCTL32.DLL" (ByVal hIml As Long) As Long
  58. Public Declare Function ImageList_SetOverlayImage Lib "COMCTL32.DLL" (ByVal hIml As Long, ByVal iImage As Long, ByVal iOverlay As Long) As Boolean
  59. Public Declare Function ImageList_AddIcon Lib "COMCTL32.DLL" Alias "ImageList_ReplaceIcon" (ByVal hIml As Long, Optional ByVal i As Long = -1, Optional ByVal hIcon As Long) As Long
  60. 'Public Declare Function ImageList_ReplaceIcon Lib "COMCTL32.DLL" (himl As Long, Optional i As Long = -1, Optional hIcon As Long) As Long
  61.  
  62. Public Const ILD_NORMAL = &H0
  63. Public Const ILD_TRANSPARENT = &H1
  64. Public Const ILD_MASK = &H10
  65. Public Const ILD_IMAGE = &H20
  66. '#if (_WIN32_IE >= = &h0300)
  67. 'Public Const ILD_ROP = &H40
  68. '#End If
  69. Public Const ILD_BLEND25 = &H2
  70. Public Const ILD_BLEND50 = &H4
  71. Public Const ILD_OVERLAYMASK = &HF00
  72. 'Public Const INDEXTOOVERLAYMASK(i)   ((i) << 8)
  73.  
  74. Public Const ILD_SELECTED = ILD_BLEND50
  75. Public Const ILD_FOCUS = ILD_BLEND25
  76. Public Const ILD_BLEND = ILD_BLEND50
  77. Public Const CLR_HILIGHT = CLR_DEFAULT
  78. Public Declare Function ImageList_Draw Lib "COMCTL32.DLL" (ByVal hIml As Long, ByVal i As Long, ByVal hdcDst As Long, ByVal x As Long, ByVal cy As Long
  79.       I0(st CLR_HILIGHT = CLR_DEFAULT
  80. PublicnoWS*y