VB中用Circle画圆,怎么实现可以画任意大小的圆?谁知道说说嘛

来源:百度知道 编辑:UC知道 时间:2024/07/05 14:56:05

Private Sub Form_Load()
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
Me.Circle (1000, 1000), Rnd * 1000 + 1
End Sub

你试试,看看就明白了,不明白的话问我,添加1个Timer控件

有半径设置阿!~

object.Circle (x, y), 半径