VB2008でフォームに文字列をスクロールさせたい
VB2008でフォーム上に右~左にフェイドイン、フェイドアウトする
物を作ろうとしてるのですが、どうしてもわからないので書き込みしました。
フォーム1にテキストボックスとボタンがあり、
ボタンを押す事によりテキストボックスの文字列をフォーム2の画面上に
表示し、右~左(HTMLLで言うとキーマー)に動くようにしたいのですが
右からって事は一番右の値が+だと思うのですがフォーム2は大きさを自由に
変更できるので大きさをさらに大きくした場合途中で消えてしまいます。
あと、タイマーでするとタイマーが終わるまで実行できないので
文字が流れてる間もボタンを押す事にyの値を変えて、
複数実行させたいのです。
以下が試しに書いてみたプログラムです。
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim objG As Graphics
objG = Form2.CreateGraphics()
objG.Clear(Form2.BackColor)
objG.DrawString(Text1.Text, Label1.Font, New SolidBrush(Label1.ForeColor), iLight, 50 + Form2.Width)
iLight += -1
If iLight < -50 Then
Timer1.Stop()
End If
objG.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 1
Timer1.Start()
End Sub
すみませんがよろしくお願いします。
お礼
ありがとうございます。 プログラム上では、ボタンのフォントはいじっておりません。 それから。「Captionに空白は…」とはプログラム上のことであり、フォームのプロパティでボタン文字を入力する際、ボタンとのバランスを調整するために空白は入れました。 これが一番の原因なのでしょうか?