其实很简单,在菜单的单击事件中添加处理就可以了:
' 菜单单击事件
Public Sub Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim mmCmd As C1Command
mmCmd = CType(sender, C1Command)
If mmCmd.Checked = False Then
mmCmd.Checked = True
Else
mmCmd.Checked = False
End If
End Sub
通过以上代码,点击菜单,就可以看到点击的效果了:
再点击一次: