zoukankan      html  css  js  c++  java
  • 获取文件图标

     1 Private Const MAX_PATH = 260
     2 Private Const SHGFI_DISPLAYNAME = &H200         ' get display name
     3 Private Const SHGFI_EXETYPE = &H2000           ' return exe type
     4 Private Const SHGFI_LARGEICON = &H0           ' get large icon
     5 Private Const SHGFI_SHELLICONSIZE = &H4         ' get shell size icon
     6 Private Const SHGFI_SMALLICON = &H1           ' get small icon
     7 Private Const SHGFI_SYSICONINDEX = &H4000        ' get system icondex
     8 Private Const SHGFI_TYPENAME = &H400           ' get type name
     9 Private Const ILD_BLEND50 = &H4
    10 Private Const ILD_BLEND25 = &H2
    11 Private Const ILD_TRANSPARENT = &H1
    12 Private Const CLR_NONE = &HFFFFFFFF
    13 Private Const CLR_DEFAULT = &HFF000000
    14 Private Type SHFILEINFO
    15     hIcon As Long
    16     iIcon As Long
    17     dwAttributes As Long
    18     szDisplayName As String * MAX_PATH
    19     szTypeName As String * 80
    20 End Type
    21 Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As LongAs Long
    22 Private Declare Function ImageList_Draw Lib "comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal hdcDst As Long, ByVal x As Long, ByVal y As Long, ByVal fStyle As LongAs Long
    23 Private Declare Function ImageList_DrawEx Lib "comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal hdcDst As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal rgbBk As Long, ByVal rgbFg As Long, ByVal fStyle As LongAs Long
    24 
    25 
    26 Private Sub Form_Load()
    27     Dim hImage As Long, udtFI As SHFILEINFO
    28     Me.AutoRedraw = True
    29     hImage = SHGetFileInfo("C:\Program Files\Windows Media Player\wmplayer.exe", ByVal 0&, udtFI, Len(udtFI), SHGFI_SYSICONINDEX Or SHGFI_LARGEICON)
    30     ImageList_Draw hImage, udtFI.iIcon, Me.hDC, 00, ILD_TRANSPARENT
    31     ImageList_DrawEx hImage, udtFI.iIcon, Me.hDC, 3203232, CLR_NONE, CLR_DEFAULT, ILD_BLEND50
    32 End Sub
    33 
  • 相关阅读:
    项目管理工具Redmine各功能测试
    TestLink学习八:TestLink1.9.13与Mantis1.2.19集成
    TestLink学习七:TestLink测试用例Excel转换XML工具
    Mantis1.2.19 在Windows 平台上的安装配置详解
    TestLink学习六:TestLink1.9.13工作使用小结
    TestLink学习五:TestLink1.9.13和JIRA6.3.6的集成
    TestLink学习四:TestLink1.9.13使用说明
    TestLink学习三:发送邮件的两种配置方法
    网页太长怎么截图?
    JIRA学习一:Windows下安装破解JIRA6.3.6
  • 原文地址:https://www.cnblogs.com/xxaxx/p/1635312.html
Copyright © 2011-2022 走看看