VB中的复选框如何编程？

假设复选框名为XX，用if语句编程

if

xx.value=ture

then

'写选中的代码仔册伍

else

'写未选中姿链代念或码

endif

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

动态修改代码：

Private Sub tm_Click()

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

End Sub

如下图所示：

执行效果

点击后

---