Пример использования элемента управления CheckBox и свойств Enabled и Locked

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

В этом примере также содержится второй элемент TextBox , который позволяет копировать и вставлять сведения между элементами управления TextBox и проверять действия, поддерживаемые параметрами этих свойств.

Примечание.

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

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

• Элемент TextBox с именем TextBox1.
• Два элемента управления CheckBox с именами CheckBox1 и CheckBox2.
• Второй элемент TextBox с именем TextBox2.

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