Как в стандартное меню вставить картинки? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д