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

名前

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

本文 画面にコマンドボタン(Command1)、ラベル(Label1)をはりつけて 以下をコードにはりつけてやってみてください。 あとは頑張って、内容を理解していってください。 Option Explicit Private Sub Command1_Click() Dim i As Integer Dim txtMsg As String Label1 = "" txtMsg = "あいうえお|@@@かきくけこ" For i = 1 To Len(txtMsg) If Mid(txtMsg, i, 1) = "@" Then Call TimeWait(0.3) ElseIf Mid(txtMsg, i, 1) = "|" Then Label1 = Label1 & vbCrLf Else Label1 = Label1 & Mid(txtMsg, i, 1) Call TimeWait(0.1) End If Next i 'ここで '後、指定の場所で流れてる文章が止まり、クリックするとまた流れ始めるようにしたいのですが・・・。 'を頑張っていれてね。 'そんなに難しくないですが。 End Sub Private Sub TimeWait(wait As Single) Dim wrktime As Single wrktime = Timer + wait Do Until Timer >= wrktime DoEvents Loop End Sub