Шаг 14 - Добавляем пункт меню

Задача добавить пункт меню и связать со скриптом. Смотрим код:

b = av.GetProject.FindGUI("View").GetMenuBar
newPositionIndex = b.GetControls.Count - 2
newMenu=b.New( newPositionIndex )
newMenu.SetLabel("Test")
theItem1= newMenu.New(-1)
theItem1.SetLabel("Hello")
theItem1.SetClick( "Script1" )

Теперь результат.

14_1.gif (1981 b)

После щелчка срабатывает скрипт.

MsgBox.Info("Menu","")

14_2.gif (6809 b)

Ну и сам код. Первое мы находим объект меню для вида.

b = av.GetProject.FindGUI("View").GetMenuBar

Получаем позицию и добавляем в эту позицию пункт меню.

newMenu=b.New( newPositionIndex )

Дальше устанавливаем надпись и создаем подпункт.

theItem1= newMenu.New(-1)

И опять надпись, и свойство какой скрипт вызывать.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 29.03.2002