Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]致红袍哥,还有一个问题,窗口图标如何调用配置栏Button图标?


  共有2100人关注过本帖树形打印复制链接

主题：[求助]致红袍哥,还有一个问题,窗口图标如何调用配置栏Button图标?
帅哥哟，离线，有人找我吗？
coch2004
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：602 积分：6912 威望：0 精华：0 注册：2012/5/30 16:01:00 		[求助]致红袍哥,还有一个问题,窗口图标如何调用配置栏Button图标?  发帖心情 Post By：2015/12/27 14:38:00 [只看该作者]

e.Sender 是配置栏某个菜单Button  已经包含图标的
If dr IsNot Nothing Then
                    If 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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)

 回到顶部
帅哥哟，离线，有人找我吗？
coch2004
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：602 积分：6912 威望：0 精华：0 注册：2012/5/30 16:01:00 		  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/27 14:53:00 [只看该作者]

Dim btn As object = ConfigBar.Items("BrowseMode")
Forms("窗口2").BaseForm.Icon=Icon.FromHandle(new bitmap(btn.SmallImage).GetHicon)

 回到顶部
帅哥哟，离线，有人找我吗？
coch2004
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：602 积分：6912 威望：0 精华：0 注册：2012/5/30 16:01:00 		  发帖心情 Post By：2015/12/27 14:57:00 [只看该作者]

不好意思,还是行不通,如果改成Object ,现在连代码保存都不行. 

图片点击可在新窗口打开查看此主题相关图片如下：456.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
coch2004
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：602 积分：6912 威望：0 精华：0 注册：2012/5/30 16:01:00 		  发帖心情 Post By：2015/12/27 15:10:00 [只看该作者]

搞定了,谢谢了, 具体情况是:Forms(frm.Name).BaseForm.Icon=Icon.FromHandle(e.Sender.LargeImage.GetHIcon())

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/27 15:14:00 [只看该作者]

Dim img As image = ConfigBar.Items("BrowseMode").SmallImage
Forms("窗口2").BaseForm.Icon=Icon.FromHandle(new bitmap(img).GetHicon) 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询