Question

VB 编程： 文本框内容自动滚动

我希望用的是 label.move这样 可是弄成如图所示后 没能自动滚动
求助

Answer 1

文本框霓虹灯效果,通过把文本框拆数组,然后打乱数组顺序重新组合,通过 改变Timer的Interval改变速度
Dim s(1 To 19) As String 这里估计一下你的Text文本框估计能输入有多少字,不要相差太大.不然会影响效果
Private Sub Command1_Click()
For i = 1 To Len(Text1)
s(i) = Mid(Text1.Text, i, 1)
Next
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
temp = s(1)
For i = 1 To UBound(s) - 1
s(i) = s(i + 1)
Next
s(UBound(s)) = temp
Text1.Text = Join(s)
End Sub

Answer 2

百度一下！