Enabled 属性设置

Question

For I = 0 To Controls.Count - 1
        If TypeName(Controls(I)) = "Menu" Then Controls(I).enabled= True
    Next

Answer 1

Sub set_Enable(Enabled As Boolean, ParamArray objs() As Variant)
   Dim xxx As Variant
   For Each xxx In objs
      xxx.Enabled = Enabled
   Next xxx
End Sub调用如下：
    call set_Enable(True, Text1, Text2, Command1, Command2)

Answer 2

For Each Control In form1.Controls
    If TypeOf Control Is Text then
       control.enable=false
    end if
 Next