1、 窗体一个标题为“移动”的按扭，每隔0.1秒右移一次，移出窗体外后再从左边出现并继续移动

1、 窗体一个标题为“移动”的按扭，每隔0.1秒右移一次，移出窗体外后再从左边出现并继续移动

添加2个控件 1个command1 1个timer1
Private Sub Form_Load()
Command1.Caption = "移动"
Timer1.Interval = 100 ' 1000毫秒为1秒
End Sub

Private Sub Timer1_Timer()
Command1.Left = Command1.Left + 100 '100这个数值越大,移动幅度越大
If Command1.Left > Form1.Width Then Command1.Left = -Command1.Width
End Sub

如果就是从视野中看到的标本在左边，那么因为标本要经过两次放大，根据顺口溜 上下颠倒，左右相反 可以判断标本实际是在右边，需要向左移动。同理，如果标本是在视野的左上方的话，需要向左上方移动。所以从视野中看到标本在哪方，就向哪方移动。 希望这个答案可以帮到你。努力学习生物吧，生物很有趣，加油哦。

Private Sub Form_Load() Timer1.Interval = 100 Command1.Caption="移动" End Sub Private Sub Timer1_Timer() If Command1.Left >= Form1.Width - Command1.Width Then Command1.Left = 0 End If Command1.Left = Command1.Left + 50 End Sub