[求助]关于“隐藏”的几个问题，求大神帮忙！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于“隐藏”的几个问题，求大神帮忙！

共有7686人关注过本帖树形打印复制链接主题：[求助]关于“隐藏”的几个问题，求大神帮忙！

龙潭春早

小大 11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/24 13:18:00 [显示全部帖子]

有相关代码吗？

龙潭春早

小大 12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/25 21:55:00 [显示全部帖子]

请教：

想隐藏这几个栏目，代码对吗？

TopToolBar.Visible = False

ConfigBar.Visible = False

StatusBar.Visible = False

最后一个好像不对，保存的时候，说 Visible 不是 StatusBar 的成员。

龙潭春早

小大 13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/26 14:02:00 [显示全部帖子]

1、嗯之前研究过这一段。

就是因为有这个内容，所以才想弄出一套自己的菜单。

其实现在就是基于这个系统菜单，在设计自己的菜单。

真的非常不错，只是没那么熟，有些地方不得不请教。

2、隐藏状态栏，这个要怎么写才对呢？

StatusBar.Visible = False

龙潭春早

小大 14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/26 15:07:00 [显示全部帖子]

这么复杂啊，难怪弄不出来！图片点击可在新窗口打开查看

这个在帮助里好像没有介绍过，是不同的说明体系吗？

龙潭春早

小大 15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/26 16:38:00 [显示全部帖子]

嗯再研究研究。

另外，这段代码一直使用正常：

Dim itm As object

For Each itm In RibbonTabs()

itm.Visible = False '打开项目后,隐藏功能区

今天在代码编辑器点击“确定”，却显示这个，什么情况？

dvubb 此主题相关图片如下：dim itm as object.jpg

龙潭春早

小大 16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/26 17:42:00 [显示全部帖子]

什么意思？

1、是说在同一个事件中，不能定义两组相同的字符串作为变量名称吗？

但是，之前也是这样定义的，运行一直正常啊。

2、从楼上提供的内容中，怎么判断出是重复定义了变量呢？

[此贴子已经被作者于2018/7/26 17:44:00编辑过]

龙潭春早

小大 17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/26 19:44:00 [显示全部帖子]

嗯我的这种不应该属于重复定义啊：

If MainTable.Name = "首页" Then

Dim itm As object

For Each itm In RibbonTabs()

itm.Visible = False

Forms("首页窗口").Open()

Else

Dim itm As object

For Each itm In RibbonTabs()

itm.Visible = True

End If

—— 是不是 Else 后面的这段代码“Dim itm As object”可以不要？

[此贴子已经被作者于2018/7/26 19:52:01编辑过]

龙潭春早

小大 18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/26 20:58:00 [显示全部帖子]

在 MainTableChanged 事件中，设置代码：

If MainTable.Name = "首页" Then '

Dim itm As object

For Each itm In RibbonTabs()

itm.Visible = False

TopToolBar.Visible = False

ConfigBar.Visible = False

ApplicationMenu.Visible = False

QAT.Visible = False

Dim a As C1.Win.C1Ribbon.C1StatusBar = Ctype(BaseMainForm.Controls("C1StatusBar1"),C1.Win.C1Ribbon.C1StatusBar)

a.visible = False

TableCaptionVisible = False

Forms("首页窗口").Open()

Else

Dim itm As object

For Each itm In RibbonTabs()

itm.Visible = True

TopToolBar.Visible = True

ConfigBar.Visible = True

ApplicationMenu.Visible = True

QAT.Visible = True

Dim a As C1.Win.C1Ribbon.C1StatsBar = Ctype(BaseMainForm.Controls("C1StatusBar1"),C1.Win.C1Ribbon.C1StatusBar)

a.visible = True

TableCaptionVisible = True

End If

显示错误：

dvubb 此主题相关图片如下：dim itm as object 是错误代码？不会吧？.jpg

dvubb 此主题相关图片如下：隐藏状态栏代码，说是没有定义某个类型？.jpg

[此贴子已经被作者于2018/7/26 20:58:28编辑过]

龙潭春早

小大 19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/26 21:27:00 [显示全部帖子]

这段代码我测试没问题。

第一个错误，修改 Dim a As C1.Win.C1Ribbon.C1StatusBar = Ctype(BaseMainForm.Controls("C1StatusBar1"),C1.Win.C1Ribbon.C1StatusBar)
[此贴子已经被作者于2018/7/26 21:00:37编辑过]

1、在我这里运行，怎么就会出错呢？

2、没有要修改的内容啊，这段代码和上面的是完全一样的

龙潭春早

小大 20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00

Post By：2018/7/26 21:36:00 [显示全部帖子]

嗯知道原因了

下一主题 >> << 上一主题

总数 50 上一页 1 2 3 4 5 下一页

主题：[求助]关于“隐藏”的几个问题，求大神帮忙！