テキストボックスでテロップをながすには？

解決

---

テキストボックスでテロップをながすにはどうすればいいんですか？
ピクチャボックスで表示することはできるのですが
１回目と２回目の間でバグが生じてしまいます。
テキストボックスでのテロップの流し方とうまくつなげる方法を教えてください。

編集 削除

---

自分なら以下のようにします。


Option Explicit

Private Const LasTEXT = "表示させたいメッセージの内容。    "

Private Sub Form_Load()

    Call Timer1_Timer                       ' 初期表示
    Timer1.Interval = 500                   ' 更新時間の設定

End Sub

Private Sub Timer1_Timer()

 Dim sText As String                        ' 表示するメッセージ
 Static iCnt As Integer                     ' 次回の表示開始位置

    sText = Mid$(LasTEXT, iCnt + 1)
    sText = sText & Left$(LasTEXT, iCnt)
    Text1.Text = sText                      ' メッセージの表示

    ' 次の表示開始位置を計算
    iCnt = (iCnt + 1) Mod Len(LasTEXT)

End Sub

編集 削除

---

ありがとうございました

編集 削除

---

名前

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

本文

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