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

>>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. Переменная одна, значит, на панели команд устройства будет один пункт меню.

Конец ознакомительного фрагмента.