Question

vb.net class之间如何传递参数？

因为多线程要传递些参数，所以我定义了一个类来操作多线程，在新线程中，我想对主界面的一些控件进行改变，要怎么操作？

如下，在frm1中有一个textbox控件，我想在线程1中对它的值进行修改，结果不成功，而且在线程1中读取这个textbox控件的值也不成功，需要怎么做呢？谢谢
Public Class frm1
Public sub frm1Sub1()

Dim myTD As New 线程1
Dim TD = New Thread(AddressOf myTD.Sub2)
TD.Start()
End Function
end class

Public Class 线程1
Public sub Sub2()
frm1.textbox1.text="测试"
End Function
end class

Answer 1

线程结束后利用委托生成事件返回，线程应用包括传入和传出参数。

Public Delegate Sub ThreadCallback(value As ThreadResult)
Public Class Form1
Private WithEvents _th_1 As Thread_1
Protected Overrides Sub OnLoad(e As System.EventArgs)
Dim value As ThreadObject
value.Index = 1
Me._th_1 = New Thread_1(Me)
Me._th_1.Run(value)
MyBase.OnLoad(e)
End Sub
Private Sub Thread_1_End(sender As Object, e As ThreadEventArgs) Handles _th_1.ThreadEnd
Me.TextBox1.Text = e.Result.Text
End Sub
End Class
Public Class Thread_1
Public Event ThreadEnd(sender As Object, e As ThreadEventArgs)
Private _control As Control
Sub New(control As Control)
Me._control = control
End Sub
Public Sub Run(value As Object)
Dim th As New Threading.Thread(AddressOf ThreadProc)
th.Start(value)
End Sub
Private Sub ThreadProc(obj As Object)
Dim value As ThreadObject = CType(obj, ThreadObject)
Dim result As ThreadResult = Nothing
If value.Index = 1 Then result.Text = "测试"
Dim callback As New ThreadCallback(AddressOf ThreadInvoke)
_control.Invoke(callback, result)
End Sub
Private Sub ThreadInvoke(value As ThreadResult)
RaiseEvent ThreadEnd(Me, New ThreadEventArgs(value))
End Sub
End Class
Public Structure ThreadObject
Public Index As Integer
'Public Rect As Rectangle
End Structure
Public Structure ThreadResult
Public Text As String
'Public Rect As Rectangle
End Structure
Public Class ThreadEventArgs
Inherits System.EventArgs
Private _result As ThreadResult
Public ReadOnly Property Result As ThreadResult
Get
Return _result
End Get
End Property
Sub New(value As ThreadResult)
Me._result = value
End Sub
End Class

Answer 2

唉，线程间传值真心不顺利啊。
各种方法总都有缺陷。。。

同求啊。