以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  隐藏多个按钮  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129148)
--  作者：联友
--  发布时间：2018/12/22 15:13:00
--  隐藏多个按钮
窗口有"全部学生","更新学生","新增学生","保存"，想全部隐藏
e.Form.Controls("全部学生").Visible = False
e.Form.Controls("更新学生").Visible = False
e.Form.Controls("新增学生").Visible = False
e.Form.Controls("保存").Visible = False
能用Select Case语句吗，请老师指教，谢谢！
    Select Case e.Form.Controls
        Case "全部学生","更新学生","新增学生","保存"
            .Value.Visible = False
    End Select
--  作者：有点蓝
--  发布时间：2018/12/22 15:22:00
--  
没有这种用法。如果项目多可以这样

dim nms() as string = {"全部学生","更新学生","新增学生","保存"}
for each nm as string in nms
e.Form.Controls(nm).Visible = False
next
--  作者：联友
--  发布时间：2018/12/22 15:26:00
--  
谢谢！