Программирование для карманных компьютеров. Владимир Волков

к коду приложения обработчик события Form_Load(). Код обработчика приведен в листинге 3.13. В него добавлены комментарии, которые можно не вводить в код приложения. Они потребуются лишь для удобства рассмотрения этого фрагмента.

Листинг 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», «Завершить работу»

      Rem 11

      Set mnuSep = MenuBar1.Controls.AddButton(«mnuSep»)

      mnuSep.Style = mbrSeparator

      Rem 12

      Set mnuClr1 = MenuBar1.Controls.AddButton("1")

      mnuClr1.Style = mbrButtonGroup

      mnuClr1.Caption = " 1»

      Set mnuClr2 = MenuBar1.Controls.AddButton("2")

      mnuClr2.Style = mbrButtonGroup

      mnuClr2.Caption = " 2»

      Set mnuClr3 = MenuBar1.Controls.AddButton("3")

      mnuClr3.Style = mbrButtonGroup

      mnuClr3.Caption = " 3»

      Rem 13

      Frame1.Top = -200

      List1.Clear

      End Sub

      13. Теперь этот листинг надо детально рассмотреть. В качестве ссылок будут использоваться номера комментариев в тексте.

      1) Объявляется переменная типа MenuBarMenu. Переменная одна, значит, на панели команд устройства будет один пункт меню.