Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
fati
Зарегистрирован: 24.06.2008 Сообщения: 38
|
Добавлено: Вт Дек 16, 2008 6:03 pm Заголовок сообщения: меню |
|
|
подскажите, как написать меню такого вида:
МЕНЮ ->Подменю1->Подменю1.1->Данные
->Подменю1.2->Данные
->Подменю1.3->Данные
->Подменю2->Подменю2.1->Данные
->Подменю2.2->Данные
->Подменю2.3->Данные
у меня выходит не то что я хочу:
изза того что функция определения меню после слова as должна содержать функции, а мое меню должно содержать подменю.
Вставлять пустую строку мне не хочется( можно ли как то этого избежать?
create menu "Меню" as
"" 'Без данной строки меню не получится
Alter menu bar add "Меню"
create menu "Подменю1" as
"Данные"
alter menu "Меню" add
"Подменю1" as "Подменю1"
create menu "ПОдменю2" as
"1" Calling 1_sub,
"2" Calling 2_sub
alter menu "Меню" add
"ПОдменю2" as "ПОдменю2"
Последний раз редактировалось: fati (Ср Дек 17, 2008 10:07 am), всего редактировалось 1 раз |
|
Вернуться к началу |
|
|
khSerg
Зарегистрирован: 16.07.2008 Сообщения: 19
|
Добавлено: Ср Дек 17, 2008 9:54 am Заголовок сообщения: |
|
|
Если я вас правельно понял, то так:
Sub Main
OnError Goto HandleError
Create Menu "Подменю2.1" As
"Данные" Calling Run_raskraska
Create Menu "Подменю1" As
"Подменю2.1" as "Подменю2.1"
Create Menu "Подменю2.2" As
"Данные" Calling Run_otchet
Create Menu "Подменю2.3" As
"Данные" Calling Run_closewindws
Create Menu "=МЕНЮ=" as
"Данные" Calling one,
"Подменю1" As "Подменю1",
"Подменю2.2" As "Подменю2.2",
"Подменю2.2" As "Подменю2.3",
"Выход" Calling Quit
Alter Menu Bar Add "=МЕНЮ="
Exit Sub
HandleError:
Note "Ошибочка: " + Error$()
Resume Next
End Sub |
|
Вернуться к началу |
|
|
fati
Зарегистрирован: 24.06.2008 Сообщения: 38
|
Добавлено: Ср Дек 17, 2008 10:55 am Заголовок сообщения: |
|
|
спасибо за наводку) увидела свои промахи) УРА УРА УРА!!!) |
|
Вернуться к началу |
|
|
|