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

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