Question

VB字符移动代码

1.在文本框中输入任意一串字符；
2.单击“开始”按钮，文本框变为可见，按钮上标题改为“停止”，同时将文本框中输入的字符串中的字符按顺序进行左右移动，第1个字符从窗体左边开始右移，字符右边超出右边界后下一个字符改为左移，字符左边越过左边界后下一个字符改为右移，以此类推。当移动完最后一个字符后，再从第1个字符开始一次移动。字符在移动的过程中颜色动态变化。
3.字符每100毫秒移动一次，每次移动100个单位
4.单击“停止”按钮，停止字符的移动，文本框又变为可见，按钮上标题改为“开始”

Answer 1

额……我大概会一些这样你看看行不行显示和不显示就是更改Visible属性的问题，点来点去什么的我就不讲了先画2个TexBox控件，再画一个timer控件，在属性interval中设置为1000。把如下代码复制到代码中。Option Explicit
'text1.text中的文本向左滚动
'text2.text中的文本向右滚动
Private Sub Timer1_Timer()
Dim tmp1, tmp2 As String
tmp1 = Text1.Text
tmp2 = Text2.Text
Text1.Text = Right(tmp1, Len(tmp1) - 1) & Left(tmp1, 1)
Text2.Text = Right(tmp2, 1) & Left(tmp2, Len(tmp2) - 1)
End Sub如果都要求向左移动的话那么就写成，另外这个好久没有用了前面的Option Explicit加不加你都试试看吧Option Explicit'text1.text中的文本向左滚动
'text2.text中的文本向右滚动
Private Sub Timer1_Timer()
Dim tmp1, tmp2 As String
tmp1 = Text1.Text
tmp2 = Text2.Text
Text1.Text = Right(tmp1, Len(tmp1) - 1) & Left(tmp1, 1)
Text2.Text = Right(tmp2, Len(tmp2) - 1) & Left(tmp2, 1)
End Sub让点击开始按钮让文字滚动也很简单，你先吧计时器（Timer）的Enablad属性改为False代码如下：Timer1.Enablad = FalseCommand1（就是你的开始按钮，复制的时候把括号去掉） ="停止"中间的分歧写一下，然后把Enablad改为True就可以了