テキストボックスでテロップをながすには？ (ID:109298)

名前

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

本文 自分なら以下のようにします。 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