自动滚动静态标签中的文本

好吧，我不记得我在哪里捡到这个代码，但是我已经看到了

它要求在许多论坛上，很多次，所以我想我要在这里添加它（因为这是我最喜欢的论坛）。

自动滚动静态标签中的文本。

到您的表格...

新增1个标签

添加1个命令按钮

新增1个计时器

添加1个文本框

代码：（vb 6）

声明：

    Dim s As Integer
    Dim dta As String  
Private Sub Command1_Click()
    Label1.Caption = ""
    Timer1.Enabled = True
    Timer1.Interval = 100
    Label1.Width = 4335
    Label1.Font = "Palatino Linotype"
    Label1.Font.Size = 13
    Label1.Font.Bold = False
End Sub 
Private Sub Timer1_Timer() 
    ' put your text here in dta string
    dta = "Whatever text you want to scroll" & Space$(40)
    s = s + 1
    Label1.Caption = Mid(dta, 1, s)
    If Len(Label1.Caption) >= 42 Then Label1.Caption = Right(Label1.Caption, 41) 
    If s = Len(dta) Then
        Label1.Caption = ""
        s = 0
    End If
End Sub

仅剪切和粘贴代码，然后添加命令按钮，计时器和标签，就非常容易说明。

希望这对您有所帮助，如果您喜欢，我还有85个更基本/非常有用的方法，如何准备使用代码示例。

哥布

谢谢阅读。

From: https://bytes.com/topic/visual-basic/insights/782379-auto-scroll-text-static-label