Question

在VB里对字体颜色进行循环，循环语句哪里错了，老是说我控件数组元素1不存在

Private Sub Timer1_Timer()
Dim i As Integer
b = Label1(0).ForeColor
For i = 0 To 7
Label1(i).ForeColor = Label1(i + 1).ForeColor
Next
Label1(8).ForeColor = b
End Sub

Answer 1

“控件数组元素1不存在”
表示差一个Label1(1)这个控件，你复制一个，将它的index属性设置为1就可以了。

追问

我找到错误了啊。
还想请教下啊，这个颜色循环，到最后一个字 它变成了数字是什么情况啊

追答

我没看到有颜色变化，只看到有一个属性表示，如果你要实现颜色的变化，代码需要做修改，但我不知道你需要做什么的颜色变化，所以我只能给你提示。

追问

请你问会不会VB和access连接在一起的系统，我有个小问题一直搞不懂。就是VB组合框下拉之后，里面我写了三个事件：地区，宾馆，航班。 当我选择宾馆时，下面的DataGrid1表里显示不出所对应的access里的hotel这个表的内容，如果你懂的话，希望能加我下QQ，912618749，谢谢。

Answer 2

你看一下是不是控件数组没有，我运行都可以