Printable View
Hi there,
Is there a way to load Icons/Bitmaps from embedded Resource for Menu items?
Currently I'm using SetMenuItemBitmaps API with PictureBox arrays like this:
Thanks! ;)Code:Call MenuIconAdd(Me, 0, 0, picMnu(0).Picture.Handle)
Call MenuIconAdd(Me, 0, 1, picMnu(1).Picture.Handle, picMnu(1).Picture.Handle)
check this post shows how to load bitmaps into a picture box from a res file
https://www.vbforums.com/showthread....-resource-file
Hi Ben,Quote:
Originally Posted by BenJones
Yes, I know that, but I wish to load Picture or Icon from the Resource directly into the Menu (item) with API (without using PictureBox or any other Handler control).
I think I remmber an API call in wndows were you chould load a picture into a handle ex HDC then you chould use that to draw the image using bitblt or something I did it my self for a few things before but were my examples are god only knows since I not used vb6 in about 6 years now hope you get it sorted just found this I duno it it will help any
https://www.codeproject.com/Messages...B-with-GDI-Api
You should upload a complete source code example project, what is MenuIconAdd?Quote:
Originally Posted by beic
Code:Set Picture1.Picture = LoadResPicture(101, vbResBitmap)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Picture)
Set Picture2.Picture = LoadResPicture(102, vbResBitmap)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, Picture2.Picture, Picture2.Picture)
Code:Static pic1 As StdPicture
Static pic2 As StdPicture
Set pic1 = LoadResPicture(101, vbResBitmap)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, pic1.Handle, pic1.Handle)
Set pic2 = LoadResPicture(102, vbResBitmap)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, pic2.Handle, pic2.Handle)
Code:Static pic1 As StdPicture
Static pic2 As StdPicture
If App.LogMode Then 'EXE
Dim m_hIcon As Long
m_hIcon = LoadBitmap(App.hInstance, 101)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, m_hIcon, m_hIcon)
m_hIcon = LoadBitmap(App.hInstance, 102)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, m_hIcon, m_hIcon)
Else
Set pic1 = LoadResPicture(101, vbResBitmap)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, pic1.Handle, pic1.Handle)
Set pic2 = LoadResPicture(102, vbResBitmap)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, pic2.Handle, pic2.Handle)
End If
Private Const IMAGE_BITMAP = 0
Private Const LR_SHARED = &H8000&
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Code:m_hIcon = LoadImage(App.hInstance, 101, IMAGE_BITMAP, 80&, 80&, LR_SHARED) '
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, m_hIcon, m_hIcon)
m_hIcon = LoadImage(App.hInstance, 102, IMAGE_BITMAP, 80&, 80&, LR_SHARED) '
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, m_hIcon, m_hIcon)
Hi xiaoyao, thanks for your support, yes, here it is, also tried to combine a few things, but the IDE part is not working.Quote:
Originally Posted by xiaoyao
I have BITMAP's located in the Resource from 200 and ICON's from 300, they are all in 256 color (the icons too but with transparent background).Code:Public Sub MenuIconAdd(objFRM As Object, lgMenu As Long, lgSubMenu As Long, lgResId1 As Long, Optional lgResId2 As Long = 0)
Dim hMenu As Long
Dim hSubMenu As Long
Dim hBmp1 As Long
Dim hBmp2 As Long
hMenu = GetMenu(objFRM.hwnd)
hSubMenu = GetSubMenu(hMenu, lgMenu)
If App.LogMode Then ' EXE
hBmp1 = LoadImage(App.hInstance, lgResId1, IMAGE_BITMAP, 0&, 0&, LR_LOADTRANSPARENT Or LR_CREATEDIBSECTION Or LR_SHARED)
If lgResId2 > 0 Then
hBmp2 = LoadImage(App.hInstance, lgResId2, IMAGE_BITMAP, 0&, 0&, LR_LOADTRANSPARENT Or LR_CREATEDIBSECTION Or LR_SHARED)
Else
hBmp2 = hBmp1
End If
Call SetMenuItemBitmaps(hSubMenu, lgSubMenu, MF_BYPOSITION, hBmp1, hBmp2)
Else ' IDE
Static pic1 As StdPicture
Static pic2 As StdPicture
Set pic1 = LoadResPicture(lgResId1, vbResBitmap)
If lgResId2 > 0 Then
Set pic2 = LoadResPicture(lgResId2, vbResBitmap)
Else
Set pic2 = pic1
End If
Call SetMenuItemBitmaps(hSubMenu, lgSubMenu, MF_BYPOSITION, pic1.Handle, pic2.Handle)
End If
Exit Sub
End Sub
I tried IMAGE_ICON to load, but without success.
you can add ico,or png format
How? (and without using ImageList control)Quote:
Originally Posted by xiaoyao
Also, I just noticed that the mentioned code will create a sort of "memory leak" and the main Form will deform after a while, without any error message whatsoever. :(Quote:
Originally Posted by beic