VB中的shape控件怎么画一个不停随机变换颜色的球啊？

2024-11-07 22:48:16

推荐回答（2个）

回答1：

肯定需要timer。
timer定时，激活颜色修改的此慎代码。
需要用到的技术：
1、timer做定时器，定时激活定时器事件的代码
2、rnd生成随机数铅扒李
3、rgb函数，从三原色生成颜色值
4、赋值修改颜色
这些技术自己百度。我只能提供这样的帮槐迟助了。
进一步的帮助需要付费。

回答2：

'需要用到time控滚亏件，代码如大庆神下差段
Private Sub Form_Load()
Shape1.BackStyle = 1
Shape1.Shape = 3
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Shape1.BackColor = RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd))
End Sub