Question

VB怎么判断用户是否选择Check1

Answer 1

Private Sub Command1_Click() If Check1.Value = 1 And Check2.Value = 1 Then MsgBox "不允许同时选择两个Check", vbOKOnly, "错误" Check1.Value = 0 If Check1.Value = 1 Then MsgBox "已经选择", vbOKOnly, "提示"ElseMsgBox "没有选择", vbOKOnly, "提示"End IfEnd Sub 此外，你也可以把代码写在下面 Private Sub Check1_Click()End Sub补充： Private Sub Command1_Click() If Check1.Value = 1 And Check2.Value = 1 Then MsgBox "不允许同时选择两个Check", vbOKOnly, "错误" Check1.Value = 0 MsgBox "已经选择", vbOKOnly, "提示"ElseMsgBox "没有选择", vbOKOnly, "提示"End IfEnd Sub

Answer 2

Private Sub Command1_Click()
   If (Check1.Value = 0) Then
      MsgBox "Check1已经选中", 32
   Else
      MsgBox "Check1没有选中", 32
   End If
End Sub