再给你们来一个我原创的圆的参数方程移动控件的方法,供大家参考,如果觉得还可以的话就给一点鼓励,谢谢~~~

支持原创，无论代码简单与否，只要发出来与大家共享就是好样的。

希望snrlgyqve发上更多更好的原创作品！

呀我初学的~~` 谢谢 收下拉~

真厉害哦~!嘿

不錯.

好東東!!

不错，顶了

不错，，下下，，初学者，，谢谢了

这里面 不应该用 me.Height 和 me.width 应该用me.ScaleWidth 和 me.ScaleHeight

Dim z As Boolean
Dim X As Boolean
Private Sub Form_Load()
Timer1.Interval = 10: Timer1.Enabled = True
With Shape1
.Shape = 3: .FillColor = vbRed
.FillStyle = 0: .BackColor = vbRed
.Width = 400
End With
End Sub
Private Sub Timer1_Timer()
If Not z Then Shape1.Left = Shape1.Left - 60 Else Shape1.Left = Shape1.Left + 60
If Not X Then Shape1.Top = Shape1.Top + 60 Else Shape1.Top = Shape1.Top - 60
If Shape1.Left < 0 Then Beep: z = True
If Shape1.Left + Shape1.Width > ScaleWidth Then Beep: z = False
If Shape1.Top < 0 Then Beep: X = False
If Shape1.Top + Shape1.Height > ScaleHeight Then Beep: X = True
End Sub

这样是不是更简单点啊!