vb.net跨线程传值 vbnet timer多线程

VB.NET Public Sub 窗体互相传值

Public Sub checkInjectionWithNoKeyword()

城固网站建设公司创新互联建站,城固网站设计制作，有大型网站制作公司丰富经验。已为城固成百上千提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的城固做网站的公司定做！

Dim injection_Type As String = My.Forms.SqlInjection.ComboBox_Type.Text.Trim()

Dim my_checkUrl As String = My.Forms.SqlInjection.ComboBox_Url.Text.Trim()

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

最简单的方法是

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

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

End Sub

网站标题：vb.net跨线程传值 vbnet timer多线程
URL分享：http://6mz.cn/article/dohdgjj.html