Question

我以前在线程方面做得并不多，而且我在更新标签和关闭表单时遇到了问题。

调试时，CloseDialog（）子命令肯定在主线程中运行，所以我不明白为什么它没有关闭。表单上没有循环或其他任何东西可以保持打开状态。我在使用从另一个线程实时传递的信息更新标签上的文本时遇到了问题。

调用AddOUToTreeView子并且工作正常，但是frmStatus的子函数从不做任何事情。

frmMain：

Private WithEvents bkg As New ADSearcher

Private Sub startSearch_Click(ByVal sender As Object, ByVal e As EventArgs) Handles startSearch.Click

    With bkg
        .RootPath = "LDAP://domain.com"
        .FilterString = "(objectCategory=organizationalUnit)"
        If Not integratedAuth Then
            .UserID = "user"
            .Password = "pass"
        End If
        .PageSize = 5
        .PropertiesToLoad = New String() {"cn", "name", "distinguishedName", "objectCategory"}

        Dim search As New Threading.Thread(AddressOf .StartSearch)
        search.Start()

        Dim statusDialog As frmStatus = New frmStatus
        statusDialog.Show() 'I want to use ShowDialog() but removed it when trouble shooting

    End With
End Sub

Private Delegate Sub displayStatus(ByVal entriesFound As Integer)
Private Sub bkg_ResultFound(ByVal ousFound As Integer) Handles bkg.ResultFound
    Dim display As New displayStatus(AddressOf frmStatus.UpdateOUSearcherStatus)
    Me.Invoke(display, New Object() {ousFound})
End Sub

Private Delegate Sub displayResult(ByVal node As TreeNode)
Private Delegate Sub closeStatusDialog()
Private Sub bkg_SearchCompleted(ByVal ouNodes As TreeNode) Handles bkg.SearchCompleted
    Dim display As New displayResult(AddressOf AddOUToTreeView)
    Me.Invoke(display, New Object() {ouNodes})

    Dim closeStatus As New closeStatusDialog(AddressOf frmStatus.CloseDialog)
    Me.Invoke(closeStatus)

End Sub

Private Sub AddOUToTreeView(ByVal node As TreeNode)
    tvOU.Nodes.Add(node)
    tvOU.TopNode.Expand()
End Sub

frmStatus（这两个函数都不执行任何操作）：

Public Sub CloseDialog()
    'Me.DialogResult = Windows.Forms.DialogResult.OK
    Me.Close()
    'Me.Dispose()
End Sub

Public Sub UpdateOUSearcherStatus(ByVal entriesFound As Integer)
    'lblOUsFound.Text = Format("{0} Organizational Units Found", ousFound)
    lblOUsFound.Text = entriesFound.ToString
End Sub

在我的ADSearcher课程中，我有：

Public Event ResultFound(ByVal ousFound As Integer)
Public Event SearchCompleted(ByVal ouNodes As TreeNode)

并用以下内容提升事件：

RaiseEvent ResultFound(resultCount)
'and
RaiseEvent SearchCompleted(rootNode)

线程：如何更新标签或关闭表单

0 个答案: