
VB编程Check1问题
4个回答
展开全部
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后可能是选中,也可能是选中后取消哦
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后可能是选中,也可能是选中后取消哦
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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。。不然你加在哪?每加一个控件就会浪费很多资源。
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。。不然你加在哪?每加一个控件就会浪费很多资源。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
if Check1.value=vbChecked and Check1.value =vbChecked then
text1.text="通过"
end if
text1.text="通过"
end if
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询