vb.net安装后自带非常多的图标,我的是vb2008,其路径为:C:\Program Files\Microsoft Visual Studio 9.0\Common7\VS2008ImageLibrary\2052\VS2008ImageLibrary
10年积累的网站建设、网站制作经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计制作后付款的网站建设流程,更有堆龙德庆免费网站建设让你可以放心的选择与我们合作。
自己解压VS2008ImageLibrary后就能看到大量的常用图标
首先你要在工程里面添加至少一个imagelist1控件,把里面放上合适的图标。然后在listview的largeimagelist(对应大图表显示模式)或者smalllimagelist(对应其他显示模式)属性里面指定imagelist1控件。
最后在你的代码添加上文件类型判断代码,根据不同的文件选择不同的图标,最后添加到集合当中去。
设置VB.NET程序图标的方法如下:
(1)在“解决方案资源管理器”中,鼠标右键点击应用程序项目,调出右键菜单--属性
(2)在项目属性页中,点击“应用程序”--点开图标下拉列表框--浏览...
(3)在对话框中,选择合适的图标,然后单击“打开”
(4)应用程序的图标设置完毕
(5)编译后,生成的exe文件换成了刚才设置的图标
Dim mc As System.Windows.Forms.Cursor
mc = Cursors.Arrow
mc当前获取就是箭头鼠标
放在解决方案资源管理器还没完。进入项目属性,资源,把解决方案资源管理器里的资源文件拖进来,改个便于调用的名称,然后My.Resources里面就可以调用了。如果是VS可以识别的,那么就直接是Bitmap类型的,可以隐式转换成Image类型。
''' summary
''' Returns an icon for a given file - indicated by the name parameter.
''' /summary
''' param name="name"Pathname for file./param
''' param name="size"Large or small/param
''' param name="linkOverlay"Whether to include the link icon/param
''' returnsSystem.Drawing.Icon/returns
Public Shared Function GetFileIcon(ByVal name As String, ByVal size As IconSize, ByVal linkOverlay As Boolean) As System.Drawing.Icon
Dim shfi As New Shell32.SHFILEINFO()
Dim flags As UInteger = Shell32.SHGFI_ICON Or Shell32.SHGFI_USEFILEATTRIBUTES
If True = linkOverlay Then
flags += Shell32.SHGFI_LINKOVERLAY
End If
' Check the size specified for return.
If IconSize.Small = size Then
flags += Shell32.SHGFI_SMALLICON
Else
flags += Shell32.SHGFI_LARGEICON
End If
Shell32.SHGetFileInfo(name, Shell32.FILE_ATTRIBUTE_NORMAL, shfi, CInt(System.Runtime.InteropServices.Marshal.SizeOf(shfi)), flags)
' Copy (clone) the returned icon to a new object, thus allowing us to clean-up properly
Dim icon As System.Drawing.Icon = DirectCast(System.Drawing.Icon.FromHandle(shfi.hIcon).Clone(), System.Drawing.Icon)
User32.DestroyIcon(shfi.hIcon)
' Cleanup
Return icon
end function