从用户条目启用和锁定文本框
下面的示例演示 Enabled 和 Locked 属性以及它们如何互补。 本示例使用 CheckBox 单独阐释每个属性,这样您可以观察单独和组合设置的效果。 本示例还包括第二个 TextBox ,以便在 TextBox 控件之间复制和粘贴信息,并验证这些属性的设置所支持的活动。
注意 可以使用 CTRL+C 将所选内容复制到剪贴板,并使用 CTRL+V 进行粘贴。
若要使用本示例,请将此示例代码复制到窗体的"脚本编辑器"中。 确保该窗体包含:
一个名为"TextBox1"的 TextBox 。
两个名称分别为"CheckBox1"和"CheckBox2"的 CheckBox 控件。
另外一个名为"TextBox2"的 TextBox 。
Dim TextBox1
Dim TextBox2
Dim CheckBox1
Dim CheckBox2
Sub CheckBox1_Click()
TextBox2.Text = "TextBox2"
TextBox1.Enabled = CheckBox1.Value
End Sub
Sub CheckBox2_Click()
TextBox2.Text = "TextBox2"
TextBox1.Locked = CheckBox2.Value
End Sub
Sub Item_Open()
Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1")
Set TextBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox2")
Set CheckBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CheckBox1")
Set CheckBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CheckBox2")
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。