在VB的picture控件里面放置1000个shape控件，让这些控件的颜色渐变，老是闪，怎么避免 30毫米扫描一次，老是闪，有什么办法能让其不闪吗
在VB的picture控件里面放置1000个shape控件，让这些控件的颜色渐变，老是闪，怎么避免30毫米扫描一次，老是闪，有什么办法能让其不闪吗
dim a as Integer
Private Sub Timer1_Timer()'30毫米扫描一次
dim i as integer
a=a+1
For i = 0 To 1000
Shape1(i).FillColor = a
End If
Next i
end sub
更多 0
