这段时间写个小程序，用来管理散落在电脑各个角落的文档，用treeview做目录树，一开始，用从shell32.dll提出出来的图标导到vb.net 的imagelist控件，再绑定到treeview。意外发现绑定到treeview 后，显示出来的图标在阴影部分有一圈黑色，看起来就不顺眼。

在百度搜索许久，都没有能够找到解决这个问题的方法，只有一篇英文的，看不懂，只好在csdn发了两篇帖子求教，

http://topic.csdn.net/u/20100114/23/1b911000-6e34-4fdb-81ff-dcda6164bea6.html

http://topic.csdn.net/u/20100117/09/2faec75f-eeef-497f-8f75-c8ae276195de.html

vb。net版块回复的人不多，最终还是自己解决这个问题。把代码贴上来，经自己日后学习，或者给有需要的人参考一下吧

Imports System Imports System.Drawing Imports System.Runtime.InteropServices Imports System.Windows.Forms Imports System.IO Public Class CGetICO Private Const SHGFI_SMALLICON = &H1 Private Const SHGFI_LARGEICON = &H0 Private Const SHGFI_ICON = &H100 Private Const SHGFI_USEFILEATTRIBUTES = &H10 Public Enum IconSize SmallIcon = SHGFI_SMALLICON LargeIcon = SHGFI_LARGEICON End Enum <StructLayout(LayoutKind.Sequential)> _ Private Structure SHFILEINFO ' pointer to icon handle Public hIcon As IntPtr ' icon index Public iIcon As Integer ' not used in this example Public dwAttributes As Integer ' file pathname--marshal this as ' an unmanaged LPSTR of MAX_SIZE <MarshalAs(UnmanagedType.LPStr,SizeConst:=260)> _ Public szDisplayName As String ' file type--marshal as unmanaged ' LPSTR of 80 chars <MarshalAs(UnmanagedType.LPStr,SizeConst:=80)> _ Public szTypeName As String End Structure Private Declare Auto Function SHGetFileInfo _ Lib "shell32" (ByVal pszPath As String,ByVal dwFileAttributes As Integer,ByRef psfi As SHFILEINFO,_ ByVal cbFileInfo As Integer,ByVal uFlags As Integer) As Integer Declare Auto Function ExtractIcon Lib "Shell32.dll" Alias "ExtractIcon" (ByVal src As System.IntPtr,ByVal strFileName As String,ByVal uiIconIndex As UInt32) As System.IntPtr '声明ExtractIcon<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a> Declare Auto Function Icon_Num Lib "Shell32.dll" Alias "ExtractIcon" (ByVal src As System.IntPtr,ByVal uiIconIndex As Integer) As Integer ''' <summary> ''' 获得<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>类型小图标 ''' </summary> ''' <param name="fsi"></param> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function GetSmallIcon(ByVal fsi As FileSystemInfo) As Icon Return CGetICO.GetIcon(fsi,SHGFI_SMALLICON) End Function ''' <summary> ''' ''' </summary> ''' <param name="fsi"></param> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function GetLargeIcon(ByVal fsi As FileSystemInfo) As Icon Return CGetICO.GetIcon(fsi,SHGFI_LARGEICON) End Function Private Shared Function GetIcon(ByVal fsi As FileSystemInfo,ByVal anIconSize As Integer) As Icon Dim aSHFileInfo As New SHFILEINFO() Dim cbFileInfo As Integer = Marshal.SizeOf(aSHFileInfo) Dim uflags As Integer = SHGFI_ICON Or SHGFI_USEFILEATTRIBUTES Or anIconSize Try SHGetFileInfo(fsi.FullName,fsi.Attributes,aSHFileInfo,cbFileInfo,uflags) Return Icon.FromHandle(aSHFileInfo.hIcon) Catch ex As Exception Return Nothing End Try End Function ''' <summary> ''' <a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>资源<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的图标 ''' </summary> ''' <param name="sFileName">有图标的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a></param> ''' <param name="index">要<a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>图标的索引数</param> ''' <returns>返回图标句炳</returns> ''' <remarks> Icon.FromHandle ( hIcon ).ToBitmap </remarks> Public Shared Function hGetIco(ByVal sFileName As String,ByVal index As Integer) As System.IntPtr hGetIco = ExtractIcon(IntPtr.Zero,sFileName,index) End Function End Class