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

编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。... 编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。展开

 我来答

2个回答

#热议# 不吃早饭真的会得胆结石吗？

0871love
2008-05-21 · TA获得超过3518个赞

知道大有可为答主

回答量：1418

采纳率：50%

帮助的人：1626万

我也去答题访问个人页

关注

展开全部

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,和一个命令按钮

本回答由提问者推荐

已赞过 已踩过<

评论收起

AiPPT
2024-09-19 广告

随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图... 点击进入详情页

本回答由AiPPT提供

lzh741206
2008-05-21 · TA获得超过1192个赞

知道大有可为答主

回答量：1929

采纳率：100%

帮助的人：2811万

我也去答题访问个人页

关注

展开全部

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