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

Изменение акселератора и заголовка кнопки

  • Статья

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

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

Dim CommandButton1 
 
Sub Item_Open() 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").CommandButton1 
 CommandButton1.Accelerator = "C" 'Set Accelerator key to ALT + C 
End Sub 
 
Sub CommandButton1_Click () 
 If CommandButton1.Caption = "OK" Then 'Check caption, then change it. 
 CommandButton1.Caption = "Clicked" 
 CommandButton1.Accelerator = "C" 'Set Accelerator key to ALT + C 
 Else 
 CommandButton1.Caption = "OK" 
 CommandButton1.Accelerator = "O" 'Set Accelerator key to ALT + O 
 End If 
End Sub

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

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