189 8069 5689
Icon.ExtractAssociatedIcon(string);
站在用户的角度思考问题，与客户深入沟通，找到岑溪网站设计与岑溪网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站制作、成都做网站、外贸营销网站建设、企业官网、英文网站、手机端网站、网站推广、空间域名、网络空间、企业邮箱。业务覆盖岑溪地区。
返回指定文件中所包含的图标
//////////////////////////////////////////
可以,你可以使用ToBitmap()方法将其转换为一个将此 Icon 转换为 GDI+ Bitmap。
Image mImage = Icon.ExtractAssociatedIcon(string).ToBitmap();
''' 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
您好，看到您的问题很久没有人回答，但是问题过期无人回答会被扣分并且你的悬赏分也会被没收！所以我给你提几条建议： 1，提问要尽量完整清晰不要有生僻的字，回答者一点都不知道你的情况如果你的问题也不清楚的话回答者就不知道你说的是什么，就谈不上回答你的问题了。 2，提问时不要一次性提很多相同的问题，提相同的问提让人看着很有压力很烦恼，甚至会认为你作弊的。所以一个问题提一次请出简明即可。 3，提问者应该尊重回答者，别人不是你的奴隶必须为你解决问题，所以提问时请注意文明用语！尊重他人的劳动。 4，不要问一些太简单的问题，不要明知故问，这是浪费回答者宝贵的时间啊！且不要问一些涉嫌违规的问题。 5，不要涉及尖端科学 ，问问里只是一些普通的人，如果你提得问题连科学家都没有答案，很难在这里问出答案来 ？ 6，可以多交一些知识渊博的网友，以前的一些较难的题，如果有人回答对了，可以和回答者成为好朋友，经常保留着联系，有问题了可以互相探讨的！ 您可以不采纳我的答案，但请您一定要考虑下我的建议哦！ 谢谢采纳！祝你得到满意的结果！
VB.NET编写托盘程序
托盘程序作为一类特殊的窗体，其快捷图标显示在
系统托盘
中，窗体本身则隐藏不可见。在.NET之前版本的VB中编写托盘程序是十分困难的，但是VB.NET提供的新的NotifyIcon组件却使VB初学者也能轻松编写一个这样的程序：
新建“Windows应用程序”，设置主窗体Opacity属性为0，FormBorderStyle属性为None，ShowInTaskbar属性为
False，这样窗体将在启动后隐藏。在窗体上放置一个NotifyIcon组件NotifyIcon1，一个ContextMenu（弹出菜单）组件
ContextMenu1，并根据需要为ContextMenu1添加菜单项。
设置NotifyIcon1的ICON属性，这个图标就是应用程序出现在系统托盘中的快捷图标；设置NotifyIcon1的Text属性为“VB.NET托盘程序”，这就是鼠标移动到托盘图标时弹出的文字说明；设置NotifyIcon1的ContextMenu属性为ContextMenu1，也就是右键单击快捷图标时的弹出菜单为
ContextMenu1。OK，按F5运行！
几乎不用编写代码，一个托盘程序就这样轻松实现了。