对多控件属性的管理

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

 1 Private Sub Form_Load()
 2    '时间：2011-12-1
 3    
 4   On Error GoTo Err_e
 5   
 6    Dim ctl As Control   '定义一个控件变量
 7    
 8    For Each ctl In Me.Controls
 9        '根据ctl的控件类型来选择
10        Select Case ctl.ControlType
11               Case acTextBox '当是文本框类型的时候
12               If ctl.Locked = True Then   '如果该控件已经定义了锁定属性，则隐藏该控件
13                  ctl.Visible = False
14                  Else
15                  ctl.Visible = True   '否知对该控件进行锁定
16               End If
17               Case acComboBox  '当是组合框的时候，不锁定 可见该控件
18               ctl.Locked = False
19               ctl.Visible = True
20                   End Select
21               
22               Next
23 Exit_e:
24    Exit Sub
25 Err_e:
26    MsgBox Err.Description
27    Resume Exit_e
28    
29 End Sub

 

转载于:https://www.cnblogs.com/logbolgs/archive/2012/03/01/2374940.html