vb.net与winform中的线程

我需要一些更多的帮助。我是线程的noob，我正在申请
vb.net。
基本上，我的应用程序所做的是在Lotus Notes中搜索我需要的信息
，而它正在搜索信息，我需要一个Gif来显示一些
动画。由于限制原因，我不想使用backgroundworker。所以我需要
使用线程。vb.net与winform中的线程

这是我的代码有


    Private Sub btnRechercheUtilisateur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechercheUtilisateur.Click 
     Dim t As New Thread(New ThreadStart(AddressOf RunInThread)) 
     t.Start() 
    End Sub


Public Delegate Sub MyDelegate(ByVal arg As Integer) 
    Private Sub RunInThread() 
     Dim delInstatnce As New MyDelegate(AddressOf RechercheUtilisateurView) 
     Me.BeginInvoke(delInstatnce) 
     imgLoading.Visible = True 
     'Add your code that needs to be executed in separate thread 
     'except UI updation 
    End Sub


Public Sub RechercheUtilisateurView() 
     'Vérifie si la session est valide 
     If notes.IsSessionValide = False Then 
      LoginPanel.Visible = True 
      Exit Sub 
     End If 

'Vide la liste 
    lstSearchUsager.Items.Clear() 
    lstGroupesUsager.Items.Clear() 

    'Uncheck checbox 
    chkGroupesUsager.Checked = False 

    'UI Setting pour le loading 
    ' StartLoadingImg(172, 152) 
    txtSearchUsager.Enabled = False 
    btnRechercheUtilisateur.Enabled = False 

    'Ajoute les éléments de la liste 
    Dim users As List(Of UsagerNotes) = notes.GetUsagersByKeyword(txtSearchUsager.Text) 

    'Vérifier si un résultat a été retourné 
    If users.Count <> 0 Then 
     Dim rows(users.Count - 1) As ListViewItem 
     Dim counter As Integer = 0 
     'Loop d'ajout d'utilisateur au ListView 
     For Each u In users 
      Dim row As New ListViewItem 
      row.Text = u.nomCanonique 
      row.ImageKey = "1" 
      rows(counter) = row 
      counter += 1 
     Next 
     lstSearchUsager.Items.AddRange(rows) 

    Else 

     AddEvent("Aucun résultat trouvé pour la recherche utilisateur: " + txtSearchUsager.Text, "21") 

    End If 

     txtSearchUsager.Enabled = True 
    btnRechercheUtilisateur.Enabled = True 
    End Sub

当我使用调试器，我的代码将冻结大约txtSearchUsager.Enabled =假任何人都可以请帮助我，我是conf使用

感谢 Gibit

来源

2010-12-10 GIBIT

你指的是什么“约束理由”？这看起来像是一个近乎完美的BackgroundWorker用法。（不要与你的决定争辩，只是试图理解它，所以我可以用这个问题来解决问题） – 2010-12-10 15:55:20

哦，只是我的客户的一些限制。事情是我的应用程序可能会在笔记中进行更多的搜索，并且我们不想为每个搜索添加一个后台工作程序。我们将使用更多线程 – GIBIT 2010-12-10 15:59:55

多个后台工作者有什么问题？我预计它仍然是管理多个搜索的最简单方法。如果你有VB 2010，你可以声明事件处理程序内联为lambda表达式。一个例程可以保存一个搜索的所有代码。 – MarkJ 2010-12-11 12:38:31

您必须包括所有的函数调用（包括改变文本框的Enabled属性），在一个单独的功能及调用这个函数在有Me.Invoke或Me.BeginInvoke的委托。

来源

2010-12-10 15:57:00 wickie79

因此，所有修改我的UI的代码应该通过委托调用？ – GIBIT 2010-12-10 15:58:32

vb.net与winform中的线程

回答

相关问题