以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  程序菜单显示问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87865)
--  作者：lgj716330
--  发布时间：2016/7/21 15:26:00
--  程序菜单显示问题
Dim lb1 As new RibbonMenu.Label("Space")
 lb1.Text = new String(" ",500)
 ConfigBar.Items.Add(lb1)

配置栏这样设置后，程序菜单就显示不出来了，如何解决
--  作者：Hyphen
--  发布时间：2016/7/21 16:35:00
--  
 ConfigBar.Items.Remove(ConfigBar.Items("Space"))
--  作者：lgj716330
--  发布时间：2016/7/21 17:17:00
--  
意思是 做个按钮控制是吗
--  作者：大红袍
--  发布时间：2016/7/21 18:04:00
--  

参考代码

 

Dim w As Double = basemainform.width - 60
ConfigBar.Items.clear
Dim lb1 As new RibbonMenu.Label("Space")
Dim gc As Graphics = BaseMainform.CreateGraphics()
For i As Integer = 1 To 1000
    Dim str = "".PadLeft(i, "a")
    Dim size As SizeF = gc.MeasureString(str, basemainform.font)
    If size.Width > w Then
        lb1.Text = new String(" ", i)
        ConfigBar.Items.Add(lb1)
        Exit For
    End If
Next