Собственно, возможно ли это? И если да, то как?

Это сообщение отредактировал(а) Дрон - 2.9.2003, 22:54

Безусловно, можно!
Я, правда, не знаю есть ли специальные функции в VB, но средствами API можно!
Как?
Для начала получаешь ссылку на меню с помощью GetMenu(HWnd_Формы).
Потом производишь нужные тебе манипуляции:
AppendMenu - добавление нового пункта в конец существующего меню;
InsertMenu - вставка нового пункта в произвольное место;
ModifyMenu - изменение аттрибутов существующего меню;
DeleteMenu - удаление пункта меню;
А после всего этого ОБЯЗАТЕЛЬНО используешь:
DrawMenuBar - считай, что это типа принять изменения.
Я наизусть все параметры функций не помню, поэтому тебе советую скачать API-Guide c www.allapi.net - там все аргументы подробно описаны...

P.S. Пример нужен? (Просто сейчас нет времени...)

А как потом такое меню работать-то будет?
В си было бы просто -- обрабатываешь WM_COMMAND и радуешься жизни.
А из бейсика-то как?

Если подойдет такой вариант, то можешь попробовать массив пункта меню.
В MenuEditor, у нужного пункта меню, поставь Index=0. В программе "размножить" его можно так:

Код

Load myMenu(1) .... Load myMenu(n)

Это средствами ВБ... В большинстве случаев програмное создание пунктов меню требуется когда заранее неизвестно кол-во пунктов, т.е. какой-нибудь список в виде меню. Поэтому в ВБ предусмотрен такой вариант...
-----------------------------------------------------------------------------------

Цитата

А как потом такое меню работать-то будет? В си было бы просто -- обрабатываешь WM_COMMAND и радуешься жизни. А из бейсика-то как?

Я не пробовал, нет времени сейчас, попробуй так:

Цитата

Dim WithEvents mnu as Menu 'Объяви в области General private sub form_load() .... 'hMenu - хэндл меню Set mnu = hMenu .... end sub private sub mnu_Click() .... end sub

Вроде должно сработать, не знаю точно... Извени, за неконкретный ответ...

Спасибо!

Цитата

Код Load myMenu(1) .... Load myMenu(n)

Всё прекрасно работает!