Question

vb文本框中内容左右移动代码

注意，是text1.text中的内容移动，不是文本框移动，。求高手指点代码
使用按钮来控制

Answer 1

怎么个移动法？其实有更好的，建议你用label和picture来组合实现 。
如果实在要这么做，可以这样：

Dim N As Integer
Dim S As String

Private Sub Form_Load()
S = "欢迎光临。"
Text1.Text = S
End Sub

Private Sub Command1_Click() '右移
N = N + 1
Text1.Text = String(N, " ") & S
End Sub

Private Sub Command2_Click() '左移
N = N - 1
If N < 0 Then N = 0
Text1.Text = String(N, " ") & S
End Sub

Answer 2

文本框只有两个属性，我的意思是只有top和left属性，而没有under和ringht属性，所以要实现向下移动，只要top值增加就可以了，向右，left值增加就可以了。
可以输入代码：text1.top=text1.top+n
text1.left=text1.left+n（n是值任意正整数）
希望这对你有帮助。

Answer 3

Private Sub Command1_Click() '右
Text1.Text = " " & Text1.Text
End Sub

Private Sub Command2_Click() '左
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
End Sub

Answer 4

你是要textbox做成滚动字幕？