VB中如何编程让窗体在屏幕上左右来回移动

2024-11-07 00:33:38

推荐回答（3个）

回答1：

添加一个定时器，定时器移动，超过屏幕自动回来。

代码如下：

Dim M As Integer '定义变量，确定移动方向
Private Sub Form_Load()
Timer1.Interval = 200 '移动时间 0.2秒移一次
Me.Left = 0 '左空初始为0
M = 0 '默认先向右移
End Sub

Private Sub Timer1_Timer()
If (Me.Left + Me.Width) > Screen.Width Then M = 1  '移到右边头上，向右移
If Me.Left <= 0 Then M = 0 '移到左边头上了，向左移
If M = 0 Then '移动方向
Me.Left = Me.Left + 1000 '向右移
Else
Me.Left = Me.Left - 1000 '向左移
End If
End Sub

回答2：

修改form1.top和form1.lef就可以了啊，如果需要来回移动可以timer里面控制form1.lef大于一个数值就返回1

回答3：

用一个定时器，定时器里设置me.top,me.left
定时器的时间间隔就是控制移动的速度的