Creating Icons for Menus.

by SMA Soft (2 Submissions)
Category: Graphics
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 11^th September 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Const ES_NUMBER = &H2000& Public Const MF_BITMAP = &H4& Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 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 GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Public Const MF_BYPOSITION = &H400& Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Public Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long

Rate Creating Icons for Menus.



n1 = GetMenu(Wnd)
n2 = GetSubMenu(n1, MenuBarID)
n3 = GetMenuItemID(n2, MenuItem)
SetMenuItemBitmaps n2, MenuItem, MF_BITMAP Or MF_BYPOSITION, Bitmap, 0
End Sub

Download this snippet Add to My Saved Code

Creating Icons for Menus. Comments

No comments have been posted about Creating Icons for Menus.. Why not be the first to post a comment about Creating Icons for Menus..

Creating Icons for Menus.

Creating Icons for Menus. Comments

Post your comment

Difficulty