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

Выбор значка для кнопки панели инструментов или команды меню

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

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

Инструкции

3 При открытом диалоговом окне Настройка выполните одно из следующих действий:

·чтобы изменить значок на кнопке панели инструментов, щелкните правой кнопкой мыши кнопку с данным значком, а затем выберите команду Изменить значок на кнопке в контекстном меню;

·чтобы изменить значок команды меню, выберите меню в строке меню или на панели инструментов или выберите контекстное меню, содержащее команду с данным значком, который нужно изменить. Щелкните правой кнопкой мыши команду меню, выберите команду Изменить значок на кнопке в контекстном меню, а затем нужный значок.

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

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 Укажите любые другие свойства для кнопки.

Дата добавления: 2014-11-29