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/05/06 16:06:54
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 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事件.
另外你的程序把简单的问题复杂化了,也许是我看得不仔细.

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中if check1.value and not check2.value then.（其中check是复选按钮caption属性）?我想问的是为什么这样编可以代表复选框1选中而2不选中?它等于if check1.value=1 and check2.value=0 then. 在窗体上有一个名称为Check1的复选框数组（含4个复选框）,还有一个名称为Text1的文本框,初始内容为空.程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中.下面能 vb中Check的Value属性是什么意思Private Sub opt1_Click(Index As Integer)If opt1(0).Value = True ThenFor i = 0 To 31Check1(i).Value = 1NextElseFor i = 0 To 31Check1(i).Value = 0NextEnd IfEnd Sub方便的话帮我解释下这段代码吧 关于vb的CheckPrivate Sub Check1_Click()If Check1.Value = 0 ThenCheck1.Value = 1ElseCheck1.Value = 0End IfEnd Sub以上是我的代码 可是一打勾就会出现益处堆栈?请问怎么解决? VB中的For i = 0 To Check1.Count - 1 是什么意思 VB中 sum.Value = vfp 中if thisform.Pageframe1.page1.check1.value=0的0或者是1是什么含义 VB中 value的作用以及用法HScroll.value是表示什么?我是个新手 在下列数据中选出数字,用什么函数?#VALUE!,#VALUE!,#VALUE!,6,#VALUE!,#VALUE!, VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个命令按钮command1,以及一个文本框text1.编写适当的时间过程,使得程序运行时对复 英语翻译private sub check1_click()label1.fontbold=iif(check1.value,true,false)end subprivate sub option1_click()'label1.fontsize=16label1.fontsizs=option1.captionend subprivate sub option4_click()label1.fontname=隶书end sub最好翻译下每 if(flag1) then flag=0是什么意思?其中flag是复选框 如何用vba在a1:a10每个单元格中生成一个复选框 比赛的复选是什么意思 复选什么意思 value value