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

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

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

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

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

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

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

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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
        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
1
2
3
4
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
1
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...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

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

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

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

Решение