Question

怎样VB 文本框从右向左移动？？？Text1.Left = Text1.Left + 100是向右移动，那向左呢？！

Answer 1

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static a As Integer
If a = 0 Or Text1.Left < 0 Then
a = 100
ElseIf Text1.Left > Me.ScaleWidth - Text1.Width Then
a = -100
End If
Text1.Left = Text1.Left + a
End Sub

Answer 2

Text1.Left = Text1.Left - 100

追问

那先向右移动，碰到窗体边框了再向左移怎么办呢？

追答

Text1.Left = 窗体宽度-文本宽度 就是碰到边框了.

追问

对啊，但是要用计时器，说碰到右边框时向左返回，这个怎么办呢》？谢谢啦！