|
分類:[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
|