Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单


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

主题：菜单
帅哥哟，离线，有人找我吗？
q568514920
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：463 威望：0 精华：0 注册：2018/3/30 18:05:00 		菜单  发帖心情 Post By：2018/6/4 19:33:00 [只看该作者]

设计菜单上工具栏TopToolBar("数据列表").Visible =False 我这段代码是隐藏可是会报错说找不到标题为数据类表的

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107523 积分：546900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/4 20:28:00 [只看该作者]

自己设计的菜单要切换到自定义菜单模式才起作用
 回到顶部
帅哥哟，离线，有人找我吗？
q568514920
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：463 威望：0 精华：0 注册：2018/3/30 18:05:00 		  发帖心情 Post By：2018/6/4 20:53:00 [只看该作者]

那我是当项目运行时就把项目返回成自定义菜单吗

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107523 积分：546900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/4 21:04:00 [只看该作者]

是的

 回到顶部
帅哥哟，离线，有人找我吗？
q568514920
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：463 威望：0 精华：0 注册：2018/3/30 18:05:00 		  发帖心情 Post By：2018/6/4 21:09:00 [只看该作者]

我在项目属性那个AfterOpenProject事件里加上了Syscmd.Project.OpenUserMenu() 这句代码 因为当我打开项目的时候我会弹出登陆窗口，当登陆成功的时候会把一些相应权限的上功能区隐藏 可是我这样写还是报错

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107523 积分：546900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/4 21:12:00 [只看该作者]

默认情况下打开项目就是进入自定义菜单模式的，不需要调用Syscmd.Project.OpenUserMenu()。就是平时在系统菜单模式下开发，测试的时候才需要进入自定义菜单模式。

上传具体实例看看
 回到顶部
帅哥哟，离线，有人找我吗？
q568514920
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：463 威望：0 精华：0 注册：2018/3/30 18:05:00 		  发帖心情 Post By：2018/6/4 21:16:00 [只看该作者]

'将表标签调整到左侧位置

Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
MainTab.Alignment = System.Windows.Forms.TabAlignment.Left
MainTab.HotTrack = True
MainTab.TextDirection = C1.Win.C1Command.TabTextDirectionEnum.VerticalRight
TableCaptionVisible = False

'将并列窗口所在的选项卡标签调整到上方
Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).controls(0)
FormTab.HotTrack = True
FormTab.CanMoveTabs = True
FormTab.CanCloseTabs = True
FormTab.Alignment = System.Windows.Forms.TabAlignment.Top
AddHandler FormTab.TabPageClosing,AddressOf FormTab_TabPageClosing
AddHandler FormTab.MouseDoubleClick,AddressOf FormTab_MouseDoubleClick
AddHandler FormTab.SelectedIndexChanged,AddressOf FormTab_SelectedIndexChanged
TableCaptionVisible = False
Forms("用户登陆").Show()
baseMainform.WindowState = 2

这段代码是我项目属性AfterOpenProject事件的代码
这是我登陆成功后的代码，它就报错说找不到名为数据列表项目的菜单
If _UserPost <> "开发者"
        TopToolBar("数据列表").Visible =False
        TopToolBar("设计模式").Visible =False
        TopToolBar("菜单设计").Visible =False
        TopToolBar("窗口设计").Visible =False
        TopToolBar("分割条4").Visible =False
        TopToolBar("函数管理").Visible =False
        TopToolBar("分割条5").Visible =False
        TopToolBar("分割条6").Visible =False
        TopToolBar("分割条7").Visible =False
        TopToolBar("分割条8").Visible =False
        TopToolBar("分割条9").Visible =False
        TopToolBar("分割条10").Visible =False
        TopToolBar("同步表结构").Visible =False
        TopToolBar("外部表管理").Visible = False
        TopToolBar("保存视图").Visible = False
        TopToolBar("清除测试信息").Visible =False
    Else
        TopToolBar("数据列表").Visible =True
        TopToolBar("设计模式").Visible =True
        TopToolBar("菜单设计").Visible =True
        TopToolBar("窗口设计").Visible =True
        TopToolBar("分割条4").Visible =True
        TopToolBar("函数管理").Visible =True
        TopToolBar("分割条5").Visible =True
        TopToolBar("分割条6").Visible =True
        TopToolBar("分割条7").Visible =True
        TopToolBar("分割条8").Visible =True
        TopToolBar("分割条9").Visible =True
        TopToolBar("分割条10").Visible =True
        TopToolBar("同步表结构").Visible =True
        TopToolBar("外部表管理").Visible = True
        TopToolBar("保存视图").Visible = True
        TopToolBar("清除测试信息").Visible =True
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107523 积分：546900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/4 21:19:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
q568514920
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：463 威望：0 精华：0 注册：2018/3/30 18:05:00 		  发帖心情 Post By：2018/6/4 21:21:00 [只看该作者]

是整个项目吗

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107523 积分：546900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/6/4 21:42:00 [只看该作者]

新建项目参考7楼的用法，做个例子上传

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 4 次数据查询