ここから本文です

visual basic 2015を使っていて分からないところがあります。 文字を滑らかにス...

tok********さん

2018/5/1520:05:52

visual basic 2015を使っていて分からないところがあります。

文字を滑らかにスクロールさせるプログラムを組みました。

そこまではできましたが、一定時間が経過すると文章が初期の位置に戻り、スクロールをループさせるところでつまづきました。
以下に、ボタンを押した時に文章を滑らかにスクロールさせる構文を記載します(一秒間に約4文字の速さでスクロールしています)。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me._Timer1.Interval = 33
Me._Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label3.Left = Label3.Left - 10
End Sub


スクロールを例えば3分間行ったところで、文章が初期の位置に戻り再び3分間スクロールするイベントをループさせたいです。

どなたかお力をお貸ししていただければ幸いです。

よろしくお願いいたします。

閲覧数:
37
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

hdu********さん

2018/5/1609:39:19

頭出しの機能を付ければ良い。


Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
With Label3
If (.Left + .Width) >= 0 Then
.Left -= 10
Else
'ホントは初期値を持たせて、それに戻したいけど、持っていないので、近似値
.Left += .Width
End If
End With
End Sub

質問した人からのコメント

2018/5/18 09:17:52

これを適用したら見事に自分の理想通りに動きました。
お力添えいただき本当にありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる