vb。net 的treeview控件引用 系统imagelist图标，或者调用资源文

这段时间写个小程序，用来管理散落在电脑各个角落的文档，用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函数 Declare Auto Function Icon_Num Lib "Shell32.dll" Alias "ExtractIcon" (ByVal src As System.IntPtr,ByVal uiIconIndex As Integer) As Integer ''' <summary> ''' 获得文件类型小图标 ''' </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> ''' 获取资源文件的图标 ''' </summary> ''' <param name="sFileName">有图标的文件</param> ''' <param name="index">要获取图标的索引数</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

（编辑：李大同）

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