| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 问个按钮的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83924) |
| -- 作者：douglas738888 -- 发布时间：2016/4/19 18:17:00 -- 问个按钮的问题 老师，如果一个BUTTON按钮，第一次按下时显示面板，第二次按下时隐藏面板，以此类推形成单按钮的切换，用代码怎样实现。，这样能节约部分空间。 |
| -- 作者：大红袍 -- 发布时间：2016/4/19 18:19:00 -- Static idx As Integer = 0 Dim i As Integer = idx mod 2 If i = 0 Then \'执行代码 ElseIf i = 1 Then \'执行代码 End If idx += 1 |
| -- 作者：大红袍 -- 发布时间：2016/4/19 18:19:00 -- 方法二：直接写
控件.Visible = not 控件.Visible |
| -- 作者：douglas738888 -- 发布时间：2016/4/19 18:28:00 -- 这种方法是否可取 If SystemMenu Then Syscmd.Project.OpenUserMenu() e.Form.Controls("Panel11").Visible = True Else Syscmd.Project.OpenSystemMenu() e.Form.Controls("Panel11").Visible = False End If 这种方法，好像会有稍许的停顿。 第一种方法可行，谢谢老师！ 第二种方法有NOT，不知怎么理解。
[此贴子已经被作者于2016/4/19 18:32:44编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/4/19 19:07:00 -- 就是这样
e.Form.Controls("Panel11").Visible = not e.Form.Controls("Panel11").Visible |