CheckBox 控件、Enabled 和 Locked 属性示例

下面的示例演示 Enabled 和 Locked 属性以及它们如何互补。 本示例使用 CheckBox 单独阐释每个属性，这样您可以观察单独和组合设置的效果。

本示例还包括第二个 TextBox ，以便在 TextBox 控件之间复制和粘贴信息，并验证这些属性的设置所支持的活动。

注意

[!注释] 可以使用 Ctrl+C 将所选内容复制到剪贴板，并使用 Ctrl+V 进行粘贴。

若要使用此示例，请将此示例代码复制到窗体的 Declarations 部分。 确保该窗体包含：

• 一个名为"TextBox1"的 TextBox 。
• 两个名称分别为"CheckBox1"和"CheckBox2"的 CheckBox 控件。
• 另外一个名为"TextBox2"的 TextBox 。

Private Sub CheckBox1_Change() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Enabled = CheckBox1.Value 
End Sub 
 
Private Sub CheckBox2_Change() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Locked = CheckBox2.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "TextBox1" 
 TextBox1.Enabled = True 
 TextBox1.Locked = False 
 
 CheckBox1.Caption = "Enabled" 
 CheckBox1.Value = True 
 
 CheckBox2.Caption = "Locked" 
 CheckBox2.Value = False 
 
 TextBox2.Text = "TextBox2" 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。