VB里模塊怎么多線程調(diào)用？

加載

噶爾網(wǎng)站建設公司創(chuàng)新互聯(lián),噶爾網(wǎng)站設計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為噶爾超過千家提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站建設要多少錢，請找那個售后服務好的噶爾做網(wǎng)站的公司定做！

TimeOut 5

'讀數(shù)

Text8.Text = Form2.Text1.Text

Text8.Locked = True

TimeOut t2

'讀數(shù)

Text9.Text = Form2.Text1.Text

Text9.Locked = True

'卸載

TimeOut 5

'讀數(shù)

Text10.Text = Form2.Text1.Text

Text10.Locked = True

'讀數(shù)

TimeOut t3

Text11.Text = Form2.Text1.Text

Text11.Locked = True

end sub

‘按鍵2

Private Sub Command3_Click()

Dim i As Integer

For i = 1 To x

'加載

TimeOut t0

'卸載

TimeOut t1

Next i

'加載

TimeOut 5

'讀數(shù)

Text12.Text = Form2.Text1.Text

Text12.Locked = True

TimeOut t2

'讀數(shù)

Text13.Text = Form2.Text1.Text

Text13.Locked = True

'卸載

TimeOut 5

'讀數(shù)

Text14.Text = Form2.Text1.Text

Text14.Locked = True

'讀數(shù)

TimeOut t3

Text15.Text = Form2.Text1.Text

Text15.Locked = True

rs.Open "select*from 數(shù)據(jù)", cn, adOpenKeyset, adLockOptimistic

With rs

.AddNew

.Fields("序號") = Text2.Text

.Fields("加載5S后讀數(shù)") = Text12.Text

.Fields("加載T2時讀數(shù)") = Text13.Text

.Fields("卸載5S后回零讀數(shù)") = Text14.Text

.Fields("卸載T3后回零讀數(shù)") = Text15.Text

.Update

End With

rs.Close

Command3.Caption = "開始"

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

vb.net中如何結束一個線程

vb.net中如何結束一個線程

一般而言,如果您想終止一個線程,您可以使用System.Threading.Thread類的Abort方法. 例如:

Dim worker As ThreadStart = New ThreadStart(AddressOf workerthreadmethod)

Dim t As Thread = New Thread(worker)

t.Start()

MessageBox.Show("Wait for a while for the thread to start.")

MessageBox.Show(t.ThreadState.ToString())

t.Abort()

MessageBox.Show(t.ThreadState.ToString())

t.Join()

MessageBox.Show(t.ThreadState.ToString())

當然,在調(diào)用Abort方法后,線程并不是立刻終止,要等線程的所有finally快中的代碼完成后才會完全終止. 所以在主線程中可以用Join方法來同步,當線程還未完全終止時,t.Join()將處于等待,直到t線程完全結束后再繼續(xù)執(zhí)行后面的語句。

Abort方法是會導致線程跳出一個異常錯誤的，你需要在代碼中捕獲該異常。下面是一個比較完整的VB.NET線程例子：

Imports System

Imports System.Threading

Public Class MyTestApp

Public Shared Sub Main()

Dim t As New Thread(New ThreadStart(AddressOf MyThreadMethod))

'Start the thread

t.Start()

MsgBox("Are you ready to kill the thread?")

'Kill the child thread and this will cause the thread raise an exception

t.Abort()

' Wait for the thread to exit

t.Join()

MsgBox("The secondary thread has terminated.")

End Sub

Shared Sub MyThreadMethod()

Dim i As Integer

Try

Do While True

Thread.CurrentThread.Sleep(1000)

Console.WriteLine("This is the secondary thread running.")

Loop

Catch e As ThreadAbortException

MsgBox("This thread is going to be terminated by the Abort method in the Main function")

End Try

End Sub

End Class

