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