VB.NET 跨线程操作

线程 Thread

多线程的概念参考: 多线程.
多线程的作用,实现程序的并发操作,避免程序的“死机”状态

Me.Invoke()

在多线程中,如果在非UI线程中去操控控件,比如更新TextBox中值,直接使用会报错:线程间操作无效,从不是创建xxx控件的线程访问它。

TextBox.AppendTxt = "增加!"

这是因为VB中禁止跨线程直接访问控件,InvokeRequired是为了解决这个问题而产生的,当一个控件的InvokeRequired属性值为True时,说明有一个创建它以外的线程想访问它。
当我们想要跨线程访问控件时,就需要用到委托, 根据委托的方法类型选择委托的方式 Action 、Func

Sub ShowMsg(ByVal Msg As String) '显示信息
    If Me.InvokeRequired = True Then
        action = AddressOf ShowMsg
        Me.Invoke(action, Msg)
    Else
        TxtMsg.AppendText(Msg)
    End If
End Sub

实现跨线程访问的步骤:

  • ①定义需要实现的方法:例如上文中修改TextBox中的值
  • ②判断相关控件是否收到跨线程通知:Me.InvokeRequired
  • ③实例化委托
  • ④触发委托
    触发委托使用的是Me.Invoke()在拥有控件的基础窗口句柄的线程上(本文为主线程)用指定的自变量列表执行指定委托因为回到了主线程,所以调用showmsg()方法时,判断是否跨线程访问时,显示值为False
    其原型为:
Function Control.Invoke(method as [Delegate] , ParamArray args As Object())

切勿混淆Me.Invoke() 与 Action.Invoke()

Action.Invoke()原型是:(以Dim action As Action为例)

Sub System.Action(Of String).Invoke(Object As String)

上文中的Invoke需要调用系统的Invoke

参考

https://blog.csdn.net/xuemoyao/article/details/8043379

https://www.cnblogs.com/songxingzhu/p/3677307.html

在码农的生活中,很多级码农都有这样的经历,会被一个小小的技术问题拦住,然后进度跟不上了,被老板XXXX一大通了。心情不爽了。 好吧,这个曾经是我遇到拦路虎之一。但事实上不是什么大技术。技术就是一层纸,破了就破了。 这是一个关于如何窗体操作控件或过程的一个例子。比如,你想用窗体A的按键来执行窗体B的文本框变色。 Imports System Imports System.Threading Imports System.Text Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load CheckForIllegalCrossThreadCalls = False '不写这行,会出错,不允许线程的数据写到TextBox1.Text 中去。 Form2.Show() End Sub Private Sub form1_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing ' If runThread.IsAlive = True Then runThread.Abort() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '用的是委托方式 Me.Invoke(New MethodInvoker(AddressOf THREAD2)) End Sub Private Sub THREAD2() Static j As Integer j = j + 1 TextBox1.Text = " 这是 [线程] 操作" & vbCrLf & _ " Button2被点了: " & j & " 次" & vbCrLf & "要求是from2.textbox.text= textbox1.text 。[问题]但为什么不能成功显示呢?" End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Form2.TextBox1.Text = TextBox1.Text End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Static j As Integer j = j + 1 TextBox1.Text = " 这是 [非线程] 操作" & vbCrLf & _ "Button3 点击了: " & j & " 次" & vbCrLf & _ "要求是from2.textbox.text= textbox1.text, 可以成功显示,这个是对的。" End Sub End Class
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值