热门回答
- 2024-05-04亲爱的猪小呢
Rnd() * 255.BackColor = RGB(Rnd() * 255.Interval = 100
End Sub
Private Sub Timer1_Timer()
MePrivate Sub Form_Load()
Timer1
赞320
- 2024-05-05樱桃大丸子子
用个Timer空间控制颜色就行了
赞32
- 2024-05-08阳光通宝
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Randomize
Form1.BackColor = QBColor(Int(Rnd * 15) + 1)
End Sub
赞332
- 2024-04-25TracyJunli
颜色渐变,不是定时变换颜色
用个渐变的背景图片就行了啊
赞242
- 2024-04-28胖达最高
Rnd() * 255.BackColor = RGB(Rnd() * 255.Interval = 100
End Sub
Private Sub Timer1_Timer()
MePrivate Sub Form_Load()
Timer1
赞105