VB 2个CHECK互锁要怎么写

来源：百度知道 编辑：UC知道 时间：2024/05/13 16:46:04
控件 CHECK1 CHECK2 开始状态为 CHECK1被选中 CHECK2为被选中

当点CHECK2时 CHECK1未被选中 CHECK2被选中

相反 点CHECK1时 CHECK2未被选中 CHECK1被选中

在已经被选中的CHECK上 再次点击则保持原状

单选框也就达到这个要求吧

Private Sub Check1_Click()
If Check1.Value = 1 Then
Check2.Value = 0
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Check1.Value = 0
End If
End Sub

Private Sub Form_Load()
Check1.Value = 1
Check2.Value = 1

End Sub

你用OptionButton控件就行了。你可以试一试。

Private Sub Check1_Click()
Check2.Value = Abs(Check1.Value - 1)
End Sub

Private Sub Check2_Click()
Check1.Value = Abs(Check2.Value - 1)
End Sub

在Form_load中写入：
check1.value=1 ’check1的状态是选中的，1为选中，0为未选中
check2.value=0 ’check2的状态是未选中

Check1的click事件的代码是：

Private Sub Check1_Click()

If Check1.Value = 1 Then
Check2.Value = 0
Else
Check2.Value = 1
End If

End Sub
这样就能达到要求了。