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方便的话帮我解释下这段代码吧

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 08:58:04
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中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中Check的Value属性是什么意思
Private Sub opt1_Click(Index As Integer)
If opt1(0).Value = True Then
For i = 0 To 31
Check1(i).Value = 1
Next
Else
For i = 0 To 31
Check1(i).Value = 0
Next
End If
End Sub方便的话帮我解释下这段代码吧

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方便的话帮我解释下这段代码吧
check是选项控件(打勾)
value是指是否被选中
true(非零)是被选中
Private Sub opt1_Click(Index As Integer)
If opt1(0).Value = True Then '选项(点)被选中
For i = 0 To 31
Check1(i).Value = 1 '选项控件数组的值为被选中
Next
Else
For i = 0 To 31
Check1(i).Value = 0 '选项控件数组的值为不被选中
Next
End If