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