DoboWiki

Public Class ProgressForm
    Inherits System.Windows.Forms.Form
 
#Region " Windows フォーム デザイナで生成されたコード "
 
    Public Sub New()
        MyBase.New()
 
        ' この呼び出しは Windows フォーム デザイナで必要です。
        InitializeComponent()
 
        ' InitializeComponent() 呼び出しの後に初期化を追加します。
 
    End Sub
 
    ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Windows フォーム デザイナで必要です。
    Private components As System.ComponentModel.IContainer
 
    ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
    'Windows フォーム デザイナを使って変更してください。  
    ' コード エディタを使って変更しないでください。
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 8)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(296, 48)
        Me.Label1.TabIndex = 0
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Location = New System.Drawing.Point(8, 56)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(216, 23)
        Me.ProgressBar1.TabIndex = 1
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(232, 56)
        Me.Button1.Name = "Button1"
        Me.Button1.TabIndex = 2
        Me.Button1.Text = "キャンセル"
        '
        'ProgressForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
        Me.ClientSize = New System.Drawing.Size(320, 85)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.ProgressBar1)
        Me.Controls.Add(Me.Label1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "ProgressForm"
        Me.Text = "ProgressForm"
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
End Class
 
''' <summary>
''' 進行状況ダイアログを表示するためのクラス
''' </summary>
Public Class ProgressDialog
    Implements IDisposable
 
    'キャンセルボタンがクリックされたか
    Private _canceled As Boolean = False
    'ダイアログフォーム
    Private form As ProgressForm
    'フォームが表示されるまで待機するための待機ハンドル
    Private startEvent As System.Threading.ManualResetEvent
    'フォームが一度表示されたか
    Private showed As Boolean = False
    'フォームをコードで閉じているか
    Private closing As Boolean = False
    'オーナーフォーム
    Private ownerForm As form
 
    '別処理をするためのスレッド
    Private thread As System.Threading.Thread
 
    'フォームのタイトル
    Private _title As String = "進行状況"
    'ProgressBarの最小、最大、現在の値
    Private _minimum As Integer = 0
    Private _maximum As Integer = 100
    Private _value As Integer = 0
    '表示するメッセージ
    Private _message As String = ""
 
    ''' <summary>
    ''' ダイアログのタイトルバーに表示する文字列
    ''' </summary>
    Public Property Title() As String
        Get
            Return _message
        End Get
        Set(ByVal Value As String)
            _title = Value
            If Not (form Is Nothing) Then
                form.Invoke(New MethodInvoker(AddressOf SetTitle))
            End If
        End Set
    End Property
 
    ''' <summary>
    ''' プログレスバーの最小値
    ''' </summary>
    Public Property Minimum() As Integer
        Get
            Return _minimum
        End Get
        Set(ByVal Value As Integer)
            _minimum = Value
            If Not (form Is Nothing) Then
                form.Invoke(New MethodInvoker( _
                    AddressOf SetProgressMinimum))
            End If
        End Set
    End Property
 
    ''' <summary>
    ''' プログレスバーの最大値
    ''' </summary>
    Public Property Maximum() As Integer
        Get
            Return _maximum
        End Get
        Set(ByVal Value As Integer)
            _maximum = Value
            If Not (form Is Nothing) Then
                form.Invoke(New MethodInvoker( _
                    AddressOf SetProgressMaximun))
            End If
        End Set
    End Property
 
    ''' <summary>
    ''' プログレスバーの値
    ''' </summary>
    Public Property Value() As Integer
        Get
            Return _value
        End Get
        Set(ByVal Value As Integer)
            _value = Value
            If Not (form Is Nothing) Then
                form.Invoke(New MethodInvoker( _
                    AddressOf SetProgressValue))
            End If
        End Set
    End Property
 
    ''' <summary>
    ''' ダイアログに表示するメッセージ
    ''' </summary>
    Public Property Message() As String
        Get
            Return _message
        End Get
        Set(ByVal Value As String)
            _message = Value
            If Not (form Is Nothing) Then
                form.Invoke(New MethodInvoker(AddressOf SetMessage))
            End If
        End Set
    End Property
 
    ''' <summary>
    ''' キャンセルされたか
    ''' </summary>
    Public ReadOnly Property Canceled() As Boolean
        Get
            Return _canceled
        End Get
    End Property
 
    ''' <summary>
    ''' ダイアログを表示する
    ''' </summary>
    ''' <param name="owner">
    ''' ownerの中央にダイアログが表示される
    ''' </param>
    ''' <remarks>
    ''' このメソッドは一回しか呼び出せません。
    ''' </remarks>
    Public Overloads Sub Show(ByVal owner As form)
        If showed Then
            Throw New Exception("ダイアログは一度表示されています。")
        End If
        showed = True
 
        _canceled = False
        startEvent = New System.Threading.ManualResetEvent(False)
        ownerForm = owner
 
        'スレッドを作成
        thread = New System.Threading.Thread( _
            New System.Threading.ThreadStart(AddressOf Run))
        thread.IsBackground = True
        Me.thread.ApartmentState = System.Threading.ApartmentState.STA
        thread.Start()
 
        'フォームが表示されるまで待機する
        startEvent.WaitOne()
    End Sub
 
    Public Overloads Sub Show()
        Show(Nothing)
    End Sub
 
    '別スレッドで処理するメソッド
    Private Sub Run()
        'フォームの設定
        form = New ProgressForm
        form.Text = _title
        AddHandler form.Button1.Click, AddressOf Button1_Click
        AddHandler form.Closing, AddressOf form_Closing
        AddHandler form.Activated, AddressOf form_Activated
        form.ProgressBar1.Minimum = _minimum
        form.ProgressBar1.Maximum = _maximum
        form.ProgressBar1.Value = _value
        'フォームの表示位置をオーナーの中央へ
        If Not (ownerForm Is Nothing) Then
            form.StartPosition = FormStartPosition.Manual
            form.Left = _
                ownerForm.Left + (ownerForm.Width - form.Width) \ 2
            form.Top = _
                ownerForm.Top + (ownerForm.Height - form.Height) \ 2
        End If
        'フォームの表示
        form.ShowDialog()
 
        form.Dispose()
    End Sub
 
    ''' <summary>
    ''' ダイアログを閉じる
    ''' </summary>
    Public Sub Close()
        closing = True
        form.Invoke(New MethodInvoker(AddressOf form.Close))
    End Sub 'Close
 
    Public Sub Dispose() Implements System.IDisposable.Dispose
        form.Invoke(New MethodInvoker(AddressOf form.Dispose))
    End Sub
 
    Private Sub SetProgressValue()
        If Not (form Is Nothing) And Not form.IsDisposed Then
            form.ProgressBar1.Value = _value
        End If
    End Sub
 
    Private Sub SetMessage()
        If Not (form Is Nothing) And Not form.IsDisposed Then
            form.Label1.Text = _message
        End If
    End Sub
 
    Private Sub SetTitle()
        If Not (form Is Nothing) And Not form.IsDisposed Then
            form.Text = _title
        End If
    End Sub
 
    Private Sub SetProgressMaximun()
        If Not (form Is Nothing) And Not form.IsDisposed Then
            form.ProgressBar1.Maximum = _maximum
        End If
    End Sub
 
    Private Sub SetProgressMinimum()
        If Not (form Is Nothing) And Not form.IsDisposed Then
            form.ProgressBar1.Minimum = _minimum
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As Object, _
        ByVal e As EventArgs)
        _canceled = True
    End Sub
 
    Private Sub form_Closing(ByVal sender As Object, _
        ByVal e As System.ComponentModel.CancelEventArgs)
        If Not closing Then
            e.Cancel = True
            _canceled = True
        End If
    End Sub
 
    Private Sub form_Activated(ByVal sender As Object, _
        ByVal e As EventArgs)
        RemoveHandler form.Activated, AddressOf form_Activated
        startEvent.Set()
    End Sub
End Class

Dim pd As New ProgressDialog
'ダイアログのタイトルを設定
pd.Title = "カウントアップ"
'プログレスバーの最小値を設定
pd.Minimum = 0
'プログレスバーの最大値を設定
pd.Maximum = 10
'プログレスバーの初期値を設定
pd.Value = 0
 
'進行状況ダイアログを表示する
pd.Show(Me)
 
'処理を開始
Dim i As Integer
For i = 1 To 10
    'プログレスバーの値を変更する
    pd.Value = i
    'メッセージを変更する
    pd.Message = i.ToString() + "番目を処理中..."
 
    'キャンセルされた時はループを抜ける
    If pd.Canceled Then
        Exit For
    End If
 
    '1秒間待機する（本来なら何らかの処理を行う）
    System.Threading.Thread.Sleep(1000)
Next i
 
'ダイアログを閉じる
pd.Close()