Динамическое добавление пункта меню

@Ivan215 · Регистрация: 03.07.2014

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, решить проблему.

Есть главное меню (см. миниатюру)

Надо программно добавить пункт меню <Хромой тарификатор> в подменю <Справочники>, поместив его в начало подменю.

Пытаюсь вот так:

VB.NET

1
2
3

Dim TMU_MenuItem_L2 As New System.Windows.Forms.ToolStripItem
 
Main.Sprav_MenuItem_L1.DropDownItems.Insert(0, TMU_MenuItem_L2)

Компилятор ругается - "New" не может использоваться для класса, объявленного как "MustInherit"

@Ivan215 · 13.02.2016, 02:16 **[ТС]**

Прошу прощения - в миниатюре должен быть ТОЛЬКО пункт <ЛПУ>

Добавлено через 22 минуты
В конец подменю - добавление получается:

VB.NET

        If gcfg_ter <> "MOBL" Then
            Main.SuspendLayout()
            
            Main.Sprav_MenuItem_L1.DropDownItems.Item(1).Dispose()
            MainMenu_TMU_MenuItem_L2_exist = False
            
            Main.ResumeLayout()
        Else
            If Not MainMenu_TMU_MenuItem_L2_exist Then
                Main.Sprav_MenuItem_L1.DropDownItems.Add("Хромой тарификатор")
 
                Cnt = Main.Sprav_MenuItem_L1.DropDownItems.Count()
 
                Main.Sprav_MenuItem_L1.DropDownItems.Item(Cnt-1).Name = "TMU_MenuItem_L2"
 
                AddHandler Main.Sprav_MenuItem_L1.DropDownItems.Item(Cnt-1).Click, AddressOf TMU_Item_Click
 
                MainMenu_TMU_MenuItem_L2_exist = True
 
            End If
        End If

Добавлено через 28 секунд
А вставка - никак...

@OwenGlendower · 13.02.2016, 03:02

Сообщение от Ivan215

Компилятор ругается - "New" не может использоваться для класса, объявленного как "MustInherit"

Модификатор MustInherit означает что это абстрактный класс и его экземпляр создать нельзя. Тебе в данном случае нужен класс ToolStripMenuItem.

Сообщение от Ivan215

VB.NET

Main.SuspendLayout()
Main.Sprav_MenuItem_L1.DropDownItems.Item(1).Dispose()
MainMenu_TMU_MenuItem_L2_exist = False
Main.ResumeLayout()

1) Вызовы SuspendLayout/ResumeLayout в данном случае не нужны т.к. элементы меню не влияют на расположение элементов формы.
2) Вызывать Dispose() для элементов управления не удалив их из визуального дерева означает напрашиваться на неприятности. Эту строку следует убрать.

@Ivan215 · 13.02.2016, 14:48 **[ТС]**

Вызывать Dispose() для элементов управления не удалив их из визуального дерева означает напрашиваться на неприятности. Эту строку следует убрать.

А как же быть, если для разных режимов работы программы нужен разный состав подменю (Main.Sprav_MenuItem_L1)?

Создавать ВСЕ пункты подменю Main.Sprav_MenuItem_L1 программно?

@Winney · 13.02.2016, 15:51

Сообщение от Ivan215

Создавать ВСЕ пункты подменю Main.Sprav_MenuItem_L1 программно?

А почему бы и нет? Написал себе процедурку с условиями - и вызывай когда нужно.

Также можно вкрячить все требуемые менюшки в дизайнере, а потом - в зависимости от "режима работы" - менять их свойства Visible или Enable.

Добавлено через 6 минут
А вместо Dispose Вы наверное имели ввиду МЕНЮ.Items.Remove

Добавлено через 1 минуту

VB.NET

Dispose

немного для другой очистки)

@Ivan215 · 13.02.2016, 16:17 **[ТС]**

Вот спасибо. Совсем было забыл про Visible. Недавно нарвался на ситуацию, когда это свойство вообще не работает у объекта. А здесь вроде работает.

@Winney · 13.02.2016, 16:27

Сообщение от Ivan215

когда это свойство вообще не работает у объекта. А здесь вроде работает.

Тож было такое дело) Правда потом выяснилось что неспроста оно не работает))) Не помню чо за контрол(

@Ivan215 · 13.02.2016, 21:00 **[ТС]**

А я помню - контекстное меню. Что у контекстного меню делает свойство Visible - совершенно не ясно.

@Winney · 14.02.2016, 01:07

Сообщение от Ivan215

Что у контекстного меню делает свойство Visible - совершенно не ясно.

Видимо, наследуется от Control. В дизайнере то его нет. Свойство есть - а в нем пусто)

@Ivan215 · 14.02.2016, 01:51 **[ТС]**

В дизайнере то его нет

А Вы сравните состав свойств в дизайнере и в обозревателе объектов, например для класса DataGridView...

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	14.02.2016, 01:51 [ТС]	10
	В дизайнере то его нет А Вы сравните состав свойств в дизайнере и в обозревателе объектов, например для класса DataGridView... 0

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	13.02.2016, 14:48 [ТС]	4
	Вызывать Dispose() для элементов управления не удалив их из визуального дерева означает напрашиваться на неприятности. Эту строку следует убрать. А как же быть, если для разных режимов работы программы нужен разный состав подменю (Main.Sprav_MenuItem_L1)? Создавать ВСЕ пункты подменю Main.Sprav_MenuItem_L1 программно? 0

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	13.02.2016, 16:17 [ТС]	6
	Вот спасибо. Совсем было забыл про Visible. Недавно нарвался на ситуацию, когда это свойство вообще не работает у объекта. А здесь вроде работает. 0

@Winney 307 / 248 / 40 Регистрация: 28.09.2013 Сообщений: 600
	13.02.2016, 16:27	7
	Сообщение от Ivan215 когда это свойство вообще не работает у объекта. А здесь вроде работает. Тож было такое дело) Правда потом выяснилось что неспроста оно не работает))) Не помню чо за контрол( 0

@Ivan215 21 / 22 / 10 Регистрация: 03.07.2014 Сообщений: 398
	13.02.2016, 21:00 [ТС]	8
	А я помню - контекстное меню. Что у контекстного меню делает свойство Visible - совершенно не ясно. 0

@Winney 307 / 248 / 40 Регистрация: 28.09.2013 Сообщений: 600
	14.02.2016, 01:07	9
	Сообщение от Ivan215 Что у контекстного меню делает свойство Visible - совершенно не ясно. Видимо, наследуется от Control. В дизайнере то его нет. Свойство есть - а в нем пусто) 0

Динамическое добавление пункта меню

Решение