vb.net允许跨线程 vbnet线程池

VB.NET跨线程操作控件

最简单的方法是

创新互联2013年至今，先为江城等服务建站，江城等地企业，进行企业商务咨询服务。为江城企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Control.CheckForIllegalCrossThreadCalls = False'加入这句代码就可以在别的线程访问窗体控件了

End Sub

Dim a() As String

For Each Node1 As TreeNode In TreeView1.Nodes

If Node1.Text = "SiteStructure" Then '如果根节点=SiteStructure 则Node1.Name改为Node1.Text

Dim cp As TreeNode = TreeView1.Nodes(0) '根节点

'先要给a赋值,举个例子吧,你自己根据情况变通一下

ReDim a(cp.Nodes.Count)

For i As Integer = 0 To a.Length - 1

a(i) = TreeView1.Nodes(i).Text

If a.Length = 1 Then

cp.Nodes("root").Nodes.Add(a(0))

Application.DoEvents()

Else

For k1 As Integer = 0 To a.Length - 1

Dim tc As New TreeNode(a(k1))

cp.Nodes.Add(tc)

Application.DoEvents()

cp = tc

End If

用 Control.Invoke 方法

比如

label1.Invoke(delegate(){ label1.Text = "New Text"; });

建立委托。

Me.Invoke——同步委托

或者 Me.BeginInvoke——异步委托

例：Me.Invoke(Sub

Textbox.Text="这是一个示例"

End Sub)

名称栏目：vb.net允许跨线程 vbnet线程池
标题URL：http://bjjierui.cn/article/doehcsi.html