過去ログにテキスト内の文字の自動スクロールのソースがあり、
実際に動かしてみました。以下のソースです。
※環境はXPでVB6.0です。
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
しかし、別のサイトの過去ログで、
”滑らかにしたいなら、テキストBOXは諦めて、ラベルのLeft
プロパティをタイマーイベントで加減算すれば滑らかになります。”
と書いてありました。
これは、上記のソースのTextをLabelに変更すれば滑らかになるの
でしょうか?実際にやってみたのですが、どちらも大差ないように
見えたのですが...。
それとも他に滑らかになる方法があるのでしょうか?
どなたか教えて下さい。
>滑らかにしたいなら、テキストBOXは諦めて、ラベルのLeftプロパティをタイマーイベントで加減算すれば滑らかになります。
ですから、ラベルの表示位置をLeftプロパティを使用して移動させます。
Label1.Left = Label1.Left - 10
スムーズに移動はしますが、消えませんので、フレーム内にラベルを作成し
移動させると、スムーズに移動し消すことも可能でしょう
以上
VB梅さん、返答ありがとうございます。
納得です。
※しかし、ラベルをテキストボックスに変えて
実行しても同じ様になるのでは?
他の掲示板の説明をここで求められてもね。
いずれにしろ、LabelでもTextBoxでも同じでしょう。
「marquee」タグを埋め込んだHTMLテキストをWebbrowsweに読み込ませる
手が有ります。これだと左右だけでなく上でも下でも、色もつけられます。
この方法の欠点はWebbrowserの右側にスクロールバーが出てしまい、これを
消すのに一工夫要るということです、参考までに。
我龍院忠太さん、御教授どうもありがとうございます。
参考にさせて頂きます。
>他の掲示板の説明をここで求められてもね。
ごもっともですね。以後、気を付けます。
※しかし、このサイトの皆さんは親切でいつも助かります。
ツイート | ![]() |