vb.net跨线程调用实例

前端之家收集整理的这篇文章主要介绍了vb.net跨线程调用实例前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

'本例是一个窗口在调用serialport时,回到主线程调用textBox控件

’这个是在一个过程中的片段,首先,第一步 创建线程

If SerialPort1.BytesToRead <> 0 Then@H_404_13@ Rtxt = SerialPort1.Read(Rbyt,1)@H_404_13@ Dim Nthread As New Threading.Thread(AddressOf ShowTextInvoke)@H_404_13@ Nthread.Start()@H_404_13@ End If

'第二步 调用过程

Public Sub ShowTextInvoke()@H_404_13@ Me.Invoke(New VoidDelegate(AddressOf ShowText))@H_404_13@ End Sub

'第三步 声明委托实例

Public Delegate Sub VoidDelegate()

'第四步调用真正的过程

Public Sub ShowText()@H_404_13@ Me.Rtext.Text = Rtxt

End Sub

猜你在找的VB相关文章