高手请问如何用VB用TIMER控件写代码实现文字自动滚动?

2025-04-27 02:47:22

推荐回答（1个）

回答1：

以下是VB用TIMER控件写代码实现文字自动横向滚动的代码供参考:

Option Explicit
Dim ltxt As Integer
Dim pm_TsOld As String

Private Sub Form_Load()
pm_TsOld = "This is Visual Basic Program. "
End Sub

Private Sub Timer1_Timer()
ltxt = Len(pm_TsOld)
Text1.Left = 7680 - 30 * ltxt
Text1.Width = 100 * ltxt
If ltxt > 0 Then
pm_TsOld = Mid(pm_TsOld, 2, ltxt - 1) & Mid(pm_TsOld, 1, 1)
Text1 = pm_TsOld
End If
End Sub

高手 请问如何用VB用TIMER控件写代码实现文字自动滚动?

高手请问如何用VB用TIMER控件写代码实现文字自动滚动?