| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 按钮 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121548) |
|
| -- 作者：江南小镇 -- 发布时间：2018/7/9 11:46: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 = "显示标题" |
|
| -- 作者：有点甜 -- 发布时间：2018/7/9 16:55:00 -- 无法换成按钮代码吧？无法知道你按下了哪个links的。 |
|
| -- 作者：江南小镇 -- 发布时间：2018/7/9 18:13:00 -- 老师，一个按钮能隐藏菜单和显示菜单，怎样设置。 Dim a As object = BaseMainForm.controls("C1Ribbon1") a.Visible = False [此贴子已经被作者于2018/7/9 18:18:24编辑过]
|
|
| -- 作者：江南小镇 -- 发布时间：2018/7/10 9:02:00 -- 老师，希望该按钮点击一次能隐藏菜单再点击一次能显示菜单。 |
|
| -- 作者：有点甜 -- 发布时间：2018/7/10 10:11:00 -- Dim a As object = BaseMainForm.controls("C1Ribbon1") a.Visible = not a.visible |
|
| -- 作者：江南小镇 -- 发布时间：2018/7/10 16:20:00 -- 谢谢老师 |
|
| -- 作者：江南小镇 -- 发布时间：2018/7/11 13:27:00 -- 老师好，希望在下代码中增加显示表名称和隐藏表名称的功能。
|
|
| -- 作者：有点蓝 -- 发布时间：2018/7/11 14:36:00 -- 一样咯 TableCaptionVisible = not TableCaptionVisible
|
|
| -- 作者：江南小镇 -- 发布时间：2018/7/11 15:28:00 -- 老师，太谢谢你了。 |