以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 窗口菜单高度  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107222)
--  作者：zcgmxf
--  发布时间：2017/9/23 17:56:00
--  [求助] 窗口菜单高度

老师，如何用代码设置窗口菜单工具栏的高度？谢谢

 

Dim o3 As object = e.form.Strips("工具栏1").basecontrol
Dim fnt As New Font("宋体",10.5 ) \' ,FontStyle.bold)
o3.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
o3.font = fnt  \'
o3.GripStyle = 0
o3.ForeColor = Color.white
o3.backcolor = Color.OliveDrab

 

这是论坛的，能否从中设置？
--  作者：有点甜
--  发布时间：2017/9/24 23:43:00
--  
Dim o3 As object = e.form.Strips("工具栏1").basecontrol
Dim fnt As New Font("宋体",10.5 ) \' ,FontStyle.bold)
o3.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
o3.font = fnt  \'
o3.GripStyle = 0
o3.ForeColor = Color.white
o3.backcolor = Color.OliveDrab
o3.autosize = false
o3.height = 100