Работа с меню

[vovchikxxx]

Как программно добавить/удалить пункт меню.....???

[Amed]

С помощью API

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

Option Explicit
'Определяет дескриптор меню по hwnd окна
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
'Добавляет пункт меню...
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long

Private Sub Form_Load()
Dim id As Long

id = GetMenu(Me.hwnd)
AppendMenu id, 0, 0, "Новое меню"
End Sub


'Этот код добавляет новый пункт в саму строку меню, другой пример я не нашёл - убил только вчера ... Если что - поищи на http://www.yandex.ru

[GoGosha]

Можно без API:
Удалить:
Punkt.Visible = False

Добавить:
Создать меню с Index = 1
Load Punkt(Punkt.Count + 1)

[vovchikxxx]

Спасибо!