以文本方式查看主题

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

--  作者:江南小城
--  发布时间:2016/6/20 14:01:00
--  [求助]隐藏按钮
老师好
任务栏有按钮1、按钮2、按钮3 另有一个窗口1,窗口1中有按钮4、按钮5、按钮6,窗口1中的按钮默认隐藏。点击任务栏按钮1时打开窗口1同时显示按钮4、点击任务栏按钮2打开窗口1显示窗口按5,下面以此类推。
--  作者:狐狸爸爸
--  发布时间:2016/6/20 15:23:00
--  

打开窗口并显示按钮,很简单,例如打开窗口,显示按钮1,隐藏按钮2和按钮3:

 

Forms("窗口名").Open()
Forms("窗口名").Controls("按钮1").Visible = True
Forms("窗口名").Controls("按钮2").Visible = False
Forms("窗口名").Controls("按钮3").Visible = False