重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
网络原因。通过查询vb官网了解显示得知,vb.net正在加载图标是网络原因导致的,VB.NET是一种简单,现代,,它由微软开发,将NET Framework和公共语言运行库的强大功能相结合。
“专业、务实、高效、创新、把客户的事当成自己的事”是我们每一个人一直以来坚持追求的企业文化。 成都创新互联公司是您可以信赖的网站建设服务商、专业的互联网服务提供商! 专注于做网站、网站设计、软件开发、设计服务业务。我们始终坚持以客户需求为导向,结合用户体验与视觉传达,提供有针对性的项目解决方案,提供专业性的建议,创新互联建站将不断地超越自我,追逐市场,引领市场!
''' 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
设置VB.NET程序图标的方法如下:
(1)在“解决方案资源管理器”中,鼠标右键点击应用程序项目,调出右键菜单--属性
(2)在项目属性页中,点击“应用程序”--点开图标下拉列表框--浏览...
(3)在对话框中,选择合适的图标,然后单击“打开”
(4)应用程序的图标设置完毕
(5)编译后,生成的exe文件换成了刚才设置的图标