这样的代码能否精简 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这样的代码能否精简

共有8890人关注过本帖树形打印复制链接主题：这样的代码能否精简

lxl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2012/3/28 21:09:00 [显示全部帖子]

Dim i1 As String = e.Form.Controls("label6").text

e.Form.Controls("现金表").Visible = （i1 = "现金表")

e.Form.Controls("工资卡").Visible =（i1 = "工资卡")

e.Form.Controls("银行存款").Visible =（i1 = "银行存款")

e.Form.Controls("债权").Visible =（i1 = "债权")

简洁不重要，可读性才重要：

每个控件是否可见，取决于标签的值是不是和该控件名称相等

lxl

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2012/3/28 21:25:00 [显示全部帖子]

如果控件比较多的话，把这些控件放在一个面板里面，假设面板是 Panel1

Dim i1 As String = e.Form.Controls("label6").text

For Each ctl As System.Windows.Forms.Control In e.Form.Controls("Panel1").BaseControl.Controls

ctl.Visible = (i1 = ctl.Name)

主题：这样的代码能否精简