vb.net 进程通信 vbnet线程

转载

mob6454cc68959c 2024-01-25 20:34:27

文章标签 vb.net 进程通信 UI System 控件 文章分类 .Net 后端开发

VisualBasic作为易学易用的编程语言，为多少程序员所仰慕，VB历经多年的发展，从大家都熟知的VB6到如今的VB.NET，虽然这两个差别很大= =
本文主要讲述“线程”这么一个东西。

线程是程序中一个单一的顺序控制流程。在单个程序中同时运行多个线程完成不同的工作，称为多线程。

为什么使用线程？
　我们一般编写的程序代码总是从main函数(控制台)，Sub New()(类的构造函数)，Load(窗体加载)开始执行的，从上往下，执行每一个调用，有明确的先后顺序，一个sub或者function完成之后，才进行下一个sub或者function。的确，这样程序的逻辑性很强，每个过程排队，依次来。
　但是，这样必然会在一定程度上降低应用程序的运行效率，如果某个过程代码很长，所需要的时间长，那么程序在执行这个过程的时候会出现“假死”，停止响应用户操作，知道过程全部执行完毕。
　关于“假死”：我们编写的Windows应用程序有一个UI线程，用于接收和响应用户界面的操作。而我们编写的代码一般都是基于这个线程的，位于单一线程中的代码也是从上往下依次进行，所以当UI线程中某一过程花费的时间很长时，界面不再响应，因为它很忙，这时就出现了长时间的停顿，也就是“假死”，而用户会认为这很卡。
　因此，如果我们在UI线程的基础上另开一个线程，让代码分支执行的话，就不会卡了。但同时，我们又不得不面临这样一个问题：万一线程执行的过程，和UI执行的过程有冲突怎么办？当你在非UI线程中调用UI线程中的某一个控件，设置它的某某属性，这时你会收到这样一条错误：
　→线程间操作无效: 从不是创建控件“xxx”的线程访问它。
怎么办啊？别急，后文会有解释。

废话不多说，读者跟我一起来。

首先，我们来体验一下使用线程带来的好处和问题。

1.打开VS(我的是2010版本)。

2.创建Windows窗体应用程序随便弄个名。

3.在窗体上放两个控件，Label1个Button1，如图，其他属性默认：

vb.net 进程通信 vbnet线程_控件

我们想实现这样一个功能：

在Label1上面动态显示数字，从0~9000，我们希望看到数字的变化。

创建如下代码：

Public Class Form1     
 　Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click     
 　　　　test()      
 　End Sub     

 　Private Sub test()     
 　　　　For i = 0 To 9000     
 　　　　　Label1.Text = i.ToString     
 　　　　Next      
 　End Sub     
 End Class

意思就是点击按钮，进入test过程中，通过For循环，依次显示数字，真是这样吗？运行试试...

不出我意料的话，最后直接显示的是9000，中间还卡了一下。

vb.net 进程通信 vbnet线程_控件_02

后面的0都不在了。。

那么，我们要显示动态变化又怎么办呢？

把上面的代码修改一下，使用线程。

Imports System.Threading ’导入命名空间     

 Public Class Form1     
 Dim t As Thread ’定义全局线程变量     

 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click     
 t = New Thread(AddressOf test) ’创建线程，使它指向test过程，注意该过程不能带有参数     
 t.Start() ’启动线程     
 End Sub     

 Private Sub test()     
 For i = 0 To 9000     
 Label1.Text = i.ToString     
 Next     
 t.Abort()     
 End Sub     
 End Class

再次运行，点击确定，出错啦？什么错？如图：

vb.net 进程通信 vbnet线程_vb.net 进程通信_03

由于是从一个新的线程调用UI线程中窗体控件，所以这个做法很危险，你直接被拒绝了。

有一个解决办法，就是让编译器不进行跨线程检查。

在Load代码第一行加一句：

CheckForIllegalCrossThreadCalls = False

vb.net 进程通信 vbnet线程_System_04

再次运行程序，就不会有错了，你还能看见动态变化，并且没有“假死”：

vb.net 进程通信 vbnet线程_vb.net 进程通信_05

如上就是线程的好处。

但是：

CheckForIllegalCrossThreadCalls = False

一句跨线程调用Windows窗体控件就万能了吗？毕竟这种方式很不优秀。

我们再创建一个窗体Form2，放一个Label0，如图：

vb.net 进程通信 vbnet线程_System_06

我希望通过Form1的按钮，让Form2中的Label0显示0~9000.

代码如下：

Form1：     

 Imports System.Threading     
 Public Class Form1     
 　　Dim t As Thread     
 　　Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load     
 　　　Form2.Show()'启动时显示Form2     
 End Sub     

 　　Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click     
 　　　CheckForIllegalCrossThreadCalls = False     
 　　　t = New Thread(AddressOf test)     
 　　　t.Start()     
 　　End Sub     

 　　Private Sub test()     
 　　　For i = 0 To 9000     
 　　　　　Form2.Label0.Text = i.ToString '注意这里改了     
 　　　Next     
 　　　t.Abort()     
 　　End Sub     
 End Class     
 //运行试试，咦？Form2里面怎么没变？

难道没有执行那句代码？

添加断点看看？

vb.net 进程通信 vbnet线程_System_07