vb.netの初心者です。bo281さんのLabelの文字をスクロールする質問大変参考になりました!!ラベルの代わりにテキストボックスで文字を表示し、その文字を右から左へスクロールするプログラムを作成しています。 右から左へのスクロールはできるのですが、どうもスクロールが1回だけで終わってしまい、左端までいったら右端に戻ってもう一度左へスクロールするといった繰り返しが起こりません。どうすればいいのか教えてください。コードを提示しつつお願いします。 問題のコード Private Sub Button1_Click(ByVal sender As System.Object, e As System.EventArgs) Handles Button1.Click TextBox5.Text = "次は東京です。" Timer1.Interval = 5 'タイマーの時間を設定する Timer1.Start() 'タイマーを開始する Private Sub Timer1_Tick(ByVal sender As Object, e As EventArgs) Handles Timer1.Tick Dim objG As Graphics '描画した文字列を格納する objG = TextBox5.CreateGraphics() 'textbox5に画像を挿入する objG.Clear(TextBox5.BackColor) 'objGの描画サーフェイス全体をリセットしてtextbox5の背景色で塗りつぶす objG.DrawString(TextBox5.Text, TextBox5.Font, New SolidBrush(TextBox5.ForeColor), scloltext, 0) 'textbox5に描画する文字列やフォントや色えお設定する scloltext -= 1 '文字列が移動する方向を決める If scloltext > TextBox5.Width Then 'scloltextがtextboxの幅よりも大きい場合以下の処理を実行する scloltext = 0 'scloltextに0を代入する End If objG.Dispose() 'objGを開放する End Sub
↧