将坐标原点定在窗体的中心并画个圆,如何让它绕着原点定时转一定的角度呢?

来源：百度知道 编辑：UC知道 时间：2024/05/09 22:07:41
很需要这个方法,希望高人能出个主意.谢谢!
有区别，这是做课题设计的需要，主要是让老师觉得圆确实是在转，电脑上圆转有一种闪的感觉,我在窗体中心（0，0）处画了一个r=165圆，想让它每500ms逆时针转过pi/500的角度，该怎么办呢？

难道不难。就是你的问题不成立。
圆，还要旋转。
旋转和不旋转有区别吗？

至于在窗体中心画圆，代码只有3行：
r = Width / 3
If Height - 1000 < Width Then r = (Height - 1000) / 3
Me.Circle (Width / 2, (Height - 1000) / 2), r

答案补充：
界面一个按钮、一个计时器、一个直线。代码：
Option Explicit
Dim r As Single, xinx As Single, xiny As Single, jiaodu As Single

Private Sub Command1_Click()
If Command1.Caption = "转(&R)" Then
Command1.Caption = "停(&S)"
Timer1.Enabled = True
Else
Command1.Caption = "转(&R)"
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
r = Width / 3
If Height - 1000 < Width Then r = (Height - 1000) / 3
xinx = Width / 2
xiny = (Height - 1000) / 2
Me.Circle (xinx, xiny), r
Line1.X1 = xinx
Line1.Y1 = xiny
Line1.X2 = xinx
Line1.Y2 = xiny - r
jiaodu = 3.1416 / 2
Command1.Caption = "转(&R)"
Tim