VB时间控制颜色变化

来源：百度知道 编辑：UC知道 时间：2024/06/02 05:44:27
在窗口中放置若干不同颜色的线段和一个时钟，程序运行时线段的颜色有规律的变化，使颜色看起来顺时针运动或逆时针运动。我现在只能变一下，怎么弄？？
Private Sub Timer1_Timer()
Timer1.Interval = 1000
Line1.BorderColor = &HFF&
Line2.BorderColor = &HFF00&
Line3.BorderColor = &HFF0000
Line4.BorderColor = &HFF00FF
Line5.BorderColor = &HFF&
Line6.BorderColor = &HFF00&
Line7.BorderColor = &HFF0000
Line8.BorderColor = &HFF00FF
Line9.BorderColor = &HFF&
Line10.BorderColor = &HFF00&
Line11.BorderColor = &HFF0000
Line12.BorderColor = &HFF00FF
End Sub

接下来？？？？
我知道需要修改颜色的值，可是怎么做到呢

在Form_Load中写入Timer1.Interval = 1000
在Timer事件中去掉Timer1.Interval = 1000
将在Timer事件中代码对应改为 以line1为例
If Line1.BorderColor = &HFF& Then'&HFF 为你所说的颜色
Line1.BorderColor = vbBlack'为令一种你要变为的颜色
Else
Line1.BorderColor = &HFF&
End If

你得修改bordercolor的值，否则每次都是哪一个设定值，怎么会变化呢？
Option Explicit
Dim i As Integer

Private Sub Timer1_Timer()
Select Case i
Case 1
Line1.BorderColor = &HFF&
Line2.BorderColor = &HFF00&
Line3.BorderColor = &HFF0000
Line4.BorderColor = &HFF00FF
Case 2
Line4.BorderColor = &HFF&
Line3.BorderColor = &HFF00&
Line2.BorderColor = &HFF0000
Line1.BorderColor = &HFF00FF
End Select
i = i + 1
If i = 5 Then i = 1
End Sub

不是变不了，是变得太快了，肉眼看不见，可以用delay夹在每行代码的中间，delay使用方法上网查