UC知道请高手解释一下vb代码
来源：百度知道 编辑：UC知道 时间：2024/06/27 07:36:17
菜单栏里的颜色代码：
Private Sub ys_Click(index As Integer)
Dim i As Integer
For i = 0 To ys.UBound （请详细解释这一句的功能）
ys(i).Checked = False
Next i
Select Case index
Case 0
Text1.ForeColor = RGB(0, 0, 0)
Case 1
Text1.ForeColor = RGB(255, 0, 0)
Case 2
Text1.ForeColor = RGB(0, 0, 255)
End Select
ys(index).Checked = True
End Sub
ps：帮忙解释下这段程序。谢谢啦~！
Private Sub ys_Click(index As Integer)
Dim i As Integer
For i = 0 To ys.UBound （请详细解释这一句的功能）
ys(i).Checked = False
Next i
Select Case index
Case 0
Text1.ForeColor = RGB(0, 0, 0)
Case 1
Text1.ForeColor = RGB(255, 0, 0)
Case 2
Text1.ForeColor = RGB(0, 0, 255)
End Select
ys(index).Checked = True
End Sub
ps：帮忙解释下这段程序。谢谢啦~！
你这个程序里有一个控件数组，控件的名字为ys，每个控件的不同是通过索引index来区别。
'下面这段代码是对每个控件的checked属性进行初始化设置，ys.UBound可以理解为有多少ys个控件
For i = 0 To ys.UBound （请详细解释这一句的功能）
ys(i).Checked = False
Next i
'对不同的控件的点击
Select Case index
Case 0 '点击索引值为0的控件
Text1.ForeColor = RGB(0, 0, 0)'改变Text框中的字体属性，一下类同
Case 1 '点击索引值为1的控件
Text1.ForeColor = RGB(255, 0, 0)
Case 2 '点击索引值为2的控件
Text1.ForeColor = RGB(0, 0, 255)
End Select
ys(index).Checked = True ’把点击的控件的checked属性设置为true
VB是美国微弱公司制造出了的.
UBound 用来确定数组某一维的上界。
高手请教了！