UC知道求详细VB代码
来源：百度知道 编辑：UC知道 时间：2024/05/21 18:01:20
窗体中心为圆心，随机长为半径，每0.5s打印一个红色的圆
1 新建一个程序窗体
2 在窗体上拖放一个Timer控件
3 双击窗体粘贴上以下代码试试。（我测试过可以的)
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), Rnd(1) * 1000, &HFF&, , , 1
End Sub