Thread.Abort()方法用來永久銷毀一個線程，而且將拋出ThreadAbortException異常。使終結的線程可以捕獲到異常但是很難控制恢復，僅有的辦法是調(diào)用Thread.ResetAbort()來取消剛才的調(diào)用，而且只有當這個異常是由于被調(diào)用線程引起的異常。因此，A線程可以正確的使用Thread.Abort()方法作用于B線程，但是B線程卻不能調(diào)用Thread.ResetAbort()來取消Thread.Abort()操作。

在vb.net中，多線程如何使用

Sub Main() Dim thr As New Thread(AddressOf 循環(huán)) thr.Start("a") End Sub Sub 循環(huán)(a() As String) '這里隨你干什么循環(huán)也行 For Each i As String In a MsgBox(i) Next End Sub

VB.NET 簡單多線程

多線程一般是不推薦用的，因為線程之間如果有共享資源的話會引起競爭，需要加鎖處理；而且線程間沒有時序關系，所以你在調(diào)試中可能會出現(xiàn)異步處理結束順序與開始處理順序不一致的情況（我在調(diào)試中已經(jīng)發(fā)現(xiàn)該問題）。

針對你提出的這個問題，采用了多線程處理，利用的是BackgroundWorker也就是異步處理控件進行了處理。

代碼已經(jīng)經(jīng)過調(diào)試通過。歡迎交流，如有問題，留下QQ或其他聯(lián)系方式。

代碼如下，并附程序截圖。

‘---------------------------------------------------

Imports?System.ComponentModel?'導入異步控件命名空間

Public?Class?Form1

Private?howmany?As?Integer?=?10

Private?AnalysisNumber(0?To?howmany?-?1)?As?BackgroundWorker

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

ListBox1.Items.Clear()

creatNewBackgroundWorker()

addHandle()

startWork()

End?Sub

Private?Sub?creatNewBackgroundWorker()

For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1

AnalysisNumber(i)?=?New?BackgroundWorker

Next

End?Sub

Private?Sub?addHandle()

For?i?As?Integer?=?0?To?AnalysisNumber.Length?-?1

AddHandler?AnalysisNumber(i).DoWork,?AddressOf?AnalysisNumber_DoWork

AddHandler?AnalysisNumber(i).RunWorkerCompleted,?AddressOf?AnalysisNumber_RunWorkerCompleted

Next

End?Sub

Private?Sub?startWork()

For?i?As?Integer?=?0?To?9

Dim?temp(0?To?9)?As?Integer

For?j?As?Integer?=?1?To?10

temp(j?-?1)?=?10?*?i?+?j

Next

AnalysisNumber(i).RunWorkerAsync(temp)

Next

End?Sub

Private?Sub?AnalysisNumber_DoWork(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.DoWorkEventArgs)

Dim?data?As?Integer()

data?=?CType(e.Argument,?Integer())

Dim?temp?As?Integer

For?i?As?Integer?=?0?To?data.Length?-?1

temp?=?data(i)

data(i)?=?temp?*?temp

Next

e.Result?=?data

End?Sub

Private?Sub?AnalysisNumber_RunWorkerCompleted(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.RunWorkerCompletedEventArgs)

Dim?data?As?Integer()

data?=?CType(e.Result,?Integer())

For?i?As?Integer?=?0?To?data.Length?-?1

ListBox1.Items.Add(data(i))

Next

End?Sub

End?Class

vb.net里如何設置多線程?

首先，你把你那些要運行很久的過程。盡量放在一個過程中。

因為線程只能是過程，不能使函數(shù)，沒有返回值的。

然后，在某個事件下這樣寫：

**這里我假設你的那個很就的過程叫做 sub aaa()

調(diào)用如下：

Dim mythread As New System.Threading.Thread(AddressOf aaa)

mythread.Start()

***********

這樣就是定義一個線程，名字叫 mythread，這個線程會運行aaa這個過程。

start 就是讓線程運行。

文章名稱：vb.net模塊內(nèi)線程,vb創(chuàng)建線程的實例
鏈接地址：http://chinadenli.net/article28/dsicejp.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、做網(wǎng)站、網(wǎng)站維護、網(wǎng)站建設、定制網(wǎng)站、響應式網(wǎng)站

廣告

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