Deligate Invoke fra et moduls tråd til Textbox1
Så jeg har lidt et problem med at forstå delegates, og hvordan man bruger dem korrekt.Jeg har bøvlet med dette problem i 2 dage.. jeg laver en form med en TextBox (Textbox1) og prøver at skrive til den fra en tråd fra et Andet modul, i en klasse... det virker helt fint, vis det ligger i samme modul, men ligeså snart det er mellem 2 moduler, så sker der intet?
Form1.vb
Public Class Form1
Public Sub addText(ByVal text)
If Me.TextBox1.InvokeRequired Then
Dim d As delAddtext = New delAddtext(AddressOf addText)
Me.TextBox1.Invoke(d, text)
Else
Me.TextBox1.Text &= text
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim test As Module1.TestClass = New TestClass()
End Sub
End Class
Module1.vb
Delegate Sub delAddtext(ByVal text)
Module Module1
Class TestClass
Public Sub New()
Dim t As Threading.Thread = New Threading.Thread(AddressOf Runner)
t.Start()
End Sub
Public Sub Runner()
For i = 0 To 100
Form1.addText("hej")
Threading.Thread.Sleep(1000)
Next
End Sub
End Class
End Module
hvad gør jeg forkert?