C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 46 を表示中)
■24750 / )  VB.Netでラベルを表示させる方法を教えてください。
□投稿者/ たけちゃん (1回)-(2008/09/09(Tue) 10:57:25)

分類:[VB.NET/VB2005] 

VB.Netでボタン押下時にラベルを表示し、処理が終了したらラベルを非表示にするようにしたいのですが
上手くできません。ラベルはLabel3です。
どなたか教えて頂けないでしょうか。

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        '参照先、保存先、自動生成ボタンのコントロールを非表示。
        Me.Button1.Visible = False
        Me.Button3.Visible = False
        Me.Button4.Visible = False
        'テキストボックス1、テキストボックス2のコントロールを非表示。
        Me.TextBox2.Visible = False
        Me.TextBox3.Visible = False
        'ラベル1、ラベル2のコントロールを非表示。
        Me.Label1.Visible = False
        Me.Label2.Visible = False
        'ラベル3のコントロールを表示。
        Me.Label3.Visible = True
        'Progress Barのコントロールを表示。
        Me.ProgressBar1.Visible = True
        'ProgressBar1の設定
        Me.ProgressBar1.Minimum = 0
        Me.ProgressBar1.Maximum = 10

        MsgBox("自動生成開始")

        Dim i As Integer
        For i = 1 To 10

            'ProgressBar1の値を変更する
            Me.ProgressBar1.Value = i

            '1秒間待機する(本来なら何らかの処理を行う)
            System.Threading.Thread.Sleep(1000)

        Next i

        '参照先、保存先、自動生成ボタンのコントロールを表示。
        Me.Button1.Visible = True
        Me.Button3.Visible = True
        Me.Button4.Visible = False
        'テキストボックス1、テキストボックス2のコントロールを表示。
        Me.TextBox2.Visible = True
        Me.TextBox3.Visible = True
        'ラベル1、ラベル2のコントロールを表示。
        Me.Label1.Visible = True
        Me.Label2.Visible = True
        'ラベル3のコントロールを非表示。
        Me.Label3.Visible = False
        'Progress Barのコントロールを非表示。
        Me.ProgressBar1.Visible = False
        'ProgressBar1の設定
        Me.ProgressBar1.Value = 0

        Flag1 = 0
        Flag2 = 0

    End Sub

返信 編集キー/


管理者用

- Child Tree -