|
分類:[VB.NET/VB2005 以降]
超初心者ですみません。
その時のみProgressBarの表示をChartなどの最前面へ移動をし、完了がすれば最背面へ移動もしくは表示を消したいです。
よろしくお願いします。
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'コントロールを初期化する
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 10
ProgressBar1.Value = 0
Label1.Text = "0" & "/" & 10
'Label1を再描画する
Label1.Update()
'時間のかかる処理を開始する
Dim i As Integer
For i = 1 To 10
'1秒間待機する(時間のかかる処理があるものとする)
System.Threading.Thread.Sleep(1000)
'ProgressBar1の値を変更する
ProgressBar1.Value = i
'Label1のテキストを変更する
Label1.Text = i.ToString() & "/" & 10
'Label1を再描画する
Label1.Update()
'(フォーム全体を再描画するには、次のようにする)
'Me.Update()
Next
'完了報告
MessageBox.Show("完了しました", "○○の作成", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub
|