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


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

主题：[求助]关于“隐藏”的几个问题，求大神帮忙！
美女呀，离线，留言给我吧！
龙潭春早
 小大  31楼 | 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
    Next
    Forms("首页窗口").Open()
    
Else
    
    Dim itm As object
    For Each itm In RibbonTabs()
        itm.Visible = True
    Next
    
End If

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


[此贴子已经被作者于2018/7/26 19:52:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/26 20:39:00 [只看该作者]

回复楼上，请贴出出错的全部代码。
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  33楼 | 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

    Next

    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

    Next

    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



显示错误：


此主题相关图片如下：dim itm as object 是错误代码？不会吧？.jpg
按此在新窗口浏览图片


此主题相关图片如下：隐藏状态栏代码，说是没有定义某个类型？.jpg
按此在新窗口浏览图片




[此贴子已经被作者于2018/7/26 20:58:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/26 21:00:00 [只看该作者]

这段代码我测试没问题。

 

第一个错误，修改     Dim a As C1.Win.C1Ribbon.C1StatusBar = Ctype(BaseMainForm.Controls("C1StatusBar1"),C1.Win.C1Ribbon.C1StatusBar)

[此贴子已经被作者于2018/7/26 21:00:37编辑过]
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  35楼 | 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、没有要修改的内容啊，这段代码和上面的是完全一样的
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  36楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/7/26 21:36:00 [只看该作者]

嗯 知道原因了

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/26 21:37:00 [只看该作者]

If MainTable.Name = "首页" Then '

    Dim itm As object

    For Each itm In RibbonTabs()

        itm.Visible = False

    Next

    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

    Next

    TopToolBar.Visible = True

    ConfigBar.Visible = True

    ApplicationMenu.Visible = True

    QAT.Visible = True


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


    a.visible = True

   

    TableCaptionVisible = True

   

End If
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  38楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/7/27 11:57:00 [只看该作者]

嗯 多谢啦 问题已经解决

 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  39楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/7/27 13:45:00 [只看该作者]

怎么用代码隐藏窗口顶部的这个标题栏呢？

图片点击可在新窗口打开查看此主题相关图片如下：窗口顶部的标题栏，怎么隐藏？2018.07.27.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/27 14:44:00 [只看该作者]

以下是引用龙潭春早在2018/7/27 13:45:00的发言：
怎么用代码隐藏窗口顶部的这个标题栏呢？

图片点击可在新窗口打开查看此主题相关图片如下：窗口顶部的标题栏，怎么隐藏？2018.07.27.jpg
图片点击可在新窗口打开查看


 

basemainform.Formborderstyle = 0
 回到顶部
总数 90 上一页 1 2 3 4 5 6 7 8 9 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询