Нестандартное контекстное меню окна - VB

Узнай цену своей работы

Формулировка задачи:

Есть контекстное меню у значка окна нестандартного вида: хотелось бы и себе в vb реализовать похожее, подскажите если не сложно как. Заранее благодарен

Решение задачи: «Нестандартное контекстное меню окна»

textual
Листинг программы
Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert 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 Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long 
 
Dim hMenu As Long
Private Sub Form_Load()
    hMenu = GetSystemMenu(Me.hwnd, ByVal 0&) 
    'Добавляем пункты в меню
    AppendMenu hMenu, MF_STRING, ByVal 0&, "Hello !"
    AppendMenu hMenu, MF_GRAYED Or MF_DISABLED, ByVal 0&, "Testing ..."
    AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&
    AppendMenu hMenu, MF_CHECKED, ByVal 0&, "Моё меню"
DrawMenuBar Me.hWnd
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5