Динамическое создание меню

[Алексей К.]

В дизайнере создано меню "пункт" Как в процессе выполнения создать в нем массив подменю? Что бы у меня было в коде:

скока_надо=5
... строка добавления подменю в меню "пункт"
for i=0 to скока_надо
load form1.подменю(i)
form1.подменю(i).caption=i
next i

[Tarik]

Для начала нужно создать хотя бы один пункт подменю, которые ты хочешь загружать. Например, создаёшь пункт с именем m2 и индексом 0. Потом пишешь:

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

for i=1 to Skoka_Nado
     load m2(i)
     m2(i).caption=i
     m2(i).visible=true
next i


[Алексей К.]

В этом-то весь и прикол. что и меню с индексом 0 уже через unload не уберешь. Ругаться будет: "Нельзя удалить обьект созданный в дизайнере". А мне надо: подменю либоесть - либо нет.
подменю(0).visible=false не надо

[alibek]

Так пусть submenu(0).Visible=False будет всегда. А если надо создать подпункты, то добавляешь submenu(1) и т.д.
А если такой способ не устраивает, то добро пожаловать в мир API и геморроя.

[Ennor]

Насчет визибла: при попытке спрятать единственный подпункт меню вывалится рантайм ошибка - типа, нельзя прятать единственный пункт. Поэтому мой совет: делай егойному родителю Enabled = False - при задизабленном родителе потомки даже не отображаются, насколько я помню. Оно еще вот в каком аксепте удобно - юзер привыкает, что пункты меню всегда на одном и том же месте, а не скачут туда-сюда в зависимости от того, что ты показал/спрятал.

[codemaster]

А если такой способ не устраивает, то добро пожаловать в мир API и геморроя.

На самом деле никакого геморроя нет .
с API все просто и доступно

http://www.vbaccelerator.com/home/VB/Co ... rticle.asp