vb打造超酷个性化菜单（三）
(接上篇)
' 设置菜单项状态
public sub setitemstate(byval itemalias as string, byval itemstate as menuitemstate)
dim i as long
for i = 0 to ubound(myiteminfo)
if myiteminfo(i).itemalias = itemalias then
myiteminfo(i).itemstate = itemstate
dim iteminfo as menuiteminfo
with iteminfo
.cbsize = len(iteminfo)
.fmask = miim_string or miim_ftype or miim_state or miim_submenu or miim_id or miim_data
end with
getmenuiteminfo hmenu, i, false, iteminfo
with iteminfo
.fstate = .fstate or itemstate
