我在菜单栏状态是这样的
文件
...全部打印
现在我要做的是 怎么使得点击鼠标 ...全部打印 的复选框被勾选 再次点击 勾的消失还有 怎么判断 ...全部打印 是勾选的还是没勾选啊
**************************************************
Private Sub 全部打印_Click()
打勾
else
去掉勾
end if
End SubPrivate Sub command_Click()
if ...全部打印 勾选的
msgbox "已经勾选"
else
msgbox "没有勾选"
end if
end sub
文件
...全部打印
现在我要做的是 怎么使得点击鼠标 ...全部打印 的复选框被勾选 再次点击 勾的消失还有 怎么判断 ...全部打印 是勾选的还是没勾选啊
**************************************************
Private Sub 全部打印_Click()
打勾
else
去掉勾
end if
End SubPrivate Sub command_Click()
if ...全部打印 勾选的
msgbox "已经勾选"
else
msgbox "没有勾选"
end if
end sub
if 全部打印.checked=true then 全部打印.checked=false else 全部打印.checked=true
End SubPrivate Sub command_Click()
if 全部打印.checked=true then
msgbox "已经勾选"
else
msgbox "没有勾选"
end if
end sub