我的userform上有很多控件,除了“登录按钮”和“Shift Date”文本框之外我想在加载时禁用所有这些控件,所以我使用下面的代码:
Private Sub Form_Load()
Call GetValues
Me.WlcmLabel.Caption = "Hi " + GetUserName + " ! "
Dim ctrl As Control
For Each ctrl In Me.Controls
ctrl.Enabled = False
Next
Me.ShiftDate.Enabled = True
Me.LoginBtn.Enabled = True
Set ctrl = Nothing
End Sub
但这给了我一个错误的加载说“对象不支持这个属性或方法。”
一旦用户点击登录按钮,所有控件都将启用。
我的代码中会出现什么错误?
请询问是否需要任何其他信息。谢谢 !
尝试锁定控件。我使用了下面的锁定属性,但我使用每个控件的tag属性将其标识为可锁定。因此,您不想锁定的控件将不会在tag属性中获得任何内容,因此不会锁定。对于您的应用程序,您可以翻转逻辑,因为您只想让两个控件保持解锁状态。
For Each ctlCurr In Me.Controls
If ctlCurr.Tag = "Lockable" Then
ctlCurr.Locked = True
End If
Next
您无法禁用标签控制,这就是错误发生的原因。你必须检查控制的类型。
For Each ctrl In Me.Controls
With ctrl
a = TypeName(ctrl)
Select Case .ControlType
Case acLabel
Case acEmptyCell
Case Else
ctrl.Enabled = False
End Select
End With
Next ctrl
仅在不标签时应用禁用。