Question

VB编程Check1问题

在Check1和Check1都打上对号时
text1中显示通过
请给出完整代码谢谢。

Answer 1

Private Sub Check1_Click()
If Check1.Value = 1 and Check2.Value = 1 Then
Text1.Text = "通过"
End If
End Sub

Private Sub Check2_Click()
If Check1.Value = 1 and Check2.Value = 1 Then
Text1.Text = "通过"
End If
End Sub

刚才看了上面老兄的答案，感觉你的也不完全对哦，Clik后可能是选中，也可能是选中后取消哦

Answer 2

Private Sub Check1_Click()
If Check2.Value = 1 Then
Text1.Text = "通过"
End If
End Sub

Private Sub Check2_Click()
If Check1.Value = 1 Then
Text1.Text = "通过"
End If
End Sub

刚才看了上面老兄的答案，这个恐怕要在timer控件中加入CODE。。不然你加在哪？每加一个控件就会浪费很多资源。

Answer 3

Private Sub Check1_Click()
If Check1.Value = 1 and Check2.Value = 1 Then
Text1.Text = "通过"
End If
End Sub

Private Sub Check2_Click()
If Check1.Value = 1 and Check2.Value = 1 Then
Text1.Text = "通过"
End If
End Sub

Answer 4

if Check1.value=vbChecked and Check1.value =vbChecked then
text1.text="通过"
end if