| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 菜单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119956) |
| -- 作者：q568514920 -- 发布时间：2018/6/4 19:33:00 -- 菜单 设计菜单上工具栏TopToolBar("数据列表").Visible =False 我这段代码是隐藏可是会报错说找不到标题为数据类表的 |
| -- 作者：有点蓝 -- 发布时间：2018/6/4 20:28:00 -- 自己设计的菜单要切换到自定义菜单模式才起作用 |
| -- 作者：q568514920 -- 发布时间：2018/6/4 20:53:00 -- 那我是当项目运行时就把项目返回成自定义菜单吗 |
| -- 作者：有点蓝 -- 发布时间：2018/6/4 21:04:00 -- 是的 |
| -- 作者：q568514920 -- 发布时间：2018/6/4 21:09:00 -- 我在项目属性那个AfterOpenProject事件里加上了Syscmd.Project.OpenUserMenu() 这句代码 因为当我打开项目的时候我会弹出登陆窗口，当登陆成功的时候会把一些相应权限的上功能区隐藏 可是我这样写还是报错 |
| -- 作者：有点蓝 -- 发布时间：2018/6/4 21:12:00 -- 默认情况下打开项目就是进入自定义菜单模式的，不需要调用Syscmd.Project.OpenUserMenu()。就是平时在系统菜单模式下开发，测试的时候才需要进入自定义菜单模式。 上传具体实例看看
|
| -- 作者：q568514920 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2018/6/4 21:19:00 -- 请上传实例测试 |
| -- 作者：q568514920 -- 发布时间：2018/6/4 21:21:00 -- 是整个项目吗 |
| -- 作者：有点蓝 -- 发布时间：2018/6/4 21:42:00 -- 新建项目参考7楼的用法，做个例子上传 |