PCTuning fórum

ahoj chci se zeptat jak zabránit aby se při najetí na napr: Soubor->Nový překreslil obrázek. Obrázek do menu přidávám pomocí tohoto zdrojáku


Do modulu:
Public Const MF_BYPOSITION = &H400&
Public Const MF_BYCOMMAND = &H0&

Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public 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

Do formuláře:
Private Sub Form_Load()
Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
'Zjistí handle menu
mHandle = GetMenu(hwnd)
'Zjistí handle prvního submenu
sHandle = GetSubMenu(mHandle, 0)
'Vykreslí obrázky na určitou pozici prvního submenu
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)
lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture)
'Zjistí handle druhého submenu
sHandle = GetSubMenu(mHandle, 1)
'Zjistí první submenu druhého submenu
sHandle2 = GetSubMenu(sHandle, 0)
'Vykreslí obrázek na určitou pozici prvního subsubmenu
lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)
End Sub