谁能给我一段文字逐渐向上滚动显示的代码.

Question

我曾经编号了一段文字先上滚动的代码,但由于无操作将其山除了,现在急用,意识幽香不其实怎么变得了

Answer 1

问，楼主要的是直接画的文字还是用Label的？

Answer 2

label控件中的.
pcwak(书剑狂生) ,你的这种效果好像不是很好,能不能将label的位置固定

Answer 3

if label1.top>0
Label.top=Label.top-10
end if

Answer 4

Private strcaption As StringPrivate Sub Form_Load()
    strcaption = Label1.Caption
    Timer1.Interval = 500
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Dim strShow As String
    Dim i As Integer
    Static index As Integer
    index = index + 1
    If index > Len(strcaption) Then
        index = 1
            
    End If
    For i = 1 To index
    strShow = strShow & " "
    Next i
    strShow = strShow & Left(strcaption, Len(strcaption) - index)
    Label1.Caption = strShow
End Sub

Answer 5

不可能文字在Label里动，应该在PictureBox里面画文字