VB中的shape移动问题

2025-12-17 19:08:37

推荐回答（3个）

回答1：

Const PI = 3.1415926
Dim x0, y0, r
Private Sub Command1_Click()
x0 = Me.ScaleWidth / 2
y0 = Me.ScaleHeight / 2
r = 1000
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static a As Single
If a < 2 * PI Then a = a + 0.1 Else a = 0
Shape1.Move x0 + r * Cos(a) - Shape1.Width / 2, y0 + r * Sin(a) - Shape1.Height / 2
End Sub

回答2：

程序很简单主要就是通过正弦余弦画圆，下面程序通过时间秒数来移坐标，你按自己需要改一下就行了
Private Sub Command1_Click()
If Timer1.Enabled Then Timer1.Enabled = False Else Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Const pi = 3.141592653
T = Now
sec = Second(T)
x = 1000 * Sin(sec * pi / 180)
y = 1000 * Cos(sec * pi / 180)
Shape1.Top = y + 1000
Shape1.Left = x + 1000
End Sub

回答3：

常量PI = 3.1415926
昏暗的X0，Y0，R
子Command1_Click（）
X0 = Me.ScaleWidth / 2
Y0 = Me.ScaleHeight / 2
? = 1000
Timer1.Interval = 100
Timer1.Enabled = TRUE
END SUB
私人小Timer1_Timer（）
静态作为单
< 2 * PI = A + 0.1其他= 0
Shape1.Move X0 + R * COS（A） - Shape1.Width / 2，Y0 + R * SIN（A） - Shape1.Height / 2
END SUB