Foxtable(狐表)用户栏目专家坐堂 → 程序菜单显示问题


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

主题:程序菜单显示问题

帅哥哟,离线,有人找我吗?
lgj716330
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1399 积分:10804 威望:0 精华:0 注册:2013/11/8 15:27:00
程序菜单显示问题  发帖心情 Post By:2016/7/21 15:26:00 [只看该作者]

Dim lb1 As new RibbonMenu.Label("Space")
 lb1.Text = new String(" ",500)
 ConfigBar.Items.Add(lb1)

配置栏这样设置后,程序菜单就显示不出来了,如何解决

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/7/21 16:35:00 [只看该作者]

 ConfigBar.Items.Remove(ConfigBar.Items("Space"))

 回到顶部
帅哥哟,离线,有人找我吗?
lgj716330
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1399 积分:10804 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2016/7/21 17:17:00 [只看该作者]

意思是 做个按钮控制是吗

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


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


 回到顶部