对多控件属性的管理

在窗体上存在很TextBox  ComboBox等控件的时候，用代码约束属性应该是个更简单的办法。(以ACCESS为例)

Private Sub Form_Load()
   '时间：2011-12-1
   
  On Error GoTo Err_e
  
   Dim ctl As Control   '定义一个控件变量
   
   For Each ctl In Me.Controls
       '根据ctl的控件类型来选择
       Select Case ctl.ControlType
              Case acTextBox '当是文本框类型的时候
              If ctl.Locked = True Then   '如果该控件已经定义了锁定属性，则隐藏该控件
                 ctl.Visible = False
                 Else
                 ctl.Visible = True   '否知对该控件进行锁定
              End If
              Case acComboBox  '当是组合框的时候，不锁定 可见该控件
              ctl.Locked = False
              ctl.Visible = True
                  End Select
              
              Next
Exit_e:
   Exit Sub
Err_e:
   MsgBox Err.Description
   Resume Exit_e
   
End Sub