原创 获取文件关联的图标

System.Drawing.Icon名字空间提供了一个非常简单的办法获取与文件相关联的图标,调用ExtractAssociatedIcon方法,指定文件路径就能得到一个ICON对象.此方法返回指定文件中包含的图像的图标表示形式。当 ExtractAssociatedIcon 用于位图时，如果运行应用程序的系统具有导致位图文件显示为缩略图的注册表设置，则可能返回缩略图而不是图标。

示例代码如下:

    Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim Files() As String
            Files = e.Data.GetData(DataFormats.FileDrop)

            lstFiles.Items.Clear()

            For Each f As String In Files
                lstFiles.Items.Add(f)
                Me.Icon = System.Drawing.Icon.ExtractAssociatedIcon(f)
                Button1.Image = Me.Icon.ToBitmap
            Next

        End If
    End Sub

    Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

程序运行后,把文件拖向程序界面,就能获得图标,如下所示:

 <梅川酷子原创>