 |
下面是我的回答:
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
With Label1
Select Case .BackColor
Case vbRed
.BackColor = vbBlue
Case vbBlue
.BackColor = vbGreen
Case Else
.BackColor = vbRed
End Select
If .Left + .Width < Width Then .Left = .Left + 50
End With
End Sub
通过一定的算法还可以出现各种特效。
 鸿毅的意见：
假如说，我现在有一个标签LABLE1，时钟控制器TIMER1,其频率调到适当为宜。
Private Sub Timer_Timer()
Dim color As Integer
label1.left=label1.left+10
If label1.left="其窗口的宽度" Then label1.left=100
color=color+1
If color=1 Then lable1.backcolor=（）'括号里输入红颜色的的ascll值'
If color=2 Then lable1.backcolor=（）'括号里输入红颜色的的ascll值'
If color=3 Then label1.backcolor=（）'括号里输入红颜色的的ascll值'
color=0
timer1.enable=false
End Sub
刘建平的意见：
Dim c As Integer
Private Sub Timer1_Timer()
c = (c + 2) Mod 3
With Label1
.BackColor = 2 ^ (c * 8 + 8) - 2 ^ (c * 8)
.Left = (.Left + 100) Mod (ScaleWidth + .Width)
End With
End Sub
此问题由贺兴伟回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 其他方面, 。
|
如何制作：使用定时器使得标签背景色由红到蓝，再到绿
