home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD90538172000.psc / GetIcon.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-30  |  1.3 KB  |  41 lines
  1. Attribute VB_Name = "GetIcon"
  2. '***************************************************************
  3. 'Windows API/Global Declarations for :GetIcons
  4. '***************************************************************
  5. Public Const MAX_PATH = 260
  6. Public Const SHGFI_DISPLAYNAME = &H200
  7. Public Const SHGFI_EXETYPE = &H2000
  8. Public Const SHGFI_SYSICONINDEX = &H4000 'system icon index
  9. Public Const SHGFI_LARGEICON = &H0 'large icon
  10. Public Const SHGFI_SMALLICON = &H1 'small icon
  11. Public Const ILD_TRANSPARENT = &H1 'display transparent
  12. Public Const SHGFI_SHELLICONSIZE = &H4
  13. Public Const SHGFI_TYPENAME = &H400
  14. Public Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME _
  15. Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX _
  16. Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
  17.  
  18.  
  19. Public Type SHFILEINFO
  20.     hIcon As Long
  21.     iIcon As Long
  22.     dwAttributes As Long
  23.     szDisplayName As String * MAX_PATH
  24.     szTypeName As String * 80
  25.     End Type
  26.  
  27.  
  28. Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" _
  29.     (ByVal pszPath As String, _
  30.     ByVal dwFileAttributes As Long, _
  31.     psfi As SHFILEINFO, _
  32.     ByVal cbSizeFileInfo As Long, _
  33.     ByVal uFlags As Long) As Long
  34.  
  35.  
  36. Public Declare Function ImageList_Draw Lib "comctl32.dll" _
  37.     (ByVal himl&, ByVal i&, ByVal hDCDest&, _
  38.     ByVal x&, ByVal y&, ByVal flags&) As Long
  39.     Public shinfo As SHFILEINFO
  40.  
  41.