Question

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

VB中的shape控件怎么画一个不停随机变换颜色的球啊？
简单点的代码 也不知道需不需要用到time控件~
求高人指点一二

Answer 1

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

Answer 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