Foxtable(狐表)用户栏目专家坐堂 → 发布后的程序,菜单标题,如何居中


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

主题:发布后的程序,菜单标题,如何居中

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


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
发布后的程序,菜单标题,如何居中  发帖心情 Post By:2014/11/21 8:49:00 [显示全部帖子]

如题,以前发布的,是自动居中的
新项目,发布后,是靠左的

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


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
  发帖心情 Post By:2014/11/21 9:08:00 [显示全部帖子]

默认是靠左还是居中?

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


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
  发帖心情 Post By:2014/11/21 9:16:00 [显示全部帖子]

知道原因了,用了

Dim Ribbon As C1Ribbon.C1Ribbon = BaseMainform.Controls("C1Ribbon1")
Ribbon.Visible = False

For Each tab As RibbonMenu.Tab In RibbonTabs
    tab.Visible = False
Next
配置栏还在

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


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
  发帖心情 Post By:2014/11/21 9:19:00 [显示全部帖子]

我不用菜单,以窗口形式表现

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


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
  发帖心情 Post By:2014/11/21 9:22:00 [显示全部帖子]

For Each tab As RibbonMenu.Tab In RibbonTabs
    tab.Visible = False
Next
隐藏菜单,配置栏也去掉不显示(发布后),试过把配置栏内容清除,出错

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


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
  发帖心情 Post By:2014/11/21 9:27:00 [显示全部帖子]

附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


连发布后的传不上来,自己试一下

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


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
  发帖心情 Post By:2014/11/21 9:31:00 [显示全部帖子]

菜单中不存在名为“backendfilter”的项目

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


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
  发帖心情 Post By:2014/11/21 9:34:00 [显示全部帖子]

怪自己懒,不去找原因

'此段代码用于更新配置栏"后台筛选"按钮的状态,如果按钮已经改名或者移到别的功能区,请对应地修改此段代码
'如果删除了此按钮,应该删除此段代码
Static bf As RibbonMenu.ToggleButton
If bf Is Nothing Then
    bf = CType(ConfigBar.Items("BackEndFilter"), RibbonMenu.ToggleButton)
End If
If CurrentTable.AllowBackEndFilter Then
    If bf.Pressed = False Then
        bf.Pressed = True
    End If
Else
    If bf.Pressed
        bf.Pressed = False
    End If
End If

 回到顶部