テキストボックスで文字を動かしたいです

解決

---

テキストボックスで文字が動いているみたいに表示する事は可能なんでしょうか？
１秒ごとに文字が動くような感じで表現したいんです。


①
-----------------------------------------
文字を入力してください
-----------------------------------------

②
-----------------------------------------
      文字を入力してください
-----------------------------------------

③
-----------------------------------------
            文字を入力してください
-----------------------------------------

④
-----------------------------------------
い                文字を入力してくださ
-----------------------------------------

⑤
-----------------------------------------
ださい                  文字を入力してく
-----------------------------------------

上記のような感じでFormLoad時や、プログラム処理中にテキストボックスを
動かしたいんです。初心者なのでヘルプなどを調べてみたのですが、
探していい所があまりわからず、ここに来てしまいました。

ご存知の方いらっしゃいましたらやりかたなど教えていただけると幸いです。
よろしくお願いします。

編集 削除

---

Text1, Timer1 をフォーム上に配置し、
下のコードを貼り付けて実行して下さい。

Private Sub Form_Load()
Text1.Text = "          文字を入力してください"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1.Text = Right(Text1.Text, 1) & Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

編集 削除

---

たらたら様

早いレスありがとうございます。
たらたら様のコードを入れて動かしてみた所、文字がスムーズにうごきました!!
インターバルを短くしたり、長くしたりして、速度も変えれますし、
たらたら様に教えていただいた右向きとは逆の左向きにも挑戦してみたいです。
「動かす」というのではなく、表示の方法をタイマーを使って徐々に変えていくと
いう発想が思い浮かばなかったので、ここにこなければずっと悩んでいたと思います。

いろいろアレンジして動かしてみたいです。
たらたら様ありがとうございました。
またここに来た時に見かけましたらよろしくお願いします。

編集 削除

---

名前

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

本文

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