テキストフィールド上で文字を動かすには？ (ID:89628)

名前

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

本文 たらたらさんのコードはタイマーを使って文字の移動を 実現しています。 解説します Private Sub Form_Load() ↑はフォームがロードされたら下記のコードを実行するってこと。 Text1.Text = " 文字を入力してください" ↑はText1.Textに文字を入れるって事（プロパティで代用可） Timer1.Interval = 1000 ↑はTimer1のTimerイベントが起きるまでの時間（ミリ秒）を指定 この場合1秒。（プロパティで代用可） Timer1.Enabled = True ↑はTimer1を使用するみたいな意味。Timer1のプロパティのEnabledを Falseにしておく。（デフォルトでTrueのため無くてもいい） End Sub ↑はForm_Loadを終了 以下はタイマー処理。 Timer1.Interval = 1000なので一秒毎に下記のコードが実行される。 Private Sub Timer1_Timer() Text1.Text = Right(Text1.Text, 1) & Left(Text1.Text, Len(Text1.Text) - 1) ↑は簡単に言えばText1.Textに入力されている文字を入れ替えて 流れているように見せる。（詳しくはRight関数、Left関数、Len関数を調べてください） End Sub 以上。長文すいません。