vb 复选框用Check1.Value = Checked的时候就自动运行了Check1_Click.怎么办?程序如图代码如下:Private Sub Check1_Click()If Check1.Value = 1 ThenFor i = 0 To 39Check2(i).Value = 1Next iElseIf Check1.Value = 0 ThenFor i = 0 To 39Che
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 16:26:56
![vb 复选框用Check1.Value = Checked的时候就自动运行了Check1_Click.怎么办?程序如图代码如下:Private Sub Check1_Click()If Check1.Value = 1 ThenFor i = 0 To 39Check2(i).Value = 1Next iElseIf Check1.Value = 0 ThenFor i = 0 To 39Che](/uploads/image/z/13898040-24-0.jpg?t=vb+%E5%A4%8D%E9%80%89%E6%A1%86%E7%94%A8Check1.Value+%3D+Checked%E7%9A%84%E6%97%B6%E5%80%99%E5%B0%B1%E8%87%AA%E5%8A%A8%E8%BF%90%E8%A1%8C%E4%BA%86Check1_Click.%E6%80%8E%E4%B9%88%E5%8A%9E%3F%E7%A8%8B%E5%BA%8F%E5%A6%82%E5%9B%BE%E4%BB%A3%E7%A0%81%E5%A6%82%E4%B8%8B%EF%BC%9APrivate+Sub+Check1_Click%28%29If+Check1.Value+%3D+1+ThenFor+i+%3D+0+To+39Check2%28i%29.Value+%3D+1Next+iElseIf+Check1.Value+%3D+0+ThenFor+i+%3D+0+To+39Che)
vb 复选框用Check1.Value = Checked的时候就自动运行了Check1_Click.怎么办?程序如图代码如下:Private Sub Check1_Click()If Check1.Value = 1 ThenFor i = 0 To 39Check2(i).Value = 1Next iElseIf Check1.Value = 0 ThenFor i = 0 To 39Che
vb 复选框用Check1.Value = Checked的时候就自动运行了Check1_Click.怎么办?
程序如图
代码如下:
Private Sub Check1_Click()
If Check1.Value = 1 Then
For i = 0 To 39
Check2(i).Value = 1
Next i
ElseIf Check1.Value = 0 Then
For i = 0 To 39
Check2(i).Value = 0
Next i
End If
End Sub
Private Sub Check2_Click(Index As Integer)
Dim Check2ValueChecked,Check2ValueUnchecked As Boolean
Check2ValueChecked = False
Check2ValueUnchecked = False
For i = 0 To 39
If Check2(i).Value = 1 Then
Check2ValueChecked = True
Else
Check2ValueUnchecked = True
End If
Next i
If Check2ValueChecked = True And Check2ValueUnchecked = True Then
Check1.Value = 1
ElseIf Check2ValueChecked = True Or Check2ValueUnchecked = True Then
Check1.Value = 2
Else
Check1.Value = 0
End If
Check2ValueChecked = False
Check2ValueUnchecked = False
End Sub
帮我简化并解决一下吧,我希望check1与check2()共同被选或无选,或check2部分被选时check1.value=2
vb 复选框用Check1.Value = Checked的时候就自动运行了Check1_Click.怎么办?程序如图代码如下:Private Sub Check1_Click()If Check1.Value = 1 ThenFor i = 0 To 39Check2(i).Value = 1Next iElseIf Check1.Value = 0 ThenFor i = 0 To 39Che
先解决你的问题:
checkbox在设计时设置其value就不会引发click事件,但如果用代码的话就会引发click事件.
另外你的程序把简单的问题复杂化了,也许是我看得不仔细.