当前位置: 源码素材网 » VB教程 » 详情页

VB 获得文件图标的函数

  •   时间:2019-09-02
  • 概述:图标

分享一个VB6.0获取文件图标的函数,函数名称:函数:GetFileIcon,功能描述:描述:Filename——文件路径;SmallIcon——可选,是否以小图标显示。函数代码如下:

Public Function GetFileIcon(FileName, Optional ByVal SmallIcon As Boolean = True) As IPictureDisp
    Dim Index As Integer
    Dim hIcon As Long
    Dim item_num As Long
    Dim icon_pic As IPictureDisp
    Dim sh_info As SHFILEINFO
    If SmallIcon = True Then
        SHGetFileInfo FileName, 0, sh_info, Len(sh_info), SHGFI_ICON + SHGFI_SMALLICON
    Else
        SHGetFileInfo FileName, 0, sh_info, Len(sh_info), SHGFI_ICON + SHGFI_LARGEICON
    End If
    hIcon = sh_info.hIcon
    Set icon_pic = IconToPicture(hIcon)
    Set GetFileIcon = icon_pic
End Function

    相关声明:

      若“VB 获得文件图标的函数”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。