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

名前

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

本文 私も、作ってみました。 Option Explicit Private Const MAX_LENGTH As Integer = 40 '一行に表示可能な文字数 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() Label1.Caption = "" Me.Show Call MoveStart("あいうえお") End Sub Private Sub Form_Click() Call MoveStart("かきくけこ") End Sub Private Sub MoveStart(strText As String) Dim i As Integer With Label1 For i = 1 To Len(strText) .Caption = .Caption & _ Space$(MAX_LENGTH - Len(.Caption) - 1) & _ Mid$(strText, i, 1) Do Until InStr(.Caption, " ") = 0 .Caption = Replace(.Caption, " ", "", 1, 1) Sleep 10 DoEvents Loop Next i End With End Sub