复选框控件、Enabled 和 Locked 属性示例

下例演示了 Enabled 和 Locked 属性，及它们如何互相补充。这个例子展现每一个属性时与复选框无关，所以可以观察单个和组合设置。 该示例还包括第二个文本框，所以可以在文本框控件之间复制和粘贴信息，并检验由这些属性设置支持的动作。

注意 可以按 Ctrl + C 把选定内容复制到剪贴板，按 Ctrl + V 进行粘贴。

窗体包含：

• 名为 TextBox1 的文本框。
• 名为 CheckBox1 和 CheckBox2 的两个复选框控件。
• 名为 TextBox2 的第二个文本框。

示例

Sub UserForm_CheckBox1_Change()
    UserForm_TextBox2.Text = "TextBox2"
    UserForm_TextBox1.Enabled = UserForm_CheckBox1.Value
End Sub

Sub UserForm_CheckBox2_Change()
    UserForm_TextBox2.Text = "TextBox2"
    UserForm_TextBox1.Locked = UserForm_CheckBox2.Value
End Sub

Sub UserForm_Initialize()
    UserForm_TextBox1.Text = "TextBox1"
    UserForm_TextBox1.Enabled = True
    UserForm_TextBox1.Locked = False
    
    UserForm_CheckBox1.Caption = "Enabled"
    UserForm_CheckBox1.Value = True
    
    UserForm_CheckBox2.Caption = "Locked"
    UserForm_CheckBox2.Value = False
    
    UserForm_TextBox2.Text = "TextBox2"
End Sub