Question

在VB程序中,如何使text内的文字滚动

在VB程序中,如何使text内的文字滚动

Answer 1

添加一个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

Answer 2

1.先将Text1的multiline属性设置为True
2.text1.selstart=len(text1.text)