テキストを左から流して表示するには？ (ID:121245)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

今ひとつ動きが判らないけど。。
Labelを一つ貼り付けて、index プロパティを０にする。

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub MoveStart()
    Dim LabelPos As Long
    LabelPos = Label1(2).Left + Label1(2).Width
    Do
        Label1(1) = Left(Trim(Label1(2)), 1)
        Label1(2) = Right(Label1(2), Len(Label1(2)) - 1)
        Label1(1).Left = Label1(2).Left - Label1(1).Width
        Label1(2).Left = LabelPos - Label1(2).Width
        MoveLabel
    Loop While Trim(Label1(2)) <> "" And Label1(1) <> "お"
    Label1(1) = ""
End Sub
Private Function MoveLabel()
    Do
        Sleep (10)
        Label1(1).Left = Label1(1).Left - 100
        DoEvents
    Loop While (Label1(0).Left + Label1(0).Width) < Label1(1).Left
    Label1(0) = Label1(0) + Label1(1)
    Label1(1).Left = Label1(2).Left - Label1(1).Width
End Function
Private Sub Form_Click()
    MoveStart
End Sub
Private Sub Form_Load()
    Dim i As Integer
   
    For i = 1 To 2
        Load Label1(i)
    Next
    For i = 0 To 2
        With Label1(i)
            .AutoSize = True
            .Caption = ""
            .Left = i * 3000 + 200
            .Top = 1000
            .Visible = True
        End With
    Next
    Label1(2).Caption = "あいうえおかきくけこ"
    Me.Show
    MoveStart
End Sub
こんなことですかね。

←解決時は質問者本人がここをチェックしてください。

戻る