Private Sub Form_Load()
Timer1.Interval = 30
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static c As Integer, f As Integer
If c = 0 Then f = 1
If c = 256 Then f = -1
c = c + f
Me.BackColor = RGB(c, 0, 256 - c)
End Sub
以上代码需要用到一个控件：Timer1
是动画变色还是像word填充颜色的渐变?
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024