' menu state
'设置指定的菜单项的状态。
'状态可以是以下值之一或组合，这些值或会在一起 (eg. %MFS_ENABLED Or %MFS_CHECKED)
'MFS_CHECKED   检查该菜单项。
'MFS_DEFAULT   指定的菜单项是默认值。只能包含一个菜单有一个默认菜单项，以粗体显示。
'MFS_DISABLED  禁用的菜单项和灰色它，使其不能被选中。这是相当于 %MFS_GRAYED。
'MFS_ENABLED   启用菜单项，以便它可以被选择。这是默认状态。
'MFS_GRAYED    禁用的菜单项和灰色它，使其不能被选中。这是相当于 %MFS_DISABLED。
'MFS_HILITE    突出显示菜单项。
'MFS_UNCHECKED 取消选中该菜单项。
'MFS_UNHILITE  从菜单项中移除突出显示。这是默认状态。
'Menu1=CreatePopupMenu()  '创建一个空的弹出式菜单
'AppendMenu Menu1,MF_STRING,号码, ""  '创建菜单项目
'AppendMenu Menu1, MF_SEPARATOR, 0, "" '创建菜单分割条
'AppendMenu 菜单_托盘, MF_POPUP, 菜单_帮助, "菜单_帮助" '子菜单
Function FF_Menu_SetState(ByVal hWndForm as HWnd, ByVal hMenu as HMENU, ByVal idItem as Long, ByVal nState as Long) as Long
   
   Dim mType as MenuItemInfo
   
   mType.cbSize = SizeOf(mType)
   mType.fMask = MIIM_STATE
   mType.fState = nState
   
   'MFS_ENABLED, MFS_GRAYED, MFS_DISABLED, MFS_CHECKED, MFS_UNCHECKED
   'MFS_DEFAULT, MFS_HILITE, MFS_UNHILITE
   
   'Function returns 0 on fail.
   Function = SetMenuItemInfo(hMenu, idItem, False, VarPtr(mType))
   DrawMenuBar hWndForm
   
End Function
