2014-01-03
展开全部
代码如下:Private Sub Command1_Click()
If Option1.Value = True Then MsgBox "你选择了复选框" �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 ‘如果Option1被选中,则弹出消息框
If Check1.Value = 1 Then �0�2 �0�2 MsgBox "你选择了复选框" �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 ‘如果Check1被选中,则弹出消息框
else if Check1.Value = 0 Then�0�2 �0�2 MsgBox "你选择了复选框" �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 ‘如果Check1被选中,则弹出消息框
End If
End Sub
�0�2这个代码明白吗?
If Option1.Value = True Then MsgBox "你选择了复选框" �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 ‘如果Option1被选中,则弹出消息框
If Check1.Value = 1 Then �0�2 �0�2 MsgBox "你选择了复选框" �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 ‘如果Check1被选中,则弹出消息框
else if Check1.Value = 0 Then�0�2 �0�2 MsgBox "你选择了复选框" �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 �0�2 ‘如果Check1被选中,则弹出消息框
End If
End Sub
�0�2这个代码明白吗?
2014-01-03
展开全部
用Checked属性是否为真来判断
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询