Добавление в меню специальной команды, запускающей функцию Visual Basic

1 Создайте функцию, которую должна запускать данная команда.

Инструкции

2 В меню Вид выберите команду Панели инструментов и подкоманду Настройка.

3 Откройте строку меню, контекстное меню или панель инструментов, содержащую меню, к которому добавляется команда.

Инструкции

4 В диалоговом окне Настройка выберите вкладку Команды.

5 В списке Категории выберите Файл.

6 Перетащите команду Сециальные из поля Команды в меню, содержащееся в строке меню или на панели инструментов, или в соответствующую категорию на панели инструментов Контекстные меню. При появлении списка команд меню (или пустого поля, если меню новое) выберите нужное положение команды в меню и отпустите кнопку мыши.

7 При открытом диалоговом окне Настройка щелкните правой кнопкой команду меню и введите новое имя команды в поле Имя в контекстном меню.

8 В этом же контекстном меню выберите команду Свойства.

9 В поле Действие введите имя нужной функции в формате =имяФункции. Например, для специальной функции SetCaption введите =SetCaption(). Для встроенной функции следует ввести имя функции и все обязательные аргументы, например, =MsgBox(IIf(Instr(Time(), "PM"), "Добрый день", "Доброе утро").

10 Укажите любые другие свойства для команды.

Примечание. При добавлении команды ко встроенному меню (например, меню Правка) она будет появляться во всех вариантах вывода на экран этого меню.

K Добавление на панель инструментов специальной кнопки, запускающей функцию Visual Basic

1 Создайте функцию, которую должна запускать данная кнопка.

Инструкции

2 В меню Вид выберите команду Панели инструментов и подкоманду Настройка.

3 Откройте панель инструментов, к которой нужно добавить кнопку.

Инструкции

4 В диалоговом окне Настройка выберите вкладку Команды.

5 В списке Категории выберите Файл.

6 Перетащите нужную команду из поля Команды на выведенную на экран панель инструментов.

7 При открытом диалоговом окне Настройка щелкните правой кнопкой мыши кнопку на панели инструментов и введите новое имя для кнопки в поле Имя в контекстном меню.

8 В этом же контекстном меню выберите команду Свойства.

9 В поле Действие введите имя нужной функции в формате =имяФункции(). Например, для специальной функции SetCaption введите =SetCaption(). Для встроенной функции следует ввести имя функции и все обязательные аргументы, например, =MsgBox(IIf(Instr(Time(), "PM"), "Добрый день", "Доброе утро").

10 Укажите любые другие свойства для кнопки.