ラベルを一気に消すには？

タメ子 2008-02-13 01:04:33 No: 138943

WindowsXP VB2005

下記のようなプログラムでタイマーにより、複数のラベルを一気に
表示・非表示を繰り返しています。
この程度 (９個) だと実際に動かした時点ではわからないのですが、
デバッグで１つ１つ処理を見ると、
ラベルを表示 (Visible = True) の場合は、この処理を抜けた時点
で一気に画面に表示されますが、非表示 (Visible = False) は、
ループ内で１つ１つ消しています。(実際に画面から１つ１つ消えます)

これを表示時と同じように処理を抜けた時点で一気に非表示にするには
どうすればよろしいでしょうか。

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Static aaa As Boolean

Dim i As Integer

Me.SuspendLayout()

For i = 1 To 9 Step 1

        If aaa = True Then
            LabelArray1(i).Visible = True
        Else
            LabelArray1(i).Visible = False
        End If

Me.ResumeLayout(False)

aaa = Not aaa

End Sub

やじゅ 2008-02-13 08:08:02 No: 138944

パネルの上にラベルコントロールを貼ればいいんでないの。
パネル.Visibe = True or Falseのみで済みますが