以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  控件展开与回收  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184514)

--  作者:lisangyu
--  发布时间:2022/12/11 21:09:00
--  控件展开与回收
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.foxdb

蓝总:晚上好
       button控制Panel展开,但是打开的顺序不对,不知道哪里有问题。

--  作者:有点蓝
--  发布时间:2022/12/11 22:20:00
--  
搞那么复杂干什么。把按钮和panel的名称对应起来就行了,比如按钮1名称为button1,对应要显示的panel就设置名称为panel1。
以此类推,button2对应panel2....

click事件
if e.sender.name like "Button*" then
dim p as winform.panel = e.form.controls("Panel" & e.sender.name.replace("Button",""))
p.visible = not p.visible 
end if