专家坐堂-[求助]按钮Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按钮  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=87765)

--  作者：江南小城
--  发布时间：2016/7/19 9:23:00
--  [求助]按钮

老师，我要把下面两个按钮合成一个按钮，谢谢老师

Select Case e.Link.text

Case "显示标题"
TableCaptionVisible = Not TableCaptionVisible \'切换表标题
Case "系统界面"
BaseMainform.Controls("C1Ribbon1").Visible = not BaseMainform.Controls("C1Ribbon1").Visible
End Select

--  作者：大红袍
--  发布时间：2016/7/19 9:32:00
--

Select Case e.Link.text

Case "切换显示"

TableCaptionVisible = Not TableCaptionVisible \'切换表标题

BaseMainform.Controls("C1Ribbon1").Visible = not BaseMainform.Controls("C1Ribbon1").Visible

End Select

--  作者：江南小城
--  发布时间：2016/7/19 10:34:00
--
老师，不能单纯切换成只显示表标题

--  作者：大红袍
--  发布时间：2016/7/19 10:37:00
--
你要做什么？具体说明。

--  作者：江南小城
--  发布时间：2016/7/19 10:42:00
--
能切换成显示表标题不显示菜单再能切换成隐藏表标题和菜单。

--  作者：大红袍
--  发布时间：2016/7/19 10:50:00
--
Select Case e.Link.text
    Case "显示标题"
        TableCaptionVisible = True
        BaseMainform.Controls("C1Ribbon1").Visible = False
        e.link.Text = "显示菜单"
    Case "显示菜单"
        TableCaptionVisible = True
        BaseMainform.Controls("C1Ribbon1").Visible = True
        e.link.Text = "隐藏标题"
    Case "隐藏标题"
        TableCaptionVisible = False
        BaseMainform.Controls("C1Ribbon1").Visible = True
        e.link.Text = "隐藏菜单"
    Case "隐藏菜单"
        TableCaptionVisible = false
        BaseMainform.Controls("C1Ribbon1").Visible = False
        e.link.Text = "显示标题"
End Select

--  作者：江南小城
--  发布时间：2016/7/19 11:02:00
--
感谢老师