Question

在vb中，利用时钟和滚动条设计一个字幕滚动程序，并且滚动条可以控制字幕的位置。

在vb中，利用时钟和滚动条设计一个字幕滚动程序，并且滚动条可以控制字幕的位置。。。。。控制的是字幕位置，不是字幕的速度。

Answer 1

Private Sub Form_Load()
    With Label1
        .AutoSize = True
        .Caption = "字幕滚动"
        .FontSize = 16
        .ForeColor = vbRed
    End With
    With Timer1
        .Enabled = True
        .Interval = 100
    End With
    With HScroll1
        .Min = 0
        .Max = Me.ScaleWidth
    End With
End Sub
Private Sub Timer1_Timer()
    With Label1
        .Left = HScroll1.Value
        .Top = .Top - 100
        If .Top <= 0 Then .Top = Me.ScaleHeight - .Height
    End With
End Sub

Answer 2

源文件需要地址