vb.net中夸线程 vbnet 多线程

VB.net 如何设计多线程运行

Sub Main()

Dim thr As Thread

For Pi As Integer=0 To 4 //启用5线程

MulParams =Pi vbTab sFile vbTab dFile vbTab 1 vbTab DelN vbTab cr vbTab cg vbTab cb vbTab IndexI

GlobalParamas(pi)=MulParams .Split(vbTab)

thr=New Thread(AddressOf MyMulThreadCaller)

thr.Start() //启动多线程进程

Application.DoEvents

Next

End Sub

相关问答

Q1: VB.NET 在线程里用textbox，提示 线程间操作无效: 从不是创建控件“TextBox2”的线程访问它

比如在一个窗体中vb.net中夸线程的代码如下vb.net中夸线程，在另一个线程中显示，隐藏窗口线程中vb.net中夸线程的进度条：

     Public Delegate Sub VoidDelegate() '定义委托类型

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim th1 As New System.Threading.Thread(AddressOf MyThreadProc) '声明线程

        th1.Start() '启动线程运行 MyThreadProc过程

    End Sub

    Public Sub MyThreadProc() 

        Me.Invoke(New VoidDelegate(AddressOf StartProgress)) '这个是在另一个线程里调用StartProgress过程，并在创建窗口的那个线程里运行。参数是委托类型。me也可以改成控件名。如果直接调用 StartProgress，那该过程就在与MyThreadProc同一线程中运行，那么StartProgress过程中修改的控件不是在本线程创建的，就会出错。

       '。。。。。。。。。

        Me.Invoke(New VoidDelegate(AddressOf ShutProgress))

    End Sub

    Public Sub ShutProgress()

        ProgressBar1.Visible = False

   End Sub

    Public Sub StartProgress()

        ProgressBar1.Visible = True

    End Sub

'不是还有个Process控件吗，好像也是用来多线程操作的，还没研究，

Q2: VB.NET跨线程操作控件

最简单的方法是

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

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

End Sub

Q3: 请教VB.net中怎么跨线程调用控件

建立委托。 Me.Invoke——同步委托 或者 Me.BeginInvoke——异步委托 例：Me.Invoke(Sub Textbox.Text="这是一个示例" End Sub)

Q4: vb.net如何跨线程访问控件

用 Control.Invoke 方法

比如

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

Q5: vb.net treeview 跨线程访问

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赋值,举个例子吧,vb.net中夸线程你自己根据情况变通一下

ReDim a(cp.Nodes.Count)

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

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

Next

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

Next

End If

End If

Next

vb.net中夸线程的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet 多线程、vb.net中夸线程的信息别忘了在本站进行查找喔。