vb中怎样设置菜单项中的checked属性？

可以在VB的菜单编辑器中直接设置复选，或者在属性管理器是选择相应的菜单，修改checked属性，还可以能过代码，动态修改。

动态修改代码：

Private Sub tm_Click()

  tm.Checked = Not tm.Checked '自动设置Checked

End Sub

如下图所示：

执行效果

点击后

推荐使用兼容浏览器方式。

根据W3C的表单规范 ，在checked属性是一个布尔属性，这意味着只要该 attribute 存在，即使它没有值，或是一个空字符串，该属性对应的 property 就是 true。以下是兼容浏览器方式，判断 checkbox 元素的 checked 属性是否为"真" 的方法：

代码如下：

if ( elem.checked )

if ( $(elem).prop("checked") )

if ( $(elem).is(":checked") )

如果你使用jQuery 1.6 ，代码if ( $(elem).attr("checked") )，将获得一个属性(attribute) ，它不改变该复选框被选中和选中。它只是用来存储默认或选中属性的初始值。为了保持向后兼容，.attr() 方法从 jQuery 1.6.1+ 开始除了返回属性值外，还会更新 property 属性，因此 boolean attribute（布尔属性）不需要通过 .prop() 来改变其值。

---