Добавление пунктов в меню и обработка их выбора

[td]

как программно добавить пункты в меню и написать для них обработку событий?

спасибо!

[RayShade]

Воспользоваться Menu Editor.

[td]

но мне надо программно. в зависимости от некоторого внешнего параметра
Напр., так:

Книги
...Книга1
...Книга2
...
...КнигаN

Заранее неизвестно сколько.. И кстати, по выбору этого пункта надо показывать форму. Она всегда одинаковая, но кое-что меняется в зависимости от номера книги. Как это тоже можно сделать?

и еще. Как узнать, существует ли форма (она просто скрыта) или на данный момент она еще не создана?

[RayShade]

Ну если в процессе работы программы, то создавай контролы примерно так:



Controls.Add "VB.Menu", "MyMenu"



А определить, видна ли форма - проверяй Form.Visible

[td]

спасибо.. а обработку как сделать?

[FaKk2]

пишешь процедуру:

Private Sub MyMenu_Click()

End Sub

MyMenu это имя меню и взято с поста RayShade.

[RayShade]

Я не до конца понимаю, но кажется не получится привинитить обработчик событий к динамически создаваемому объекту.

[FaKk2]

Я не до конца понимаю, но кажется не получится привинитить обработчик событий к динамически создаваемому объекту.

Почему?
Ведь если, к примеру создать коллекцию картинок, то к каждой можно обратиться и что то поменять в свойтсвах. или нет?
если да, то почему это не прокатит? а вообще я сейчас сам попробую....

[FaKk2]

Controls.Add "VB.Menu", "MyMenu"

Кстати эта строчка вообще не пашет.
Пишет:
Menu is not valid control type

PS:Опа! Я стал продвинутым пользователем!
Интересно куда меня заведет моя продвинутость.......

[RayShade]

Одно дело обратиться к проперте объекта а другое дело отреагировать на событие в нем происшедшее.

[td]

но к примеру в делфи это делается совсем просто.. объявляется процедура, которая потом присваевается обработке события..
точно так же, как значение проперти.

Неужели в ВеБе такое нельзя сделать?

[RayShade]

Ну исходя из того, что получил FAKK2 и моих соображений можно заключить что меню динамически вообще изменять нельзя.

[FaKk2]

RayShade:
У меня есть гениальная идея, но мне надо вспомнить как динамически создавать объекты типа кнопки. там что то со свойством индекс связано....
Ты случайно не помнишь?

[RayShade]

Если ты про Load и его использование для добавления Control array, то это кстати должно прокатить - ведь меню то как раз и есть массив элементов.



Что то я выпустил этот момент из головы

[FaKk2]

Во во! Оно самое, щас попробую написать....

[FaKk2]

Я вот наваял нечто работающее:

Код: Выделить всё

Private Sub Form_Load()
For i = 1 To 1
    Load Book(i)
    Book(i).Caption = "Книга " & i + 1
Next i
End Sub

Private Sub Book_Click(Index As Integer)
Select Case Index
Case 0:
    MsgBox "Книга 1!"
Case 1:
    MsgBox "Книга 2!"
End Select
End Sub


Цикл в лоаде грузит в память н-ое количество меню (в данном случае одно, т.к. одно уже в начале есть), и дает им надпись.
Следующую процедуру перепиши себе, и в case вставь то что тебе надо.
А чтобы вся это фигня заработала надо создать первый объект который будешь копировать, т.е. первое меню. даешь ему имя и индекс = 0.
Меню создаешь в Menu Editor. Вот и все, должно работать...