只有本站会员才能查看附件，请 登录
如何循环改变数组控件背景色
目前做的循环不正常
程序代码：Dim i As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
i = 0
End Sub
Private Sub Timer1_Timer()
Me.Shape1(i).BorderColor = &H80000002
Me.Shape1(i + 1).BorderColor = &HFF&
i = i + 1
If i = Me.Shape1.UBound Then i = 0
End Su
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
i = 0
End Sub
Private Sub Timer1_Timer()
Me.Shape1(i).BorderColor = &H80000002
Me.Shape1(i + 1).BorderColor = &HFF&
i = i + 1
If i = Me.Shape1.UBound Then i = 0
End Su
只有本站会员才能查看附件，请 登录