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

名前

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

本文 >>LESIAさん こうじゃない？ Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Click() Static no As Integer Dim text(0 To 2) As String text(0) = "それは夏の暑い深夜に起こった。" & vbCrLf text(1) = "別に特別何かを感じたわけではない。 " & vbCrLf text(2) = "ベッドから目覚めた僕は、その異変に気づいた。" If no > 2 Then Form1.Cls no = 0 End If DisplayText (text(no)) no = no + 1 End Sub Private Sub DisplayText(strText As String) Dim i As Integer For i = 1 To Len(strText) Form1.Print Mid$(strText, i, 1); Sleep 100 Next i End Sub