vb的bug?

Question

make sure that 菜单项 has a name, say, "mnuClose", then add codePrivate Sub mnuClose_Click()
  MsgBox "close"
  mnuClose.Checked = Not mnuClose.Checked
End Sub

Answer 1

先设置菜单的checked，然后再根据checked写相应的代码：
private sub mnuclose_click()
mnuclose.checked=not mnuclose.checked
if mnuclose.checked=true then
msgbox "checked"
els
msgbox "no checked"
end if
end sub

Answer 2

那个勾应该自动上的。
在Click事件中触发。

Answer 3

PRIVATE SUB MNUSHIT_CLICK()
MNUSHIT.CHECKED=NOT MNUSHIT.CHECKED
'IT'S NOT A BUG!!!!!!!!!!!!!!!!!!!11
'SILLY YOU!
END SUB