Как в стандартное меню вставить картинки? - VB

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

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

Не могу вставить картинки в стандартное меню (как в MS Office). Помогите.

Решение задачи: «Как в стандартное меню вставить картинки?»

textual
Листинг программы
Private Sub Form_Load() 
Dim hMenu&, hSubMenu&, hMenuItem& 'объявление переменых типом Long 
 
'определяем на какой форме нам нужно меню 
hMenu = GetMenu(Form1.hwnd) 
'определяем заголовок, если у Вас есть, например 
'File и Edit, то индексом задаёте нужный 
hSubMenu = GetSubMenu(hMenu, 0) 
 
'здесь мы определяем, что работать хотим с первым _ 
пунктом меню, т.к. индекс равен 0 
hMenuItem = GetMenuItemID(hSubMenu, 0) 
'"клеим" картинку к первому пункту 
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, _ 
Image1.Picture, Image1.Picture 
 
'здесь мы определяем, что работать хотим со вторым _ 
пунктом меню, т.к. индекс равен 1 
hMenuItem = GetMenuItemID(hSubMenu, 1) 
'"клеим" картинку ко второму пункту 
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, _ 
Image2.Picture, Image2.Picture 
 
'здесь мы определяем, что работать хотим с третьим _ 
пунктом меню, т.к. индекс равен 2 
hMenuItem = GetMenuItemID(hSubMenu, 2) 
'"клеим" картинку к третьему пункту 
SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, _ 
Image3.Picture, Image3.Picture 
 
End Sub

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


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

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

12   голосов , оценка 3.833 из 5
Похожие ответы