获取文件默认图标

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

    Private Structure SHFILEINFO
        Public hIcon As IntPtr
        Public iIcon As Integer
        Public dwAttributes As Integer
        <MarshalAs(UnmanagedType.ByValTStr,SizeConst:=260)> _
        Public szDisplayName As String
        <MarshalAs(UnmanagedType.ByValTStr,SizeConst:=80)> _
        Public szTypeName As String
    End Structure

    Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" _
            (ByVal pszPath As String,_
             ByVal dwFileAttributes As Integer,_
             ByRef psfi As SHFILEINFO,_
             ByVal cbFileInfo As Integer,_
             ByVal uFlags As Integer) As IntPtr

    Private Const SHGFI_ICON = &H100
    Private Const SHGFI_SMALLICON = &H1
    Private Const SHGFI_LARGEICON = &H0
    Private nIndex = 0
    Private hImgLarge As IntPtr  'The handle to the system image list.

    Private Function GetLargeIcon(ByVal FilePath As String) As System.Drawing.Icon

        Dim fName As String
        Dim shinfo As SHFILEINFO
        shinfo = New SHFILEINFO()

        shinfo.szDisplayName = New String(Chr(0),260)
        shinfo.szTypeName = New String(Chr(0),80)

        fName = FilePath

        hImgLarge = SHGetFileInfo(fName,shinfo,Marshal.SizeOf(shinfo),SHGFI_ICON Or SHGFI_LARGEICON)

        Dim myIcon As System.Drawing.Icon
        myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)

        Return myIcon

    End Function
    Private Function GetSmallIcon(ByVal FilePath As String) As System.Drawing.Icon

        Dim fName As String
        Dim shinfo As SHFILEINFO
        shinfo = New SHFILEINFO()

        shinfo.szDisplayName = New String(Chr(0),SHGFI_ICON Or SHGFI_SMALLICON)

        Dim myIcon As System.Drawing.Icon
        myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)

        Return myIcon

    End Function

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!