以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口菜单像素  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126792)

--  作者:cqli
--  发布时间:2018/10/29 12:50:00
--  窗口菜单像素
你好!
如何设置菜单尺寸大小

Dim Strip As WinForm.Strip = e.Form.Strips.Add("状态栏", StripTypeEnum.StatusBar)
Strip.Items.Add("提交", "提交", "bd4.ico", StripItemTypeEnum.Button)
Strip.Items("提交").DockToRight = True \'靠右停放


--  作者:有点甜
--  发布时间:2018/10/29 13:35:00
--  

比如

 

Dim Strip As WinForm.Strip = e.Form.Strips.Add("状态栏", StripTypeEnum.StatusBar)
Strip.Items.Add("提交", "提交", "bd4.ico", StripItemTypeEnum.Button)
Strip.Items("提交").DockToRight = True \'靠右停放
Strip.Items("提交").DisplayText = True
Strip.Items("提交").basecontrol.font = new font("宋体",20)


--  作者:cqli
--  发布时间:2018/10/29 13:57:00
--  
你好!
不是字体像素。改的是窗口菜单图标尺寸,把默认尺寸16,16改成其它尺寸

--  作者:有点甜
--  发布时间:2018/10/29 14:17:00
--  
Dim Strip As WinForm.Strip = e.Form.Strips.Add("状态栏", StripTypeEnum.StatusBar)
strip.basecontrol.ImageScalingSize = new size(32,32)
Strip.Items.Add("提交", "提交", "d:\\test.jpg", StripItemTypeEnum.Button)
Strip.Items("提交").DockToRight = True \'靠右停放
Strip.Items("提交").DisplayText = True
Strip.Items("提交").basecontrol.font = new font("宋体",20)

--  作者:y2287958
--  发布时间:2018/10/29 15:38:00
--  
mark