用于报告AD搜索状态的进度条

Question

在我正在开发的程序中，用户可以通过资产ID标签在AD中搜索计算机。我所有这些都很好，但我想知道是否有办法通过进度条显示搜索进度。

为了进行搜索，我遵循了这个代码，我的代码几乎完全相同。http://msdn.microsoft.com/en-us/library/ms973834.aspx#dotnetadsearch_topic9

Answer 1

假设您使用了链接中提供的整个示例，并且您正在后台线程上运行搜索，请添加一个名为ProgressBar1的进度条，然后尝试以下操作：

线下：

Private Delegate Sub displayResult(ByVal textEntry As String)

添加此行：

Private Delegate Sub maxProgress(ByVal maxProgress As Integer)

在这些线下：

Public Event ResultFound(ByVal result As SearchResult)
Public Event SearchCompleted(ByVal entriesFound As Integer)

添加此行：

Public Event StartProgressBar(ByVal maxProgress As Integer)

将以下代码添加到StartSearch()子：

Dim queryResults As SearchResultCollection
RaiseEvent StartProgressBar(queryResults.Count)

添加以下程序：

Private Sub StartProgress(ByVal maxProgress As Integer) Handles bkg.StartProgressBar
    Dim start as New maxProgress(AddressOf UpdateProgress)
    Me.Invoke(start, New Object() {maxProgress})
End Sub
Private Sub UpdateProgress(ByVal maxProgress as Integer)
    ProgressBar1.Maximum = maxProgress
    ProgressBar1.Step = 1
End Sub

并最终将该行添加到bkg_ResultFound-sub（在If块之外）

ProgressBar1.PerformStep()