VB.net Simple Multithreading

J'ai une Private Sub Fill(), qui im essayant d'appel de button1, sous la forme de 

Dim t1 As System.Threading.Thread = New System.Threading.Thread(AddressOf Me.Fill)

t1.Start()

Cependant, lorsque je lance le programme, rien ne se passe. Je clique sur le bouton de nombreuses fois et la fonction n'est pas exécutée. Ce qui donne? Le Remplissage de la fonction est essentiellement de la sortie d'un tas de html à partir d'IE dans une zone de texte, l'exécution de regex et de la sortie des résultats dans une listbox.

Quelqu'un peut-il m'aider à obtenir ce travail? Je vous remercie de l'aide.
EDIT: ci-Dessous, le Remplir la fonction que je suis en train d'essayer de se mettre au travail. La fonction elle-même fonctionne, quand je l'ai essayer sans le multithreading. Mais pas avec elle...

Private Sub Fill()
    Try
        For Each links In ListBox2.Items
            Dim blah As Boolean = False
            Do While blah = False
                Application.DoEvents()
                If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                    blah = True
                    WebBrowser1.Navigate(links)
                    Application.DoEvents()
                    Me.Refresh()
                    'OUTPUT THE REGEX IN RTB
                    Try
                        RichTextBox1.Text = WebBrowser1.Document.Body.OuterHtml
                        RichTextBox1.Update()
                        Application.DoEvents()
                        Me.Refresh()
                        'INTRODUCE REGEX
                        If CheckBox1.Checked = True Then
                            Dim R As New Regex("</H3>&lt;.*gt;")
                            For Each M As Match In R.Matches(RichTextBox1.Text)
                                Dim email As String = M.Value.Substring(9).Split("&;").GetValue(0).ToString
                                ListBox1.Items.Add(email)
                            Next
                        End If
                    Catch ex As Exception
                        Label1.Text = "Error recieved. Program will not stop"
                        Me.Refresh()
                    End Try
                    Application.DoEvents()
                    Me.Refresh()
                End If
            Loop
        Next
    Catch ex As Exception

    End Try
End Sub
InformationsquelleAutor Rudy | 2010-01-11
  1. 3

    Je pense que vous êtes d'avoir des problèmes parce que vous n'êtes pas sur le thread de l'INTERFACE utilisateur lorsque vous essayez d'écrire sur la zone de texte dans la méthode Fill () – cela provoque une exception. Pour résoudre le problème, vous devez basculer vers le thread d'INTERFACE utilisateur à l'aide de BeginInvoke et un délégué comme dans l'exemple ci-dessous:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t1 As System.Threading.Thread = New System.Threading.Thread(AddressOf Me.Fill)
        t1.Start()

End Sub

Private Delegate Sub FillDelegate()

Private Sub Fill()
        If TextBox1.InvokeRequired Then
            TextBox1.BeginInvoke(New FillDelegate(AddressOf Fill))
        Else
            TextBox1.Text = "Worked!!!!"
        End If
End Sub
    • +1 rip est correct, l'INTERFACE utilisateur est sur un autre thread.
    • Mais l'OP est de se plaindre que le Remplissage de la fonction jamais débute, de ne pas de ne pas faire ce qui est nécessaire.
    • En plaignent pas une exception. Utilise probablement Form1.TextBox1.Texte. Cela ne fonctionne pas, Form1 crée un nouveau formulaire. Un invisible.
    • oui, nobugz est droit. Je ne suis pas une exception, ou quoi que ce soit d'autre. Je viens de cliquer sur le bouton et rien ne se passe. J'ai inclus le Remplissage() dans mon post original. S'il vous plaît avoir un coup d'oeil, et offre des suggestions pour qu'il fonctionne avec le multithreading. Merci, pour vos efforts.
    • J'ai juste branché votre méthode Fill() dans ma maquette et il a bien fonctionné! Voici quelques choses que je voudrais faire pour essayer d'épingler ce bas: Commenter tout le code à l'intérieur de Remplissage(). Ne Remplir() appelée à partir de la multi threading appel? Si non, alors le problème réside dans la Fill() code. Donc, je voudrais essayer de cerner le problème de la ligne de code en enlevant le commentaire de chaque ligne de code et de tests. Si Fill() est appelé, puis quelque chose d'autre sur le formulaire doit être dans le chemin. J'avais la bande de la forme vers le bas à la broche ce la suppression des contrôles et de code qui ne sont pas nécessaires Fill().
    InformationsquelleAutor Carl Rippon
  2. 0

    Commencez par placer un point d'arrêt à l'intérieur de la méthode de Remplissage. Je parie qu'il démarre très bien.

    • Lorsque j'appelle la méthode de Remplissage, en commentant le multithreading code, et juste mettre Fill() au lieu de cela, il fonctionne. C'est pourquoi je suis confus quant à pourquoi il ne marche pas avec la MT...
    InformationsquelleAutor AngryHacker
  3. -1

    Assurez-vous que votre gestionnaire de Bouton a encore Handles Button1.Click sur la fin. Parfois, les gens couper et coller le Bouton quelque part sur leur forme, ce qui provoque l'IDE de l'onu-fil et de laisser le gestionnaire "orphelins".

    InformationsquelleAutor Idle_Mind