Dim a() As String
我們擁有10多年網(wǎng)頁設(shè)計(jì)和網(wǎng)站建設(shè)經(jīng)驗(yàn),從網(wǎng)站策劃到網(wǎng)站制作,我們的網(wǎng)頁設(shè)計(jì)師為您提供的解決方案。為企業(yè)提供成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、微信開發(fā)、微信小程序定制開發(fā)、手機(jī)網(wǎng)站制作、H5場景定制、等業(yè)務(wù)。無論您有什么樣的網(wǎng)站設(shè)計(jì)或者設(shè)計(jì)方案要求,我們都將富于創(chuàng)造性的提供專業(yè)設(shè)計(jì)服務(wù)并滿足您的需求。
For Each Node1 As TreeNode In TreeView1.Nodes
If Node1.Text = "SiteStructure" Then '如果根節(jié)點(diǎn)=SiteStructure 則Node1.Name改為Node1.Text
Dim cp As TreeNode = TreeView1.Nodes(0) '根節(jié)點(diǎn)
'先要給a賦值,舉個(gè)例子吧,你自己根據(jù)情況變通一下
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
用 Control.Invoke 方法
比如
label1.Invoke(delegate(){ label1.Text = "New Text"; });
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() //啟動(dòng)多線程進(jìn)程
Application.DoEvents
Next
End Sub
多線程是用于處理復(fù)雜項(xiàng)目的
打個(gè)比方
你的主程序線程A中有個(gè)循環(huán),由于代碼是一行行走的,所以循環(huán)結(jié)束前下面的代碼無法運(yùn)行,而此時(shí)主界面的反應(yīng)就類似卡死的樣子,你點(diǎn)擊按鈕也沒有反應(yīng),因?yàn)橹骶€程在忙著循環(huán)呢,所以對按鈕的事件代碼要等待了,如果要避免這種情況,就要用到多線程,另開一個(gè)新線程專門用來執(zhí)行循環(huán)代碼,主界面就不會(huì)卡死了,只要在循環(huán)結(jié)束后將結(jié)果傳回主線程調(diào)用就可以了,再復(fù)雜點(diǎn)要涉及到委托,控制了
按你的要求其實(shí)你的代碼用不到多線程,只要把sleep放到兩段代碼中間就可以了。
新線程結(jié)束用thread.abort()
建立委托。 Me.Invoke——同步委托 或者 Me.BeginInvoke——異步委托 例:Me.Invoke(Sub Textbox.Text="這是一個(gè)示例" End Sub)
最簡單的方法是
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False'加入這句代碼就可以在別的線程訪問窗體控件了
End Sub