Конференция VBStreets

**VBTerminator** » 05.01.2009 (Пн) 11:18

Как программно добавить элемент в выпадающее меню? (например, в пункт "Дополнения")

**tyomitch** » 05.01.2009 (Пн) 13:39

Cделать массив, и загружать, как всегда, через Load.

**VBTerminator** » 06.01.2009 (Вт) 4:40

Массив чего? Грузить куда?

**Viper** » 06.01.2009 (Вт) 7:29

VBTerminator писал(а):Массив чего? Грузить куда?

Массив элементов меню естественно. Грузить в него же, вернее таки в память.

**VBTerminator** » 06.01.2009 (Вт) 9:42

Я наверное туплю, но сейчас я смог построить только следующее:

Код: Выделить всё: Option Explicit Dim mnus(1) As Menu Private Sub Form_Load() mnus(0).Caption = "mnut" mnus(1).Caption = "faq" ' а как писать здесь? End Sub

Если писать:

, то выходит "Несовпадение типов".
Родительское меню "mnuPar" уже подготовлено.

**tyomitch** » 06.01.2009 (Вт) 18:33

Не надо Dim As Menu.
В редакторе меню задай индекс, получится массив.
Потом Load mnus(0), Load mnus(1) и т.д.

**alibek** » 09.01.2009 (Пт) 12:02

Плюс, загруженный объект надо сделать видимым.

Как программно добавить элемент в выпадающее меню