Question

vb中如何操作选中一个复选框再选另一个复选框时前一个消失

Answer 1

用单选框·

或者

Private Sub Check1_Click()

If Check1 = Checked Then  '这儿用 true 和false  没用··

Check2 = Unchecked

Check3 = Unchecked

Check4 = Unchecked

End If

End Sub

Private Sub Check2_Click()

If Check2 = Checked Then

Check1 = Unchecked

Check3 = Unchecked

Check4 = Unchecked

End If

End Sub

Private Sub Check3_Click()

If Check3 = Checked Then

Check1 = Unchecked

Check2 = Unchecked

Check4 = Unchecked

End If

End Sub

Private Sub Check4_Click()

If Check4 = Checked Then

Check1 = Unchecked

Check2 = Unchecked

Check3 = Unchecked

End If

End Sub

Answer 2

private sub check1_click()
check2.value=abs(check1.value-1)
end sub

private sub check2_click()
check1.value=abs(check2.value-1)
end sub

Answer 3

如果仅是两个复选的话，点击其中一个时设置另一个value为0就行。
private sub check1_click()
if check1.value=1 then check2.value=0
end if

Answer 4

描述的不是很清楚
Private Sub Check2_Click()
If Check1.Value = vbChecked And Check2.Value = vbChecked Then Check1.Visible = False
End Sub

追问

就是 在 VB中 如果有两个复选框 在选中啦一个时又选第二个 使得前一个效果没有啦只显示第二个效果 如何针对这个写代码 谢谢

追答

那还不如用单选OPTION