PopupMenu

[VAngel]

Как можно положить разделитель и картинки в меню?
А еще есть такая полоса с названием проги или просто с картинкой сбоку, как у фригата или статиста

[VAngel]

Вопрос с разделителем отменяется

[GSerg]

Зацени функцию setmenuiteminfo.
Касаемо картинки - это кастомная отрисовка.

[A.A.Z.]

Насчет картинок отвечу:

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

' 1) Создано меню с хотя бы одним элементом
' 2) В Picture1 картинка
' 3) Картинка максимум 13х13


Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Boolean
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

Private Const MIIM_ID As Long = &H2&
Private Const MIIM_TYPE As Long = &H10&
Private Const MF_BITMAP As Long = &H4&
Private Const MFT_STRING As Long = &H0&

Private Sub Form_Load()
Dim hMenu&, hSubMenu&, hID&
hMenu = GetMenu(Me.hWnd)
hSubMenu = GetSubMenu(hMenu&, 0)
hID = GetMenuItemID(hSubMenu&, 0)
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1.Picture, Picture1.Picture
End Sub

[A.A.Z.]

Тьфу!!!

[GSerg]