Поделиться через

Включение и блокировка текстового поля из пользовательской записи

  • Статья

В следующем примере показано, как свойства Enabled и Locked дополняют друг друга. В этом примере каждое свойство представлено независимо друг от друга с элементом CheckBox, чтобы можно было просматривать объединенные параметры и по отдельности. В этом примере также содержится второй элемент TextBox , который позволяет копировать и вставлять сведения между элементами управления TextBox и проверять действия, поддерживаемые параметрами этих свойств.

Примечание Выделенный фрагмент можно скопировать в буфер обмена с помощью клавиш CTRL+C и вставить с помощью клавиш CTRL+V.

Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Убедитесь, что эта форма содержит:

  • Элемент TextBox с именем TextBox1.

  • Два элемента управления CheckBox с именами CheckBox1 и CheckBox2.

  • Второй элемент TextBox с именем TextBox2.

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 и обратная связь.