Программирование для карманных компьютеров - стр. 47
10. После того как библиотека будет добавлена к проекту, соответствующий значок появится на палитре компонентов, и компонент MenuBar можно будет поместить на форму. Для свойства NewButton нужно установить значение false. Запуск проекта в таком состоянии не покажет никаких изменений. Чтобы меню отобразилось на форме, необходимо настроить и создать объекты, соответствующие тому, что должно отображаться на форме. Это делается программным путем в обработчике события Form_Load().
11. Прежде чем писать обработчик события, нужно разобраться с компонентом MenuBar. Сам компонент представляет собой коллекцию команд меню (объект MenuBarMenu) и кнопок (объекты MenuBarButton), которая создается и отображается на нижней панели экрана Pocket PC. Кроме свойств объекта MenuBar, которые отображены в инспекторе, есть еще свойство Collection, содержащее индексированную коллекцию меню и кнопок, и свойство ImageList, содержащее ссылку на коллекцию изображений, которые будут отображаться на кнопках. События ButtonClick, MenuClick и NewClick предназначены для обработки событий щелчка на кнопках, пунктах меню и кнопки New соответственно.
Добавление компонентов к коллекции производится при помощи методов AddButton и AddMenu объекта Collection. Доступ к элементам коллекции может производиться как по индексу, так и по символьному ключу, который задается для каждого элемента коллекции в момент его создания.
12. Добавить к коду приложения обработчик события Form_Load(). Код обработчика приведен в листинге 3.13. В него добавлены комментарии, которые можно не вводить в код приложения. Они потребуются лишь для удобства рассмотрения этого фрагмента.
>Rem 1
>Dim mnuFile As MenuBarMenu
>Rem 2
>Dim mnuSep, mnuClrl, mnuClr2, mnuClr3 As MenuBarButtor
>Rem 3
>Set mnuFile = MenuBarl.Controls.АсШепиС'Файл", «mnuFile»)
>Rem 4
>mnuFile.Items.Add 1, «itFont», «Редактирование шрифта»
>Rem 5
>mnuFile.Items.Item(1). SubItems.Add 1, «itBold», «Полужирный»
>mnuFile.Items.Item(1). SubItems.Add 2, «itItal», «Наклонный»
>mnuFile.Items.Item(1). SubItems.Add 3, «itSize», «Размер»
>Rem 6
>mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 1, «it8», «* 8»
>mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 2, «it10», «10»
>mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 3, «it12», «12»
>Rem 7
>mnuFile.Items.Add 2, "", ""
>mnuFile.Items.Item(2). Style = mbrMenuSeparator
>>Rem 8
>mnuFile.Items.Add 3, «itOpen», «Открыть»
>Rem 9
>mnuFile.Items.Add 5, "", ""
>mnuFile.Items.Item(5). Style = mbrMenuSeparator
>Rem 10
>mnuFile.Items.Add 6, «itExit», «Завершить работу»