Question

关于vb.net中实现委托的一个问题

窗体form1 中有一个文本框strmsg

程序中加了一个模块 模块中定义子过程main，程序从main（）启动

main（）中打开窗体form1
dim form_strmsg as new strmsg
form_strmsg.ShowDialog()

并启动一个线程连接服务器，接收数据
Dim remoteEP As New IPEndPoint(Net.IPAddress.Parse(SvrIP), SvrPort)
CliSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
CliSocket.Connect(remoteEP)
myThread = New Thread(AddressOf ReciveMsg)
myThread.Start()

处理数据的函数recivemsg中收到数据时修改strmsg的text

具体如何实现委托呢？查了网上搜到的都是在一个窗体中使用Invoke 模块中不可以啊，具体如何写呢？

Answer 1

把UI对象当做参数传入 比如 Sub a(Form As Form1)
之后再用Form.Invoke(你的委托,参数) 就可以即时修改Form中的内容了

追问

功能实现上还是有问题，能麻烦您根据我的描述给个范例吗？

追答

myThread = New Thread(AddressOf ReciveMsg)
myThread.Start(Form1)

Sub recivemsg(Form As Form1)
Dim s As String = "Test"
Form.Invoke(New Action(Sub() strmsg.Text = s))
End Sub

追问

您给的程序倒数第二行Form.Invoke(New Action(Sub() strmsg.Text = s))出错，不能执行，再看看呢？

追答

Module Module1

Sub test(ByVal Form As Form1)
Dim s As String = "??"
Form.Invoke(New Action(Sub() Form.TextBox1.Text = s))
End Sub

End Module
Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim t As New Thread(AddressOf test)
t.Start(Me)
End Sub

End Class

追问

1、程序是从sub main启动的
2、窗体是在main中打开的
3、线程也是在main中启动的

追答

构造函数还没完成 即Form窗体实例还没有创建完成 就去调用Form中的成员 当然会出现错误的