VB.NET 在線程里用textbox，提示 線程間操作無(wú)效: 從不是創(chuàng)建控件“TextBox2”的線程訪問(wèn)它

比如在一個(gè)窗體中的代碼如下，在另一個(gè)線程中顯示，隱藏窗口線程中的進(jìn)度條：

成都創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)貴州,十余年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):18980820575

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()?'啟動(dòng)線程運(yùn)行?MyThreadProc過(guò)程

End?Sub

Public?Sub?MyThreadProc()?

Me.Invoke(New?VoidDelegate(AddressOf?StartProgress))?'這個(gè)是在另一個(gè)線程里調(diào)用StartProgress過(guò)程，并在創(chuàng)建窗口的那個(gè)線程里運(yùn)行。參數(shù)是委托類型。me也可以改成控件名。如果直接調(diào)用?StartProgress，那該過(guò)程就在與MyThreadProc同一線程中運(yùn)行，那么StartProgress過(guò)程中修改的控件不是在本線程創(chuàng)建的，就會(huì)出錯(cuò)。

'。。。。。。。。。

Me.Invoke(New?VoidDelegate(AddressOf?ShutProgress))

End?Sub

Public?Sub?ShutProgress()

ProgressBar1.Visible?=?False

End?Sub

Public?Sub?StartProgress()

ProgressBar1.Visible?=?True

End?Sub

'不是還有個(gè)Process控件嗎，好像也是用來(lái)多線程操作的，還沒(méi)研究，

我想用vb.net寫(xiě)個(gè)在線升級(jí)程序，上網(wǎng)找個(gè)代碼，里面AxWebBrowser是什么？

AxWebBowser就是原來(lái)VB6里面那個(gè)COM控件WebBowser.直接在添加引用時(shí)選擇COM一頁(yè)進(jìn)去找就是了

在線升級(jí)一般采用FTP方式.先由客戶端發(fā)起更新請(qǐng)求,服務(wù)器返回現(xiàn)在最新的文件的清單、版本、修改日期等信息，客戶端拿到和自己的文件進(jìn)行比對(duì)，發(fā)現(xiàn)不同的就用FTP方式向服務(wù)器索取最新的，然后替換掉自己的就可以了。

VB.net!!在線等

樓上的太深?yuàn)W了，我都沒(méi)聽(tīng)過(guò)，汗顏，我就用菜鳥(niǎo)做法吧！

Dim a(29), i As Integer

Dim Rnd As New Random

For i = 0 To 29

a(i) = CInt(Rnd.Next(50, 100))

Next

'生成的分?jǐn)?shù)已經(jīng)完成, 存儲(chǔ)在數(shù)組中

Dim count(4) As Integer

Dim j As Integer

For j = 0 To 4

count(j) = 0

Next

For i = 0 To 29

If a(i) = 90 Then

count(0) = count(0) + 1

ElseIf a(i) = 80 And a(i) 90 Then

count(1) = count(1) + 1

ElseIf a(i) = 70 And a(i) 80 Then

count(2) = count(2) + 1

ElseIf a(i) = 60 And a(i) 70 Then

count(3) = count(3) + 1

ElseIf a(i) 60 Then

count(4) = count(4) + 1

End If

Next

Response.Write("等級(jí)A的人數(shù)是：" count(0) "/br")

Response.Write("等級(jí)B的人數(shù)是：" count(1) "/br")

Response.Write("等級(jí)C的人數(shù)是：" count(2) "/br")

Response.Write("等級(jí)D的人數(shù)是：" count(3) "/br")

Response.Write("等級(jí)E的人數(shù)是：" count(4) "/br")

程序我親自調(diào)試過(guò)，都是正確的！ 直接將本部分代碼貼到pageload事件里就行

分享文章：vb.net在線,net vb
網(wǎng)址分享：http://chinadenli.net/article26/hohpcg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營(yíng)銷推廣、網(wǎng)站策劃、網(wǎng)站建設(shè)、App設(shè)計(jì)、搜索引擎優(yōu)化、App開(kāi)發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)