VB.NET下获取系统图标

最新推荐文章于 2022-07-14 15:05:15 发布

copico

最新推荐文章于 2022-07-14 15:05:15 发布

阅读量3.1k

点赞数

文章标签： vb.net integer imagelist exception function string

本文链接：https://blog.csdn.net/copico/article/details/674837

版权

本文介绍如何在VB.NET中通过调用SHGetFileInfo API函数获取系统文件或文件夹的小图标，并将其添加到ImageList中，以便在需要时进行显示。在尝试获取图标时，代码还处理可能出现的异常。

摘要由CSDN通过智能技术生成

在这里用到一个API函数

    Public Declare Function SHGetFileInfo Lib "shell32" ( _
                                                     ByVal pszPath As String, _
                                                     ByVal dwFileAttributes As Integer, _
                                                     ByRef sfi As SHFILEINFO, _
                                                     ByVal cbsfi As Integer, _
                                                     ByVal uFlags As Integer) As Integer

                            '获取图标()
                            Dim ic2 As Icon
                            Dim HR_Small As Integer
                            Dim shfi_Small As New SHFILEINFO
                            HR_Small = SHGetFileInfo(strfile, 0, shfi_Small, Marshal.SizeOf(shfi_Small), SHGFI.SMALLICON Or SHGFI.ICON)

'strfile是要获取图标的文件的路径,可以是文件夹,也可以是文件.

Try