- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]致红袍哥,还有一个问题,窗口图标如何调用配置栏Button图标? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79242)
-- 发布时间：2015/12/27 14:38:00
-- [求助]致红袍哥,还有一个问题,窗口图标如何调用配置栏Button图标?
e.Sender 是配置栏某个菜单Button 已经包含图标的
If dr IsNot Nothing ThenIf Forms(frm.name).FormStyle=0 Then \'定义窗体图标
Dim tabpage = Forms(frm.name).panel.parent
tabpage.image = e.Sender....... \'getimage(projectPath & "images\\" & dr("formnameico")) \'此处最好也帮忙调用Button图标吧,免得浪费查询 资源
Else If Forms(frm.name).FormStyle=2 Then
Dim ss As String = dr("formnameico")
\'Forms(frm.name).BaseForm.Icon=New icon(projectPath & "images\\" & ss )
Forms(frm.name).BaseForm.Icon=Icon.FromHandle(e.Sender.icon) 此处错误,请帮忙更改一下, 谢谢!
End If
End If
[此贴子已经被作者于2015/12/27 14:42:51编辑过]
-- 发布时间：2015/12/27 14:45:00
--
Dim btn As RibbonMenu.ToggleButton = ConfigBar.Items("BrowseMode")
Forms("窗口2").BaseForm.Icon=Icon.FromHandle(new bitmap(btn.SmallImage).GetHicon)
-- 发布时间：2015/12/27 14:52:00
--
运行的时候发生错误,
Dim btn As RibbonMenu.ToggleButton = e.Sender
Forms(frm.Name).BaseForm.Icon=Icon.FromHandle(New bitmap(btn.SmallImage).GetHicon)
此主题相关图片如下：234.png
-- 发布时间：2015/12/27 14:53:00
--
Dim btn As object = ConfigBar.Items("BrowseMode")
Forms("窗口2").BaseForm.Icon=Icon.FromHandle(new bitmap(btn.SmallImage).GetHicon)
-- 发布时间：2015/12/27 14:57:00
--
不好意思,还是行不通,如果改成Object ,现在连代码保存都不行.
此主题相关图片如下：456.png
-- 发布时间：2015/12/27 15:10:00
--
搞定了,谢谢了, 具体情况是:Forms(frm.Name).BaseForm.Icon=Icon.FromHandle(e.Sender.LargeImage.GetHIcon())
-- 发布时间：2015/12/27 15:14:00
--
Dim img As image = ConfigBar.Items("BrowseMode").SmallImage
Forms("窗口2").BaseForm.Icon=Icon.FromHandle(new bitmap(img).GetHicon)