请教一下 - vb吧

level 7

良love枫楼主

如何设置一个文本框在窗体中来回地移动？

2015年05月29日 16点05分 1

level 11

无言℉♬

top 和left 属性

2015年05月29日 16点05分 2

良love枫

我知道是用这个属性，但我不会，你可以写个代码给我看看吗？谢谢

2015年05月29日 16点05分

无言℉♬

随便搞整继续就可以了比如借助窗体高，宽与文本框上左位置对比。加减 left top 属性就行

2015年05月29日 16点05分

良love枫

@无言℉♬ 我会设置单方向的移动，但不知道如何弄水平方向来回移动

2015年05月29日 16点05分

无言℉♬

回复良love枫:用 if 或者循环语句

2015年05月29日 16点05分

level 7

良love枫楼主

只是设置水平方向来回移动

2015年05月29日 16点05分 3

吧务

level 13

Luosen56

Option Explicit
Dim P$
Private Sub Form_Load()
P = "向左"
Timer1.Interval = 20 '　定时器 Timer1 的参数
End Sub
Private Sub Timer1_Timer()
If P = "向左" Then
Text1.Left = Text1.Left - 15
If Text1.Left <= 0 - Text1.Width Then P = "向右"
Else
Text1.Left = Text1.Left + 15
If Text1.Left >= 0 + Me.Width Then P = "向左"
End If
End Sub

2015年05月29日 16点05分 5

良love枫

谢谢了

2015年05月29日 16点05分