VB.Net 使用Thread和DoEvent 进行并发处理

进度条控制问题:

一. BackgroundWorker 组件 和Thread

许多经常执行的操作可能需要很长的执行时间。

类似这样的操作可能导致用户界面在操作运行时挂起。如果您需要用户界面的响应却遇到与此类操作关联的长时间延迟，BackgroundWorker组件可以提供一种方便的解决方案。
使用 BackgroundWorker 组件，您可以在不同于应用程序的主用户界面线程的另一线程上异步（“在后台”）执行耗时的操作。若要使用 BackgroundWorker，只需要告诉该组件要在后台执行的耗时的辅助方法，然后调用 RunWorkerAsync 方法。在辅助方法以异步方式运行的同时，您的调用线程继续正常运行。该方法运行完毕，BackgroundWorker 激发 RunWorkerCompleted 事件（可选择包含操作结果）向调用线程发出警报。

“组件”选项卡的“工具箱”中提供了 BackgroundWorker 组件。若要向窗体添加 BackgroundWorker，请将 BackgroundWorker 组件拖到窗体上。该组件出现在组件栏中，该组件的属性出现在“属性”窗口中。

若要启动异步操作，请使用 RunWorkerAsync 方法。RunWorkerAsync 采用一个可选的 object 参数，可以使用该参数将变量传递给辅助方法。BackgroundWorker 类公开 DoWork 事件，您的辅助线程通过 DoWork 事件处理程序附加到该事件。

DoWork 事件处理程序采用一个 DoWorkEventArgs 参数，该参数具有 Argument 属性。此属性接收来自 RunWorkerAsync 的参数，并可以传递至 DoWork 事件处理程序中调用的辅助方法。下面的示例演示如何分配名为 ComputeFibonacci 的辅助方法的结果。 

★★★★★★★★例子不太好,只是简单的使用★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

Option Explicit On      '変数の、明示的な宣言を強制します。
Option Strict On        '変数の、明示的な型宣言を強制します。

Imports Tocera.App.UI.Common
Imports System.Windows.Forms
Imports System.configuration
'
' 共通ダイアログ
'
Public Class CmnDialog              '共通ダイアログ画面

    'Private mResults As New List(Of Integer)
    Dim th As New Threading.Thread(AddressOf execSearch)
    Dim resultData As Hashtable = New Hashtable
    Private _GUIParam As GUIParam                           ''画面間パラメタ
    Public Property GUIParameter() As GUIParam
        Get
            Return Me._GUIParam
        End Get
        Set(ByVal value As GUIParam)
            Me._GUIParam = value
        End Set
    End Property

    Private _DialogParam As CmnDialogParam                  ''共通ダイアログパラメタ
    Public ReadOnly Property DialogParameter() As CmnDialogParam
        Get
            Return CType(Me._GUIParam.Param, CmnDialogParam)
        End Get
    End Property
    Private service As CmnDialogService                 ''共通ダイアログサービスクラス
    Private formBean As CmnDialogFormBean               ''共通ダイアログBeanクラス
    Private AppConf As AppConfiguration = Nothing       ''App.Conig
    Private cmnDlgMode As CmnDialogMode = Nothing       ''ダイアログモードクラス
    Private Log As Logger = Nothing                     ''ロガー
    Private MsgMng As MessageMng = Nothing              ''メッセージマネジャー

    '
    ' 機能      : コンストラクタ
    '
    ' 引き数    : なし
    '
    ' 返り値    : なし
    '
    ' 機能説明  : コンスラクタ
    '
    ' 備考      : なし
    '
    Sub New()

        ' この呼び出しは、Windows フォーム デザイナで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。
      
        AppConf = New AppConfiguration

        Log = LoggerBuilder.GetLogger

        MsgMng = MessageBuilder.GetMessageMng
       
    End Sub

    '
    ' 機能      : Form_Load