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

解決

KBC 2003-10-22 00:17:47 No: 109297

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

uchi 2003-10-22 01:11:04 No: 109298

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

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

KBC 2003-10-23 18:46:11 No: 109299

ありがとうございました