VB中用Circle画圆,怎么实现可以画任意大小的圆?谁知道说说嘛
Private Sub Form_Load()
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Me.Circle (1000, 1000), Rnd * 1000 + 1
End Sub
你试试,看看就明白了,不明白的话问我,添加1个Timer控件
Private Sub Form_Load()
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Me.Circle (1000, 1000), Rnd * 1000 + 1
End Sub
你试试,看看就明白了,不明白的话问我,添加1个Timer控件