VB中自动随机变色调色板代码

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:30:05
编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。

Private Sub Timer1_Timer()
Randomize
Form1.BackColor=Rgb(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
End Sub
Private Sub Command1_Click()
unload Me
End If
'运行前,请添加一个计时器,设置Interval属性为100,和一个命令按钮

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Me.BackColor = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
End Sub