Dim n As Integer, s As String Private Sub Form_Click() Text1.Text = "sudjfhkasjdfhkasjfhkasjhfkashfk;aasfasdffg" n = Len(Text1) s = Text1.Text & Text1.Text Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Static i As Integer i = i + 1 If i > n Then i = 1 End If Text1.Text = Mid(s, i, n) End Sub 这个代码可以帮你实现这功能，需以个时钟控件和文本框
在内容前加空格就移动了，用循环一个一个加就行了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024