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

Пример использования события Click, элемента управления CommandButton и свойств Accelerator и Caption

  • Статья

В этом примере изменяются свойства ускорителя и заголовкаэлемента CommandButton каждый раз, когда пользователь нажимает кнопку с помощью мыши или клавиши ускорителя. Событие Click содержит код для изменения свойств Accelerator и Caption .

Чтобы использовать этот код, вставьте его в раздел описаний формы, содержащей элемент управления CommandButton с именем CommandButton1.

Private Sub UserForm_Initialize() 
 CommandButton1.Accelerator = "C" 
 'Set Accelerator key to COMMAND + C 
End Sub 
 
Private Sub CommandButton1_Click () 
 If CommandButton1.Caption = "OK" Then 
 'Check caption, then change it. 
 CommandButton1.Caption = "Clicked" 
 CommandButton1.Accelerator = "C" 
 'Set Accelerator key to COMMAND + C 
 Else 
 CommandButton1.Caption = "OK" 
 CommandButton1.Accelerator = "O" 
 'Set Accelerator key to COMMAND + O 
 End If 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.