Could Not Get The String Or Caption Of Menu And SubMenu

[Grailly Ali]

Hi

I Need String Of Each Item In Menu And SubMenu Item But Just Retrieve ItemId Not its Caption

hmenu=GetMenu(lhwnd)

HsubMenu=GetSubMenu(hmenu,0)

for i=0 To GetMenuitemCount(Hmenu) -1

dim Buff As String * 256

dim BuffLen As Long

Buff=String$(255,Chr(0))

BuffLen=GetMenuStringW(Hsubmenu,i,Buff,Bufflen,MF_BYCOMMAND)

Txt=Left$(Buff,BuffLen)

Msgbox Txt & "..." & GetMenuItemId(hsubmenu,0)

Next


BuffLen Return 0

Continue reading...