Question

求VB程序中让TEXT文本框中的文字移动的代码

做课色遇到了 小问题，希望大家能帮我一下能让文字移动的代码

Answer 1

'首先看你的文本框里能显示多少个字符，然后记录下这个数据
'我的文本框可以显示32个字符
'需要进行移动的字符串，比如"123hello@?"
'下面开始进行字符移动

Private Sub Command1_Click()
s = "123hello@?"
Text1.Text = ""
Text1.Text = s + Space(32 - Len(s))
'Timer1.Enabled = True
Timer1.Interval = 500 '文本移动速度500ms
End Sub

'--------以下这段代码为测试文本框显示长度，编程不需要-----------
Private Sub Command2_Click()
For i = 1 To 100
Text1.Text = Text1.Text & i Mod 10
Next
'运行完看前面出现过几次零，然后加上最后一个可以看见的数字即为文本框显示字符数
End Sub
'--------以上这段代码为测试文本框显示长度，编程不需要-----------

Private Sub Timer1_Timer()
'Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) + Left(Text1.Text, 1) '向左移动
Text1.Text = Right(Text1.Text, 1) + Left(Text1.Text, Len(Text1.Text) - 1) '向右移动
End Sub

Answer 2

文本框只有两个属性，我的意思是只有Top和Left属性，而没有Under和Ringht属性，所以要实现向下移动，只要Top值增加就可以了，向右，Left值增加就可以了。

可以输入代码：Text1.Top=Text1.Top+n
Text1.Left=Text1.Left+n（n是值任意正整数）
希望这对你有帮助。

Answer 3

在窗体中填加一个timer1控件.设置Timer1.enabled=false
timer1.interval=100
然后在timer1_timer事件中输入如下代码
Private Sub Timer1_Timer()
Text1.Left = Text1.Left - 100
If Text1.Left < -Text1.Width Then
Text1.Left = Me.Width - Text1.Width
End If
End Sub
我已经试验过了.可正常使用

Answer 4

不太明白如何移动。