在VB的picture控件里面画了1000来个圆,做颜色渐变,时间间隔30ms,如何才能不需要从新画圆
在VB的picture控件里面画了1000来个圆,做颜色渐变,时间间隔30ms,是不是每次都要重新新画圆,如何才能不需要从新画圆,直接填充颜色,时间快点Private Sub Form_Load()
Dim r, x0, y0 As Long
r = 10
For x0 = 100 To 10000 Step 30
For y0 = 100 To 10000 Step 30
Picture1.Circle (x0, y0), r, vbBlue
Picture1.FillStyle = vbFSSolid
Picture1.FillColor = vbRed
Next y0
Next x0
End Sub