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


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

WindowsXP VB2005

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

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

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

    Next

    Me.ResumeLayout(False)

    aaa = Not aaa

End Sub


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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加