お世話になります。
フォームにあるラベルに文字を表示し、その文字をスクロールするプログラムを作成しました。
スクロールはできるのですが、スクロールする際に文字がちらついて（早い点滅のような感じ）しまいます。
どのようにすれば、ちらつきを無くすることができますか？
よろしくお願いします。
（VB2008にて作成）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Label1.Text = "文字のスクロール"
'タイマーのインターバルで文字の進む速度が決まります
Timer1.Interval = 5
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim objG As Graphics
objG = Label1.CreateGraphics()
'ここで一旦クリアしないと真っ黒になります
objG.Clear(Label1.BackColor)
'左端を決めて、文字を描画する
objG.DrawString(Label1.Text, Label1.Font, New SolidBrush(Label1.ForeColor), iLeft, 0)
'左端をずらす
iLeft += 1
If iLeft > Label1.Width Then
'右端までいったら戻す
iLeft = 0
End If
objG.Dispose()
End Sub
ContextMenuStripで
Menu1 Menu2 ・・・・Menu10
と１０個のメニューがあります。（コントロールは１つです。）
これらの表示されるテキストを一括で変えたいのですがうまくできません。普通のテキストボックスなら出来たのですが・・・。
Me.Controls の部分があやしいようにも思うのですが・・・。
よろしくお願いします
言語は VB．NET2008EE
試してみたソースは下記です。
For c As Integer = 1 To 10
Con_Name = "Menu" & c
For Each con In Me.Controls
If con.Name = Con_Name Then
con.text = "test"
End If
Next
Next
Paintイベントが実行できません。。。
こんにちは、いつも勉強させていただいております。
質問させていただきます。どうぞよろしくお願いいたします。
新年早々とんちんかんな質問でしたら申し訳ございません＾＾；
開発環境Vista＋VB2008になります。
デバッグ開始（再生ボタン）後、Label_E_2.Invalidate()からの
Label_E_2.Paintイベントがしょっちゅう実行できなくなるので、
一時停止ボタンを押してみると毎回、別のイベント(Label_E_1.Paint)中の
決まった行が緑色になり、
「このスレッドによって現在の関数が実行された後、次に実行されるステートメントです。」
と表示されます（←理解できておりませんorz）
For Each コントロール In Panel1.Controls
If InStr(コントロール.name, "_E_") Then
コントロール.Image = My.Resources.Btn_E_OFF
End If ↑この行でございます
Next
毎回この行でPaintイベントが止まっているようなイメージを受けております。
「コントロール」という変数の使い方がまずいのでしょうか。。。？
もしかすると解放作業か何か必要になるのかな？などと試行錯誤いたしております。
以前別のプログラムで同じようなコードを作成したときは問題なかったのですが。。。
Googleで検索などいたしましても出てこず、悩んでおります。
どのような現象なのかだけでもアドバイスいただくことができれば嬉しいです。
もしお詳しい方がいらっしゃいましたら，アドバイスいただきたく
どうぞよろしくお願いいたします。
sub 1()
for a = 1 to 4
for b 1 to 6
call 2
next b
'１１１
next a
endsub
sub 2()
---
----
----
on error goto herr
if ----
for c = 1 to 5
if ---
------ 'ここでエラーが起きた場合に'１１１まで
end if
next c
else
for d =1 to 5
if ---
------ 'ここでエラーが起きた場合に'１１１まで
end if
next b
end if
herr
endsub
このような場合でも'１１１までForを抜けることは
かのうでしょうか？
