最簡(jiǎn)單的方法是
成都創(chuàng)新互聯(lián)公司是一家專(zhuān)注于網(wǎng)站制作、做網(wǎng)站與策劃設(shè)計(jì),龍泉網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專(zhuān)注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計(jì)領(lǐng)域的專(zhuān)業(yè)建站公司;建站業(yè)務(wù)涵蓋:龍泉等地區(qū)。龍泉做網(wǎng)站價(jià)格咨詢(xún):028-86922220
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False'加入這句代碼就可以在別的線程訪問(wèn)窗體控件了
End Sub
Dim a() As String
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"; });
當(dāng)前題目:vb點(diǎn)虐
跨線程訪問(wèn) 跨線程訪問(wèn)ui
當(dāng)前路徑:http://muchs.cn/article36/ddihcpg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供用戶(hù)體驗(yàn)、網(wǎng)頁(yè)設(shè)計(jì)公司、品牌網(wǎng)站建設(shè)、定制開(kāi)發(fā)、App開(kāi)發(fā)、手機(jī)網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)