Question

VB代码窗体移动

VB加一个时钟控件由时钟控制使窗体从左移到右，当到达右边缘时，又从右移到左的如此反复代码怎么写？

Answer 1

Private Sub Form_Load()
Command1.Left = 0 '初始化要移动的控件,此处以command1控件为例
Command1.Top = 0
Timer1.Interval = 50 '指定移动时间间隔
End SubPrivate Sub Timer1_Timer()
If Command1.Left >= Me.Width - Command1.Width Then
Command1.Left = 0
End If
Command1.Left = Command1.Left + 200 '移动距离
End Sub

Answer 2

Dim aPrivate Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = True
a = 300
End SubPrivate Sub Timer1_Timer()
Me.Left = Me.Left + a
If Me.Left + Me.Width >= Screen.Width Or Me.Left <= 0 Then a = -a
End Sub