vb.net中如何結(jié)束一個(gè)線程

vb.net中如何結(jié)束一個(gè)線程

站在用戶的角度思考問(wèn)題，與客戶深入溝通，找到平遙網(wǎng)站設(shè)計(jì)與平遙網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：做網(wǎng)站、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、申請(qǐng)域名、虛擬空間、企業(yè)郵箱。業(yè)務(wù)覆蓋平遙地區(qū)。

一般而言,如果您想終止一個(gè)線程,您可以使用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())

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

Abort方法是會(huì)導(dǎo)致線程跳出一個(gè)異常錯(cuò)誤的，你需要在代碼中捕獲該異常。下面是一個(gè)比較完整的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()方法用來(lái)永久銷毀一個(gè)線程，而且將拋出ThreadAbortException異常。使終結(jié)的線程可以捕獲到異常但是很難控制恢復(fù)，僅有的辦法是調(diào)用Thread.ResetAbort()來(lái)取消剛才的調(diào)用，而且只有當(dāng)這個(gè)異常是由于被調(diào)用線程引起的異常。因此，A線程可以正確的使用Thread.Abort()方法作用于B線程，但是B線程卻不能調(diào)用Thread.ResetAbort()來(lái)取消Thread.Abort()操作。

VB.net類的問(wèn)題?報(bào)錯(cuò)說(shuō)是應(yīng)為語(yǔ)句結(jié)束。一處在Get_SumMoney()一處在Conn() 求解呀

這樣看是看不出來(lái)的，因?yàn)椴皇沁壿嬓藻e(cuò)誤，是運(yùn)行的時(shí)候報(bào)錯(cuò)吧。交給你一個(gè)方法，在有問(wèn)題的哪個(gè)函數(shù)第一行設(shè)置斷點(diǎn)，然后運(yùn)行程序，程序就會(huì)停在斷點(diǎn)處，然后按f8鍵，一行一行運(yùn)行，看看哪行出了問(wèn)題。在出問(wèn)題的行那里，查看前后的變量值

如果是沒(méi)運(yùn)行就報(bào)錯(cuò)，

dt Get_SumMoney() 這里有錯(cuò)誤 vb.net 函數(shù)返回類型應(yīng)該是類似這樣 Get_SumMoney() as dt

conn那里也是這樣的語(yǔ)法錯(cuò)誤。 你這個(gè)是不是從C# 變換過(guò)來(lái)的代碼啊

vb應(yīng)為語(yǔ)句結(jié)束 急求~~~

針對(duì)樓上[lclhunter]的回答：

第一，題主應(yīng)該是少貼了最上面的 Public Class Form1 之類的代碼。

第二，Dim TextBox1.Text As Integer 確實(shí)不是正常人能理解的。

Dim xxx As yyy 這句是聲明一個(gè) yyy 類型的名字為 xxx 的變量。

而 TextBox1.Text 是一個(gè)屬性值，是不能作為變量名的。

【附：VB變量命名規(guī)則】

1、只能由字母、數(shù)字和下劃線組成。

2、第一個(gè)字符必須是英文字母，最后一個(gè)字符可以是類型說(shuō)明符。

3、總字?jǐn)?shù)不能超過(guò)255個(gè)（超過(guò)255了只能識(shí)別前255位）。

4、不能是保留字（所謂保留字就是C語(yǔ)言的關(guān)鍵字，VB 本身自已已經(jīng)使用了，比如 Sub、If、End等等）。

5、不區(qū)分大小寫。

TextBox1.Text 違反了第1、4兩條規(guī)則。

同意[dwlad]的觀點(diǎn)，從代碼上看根本不理解題主的意圖是啥。

猜測(cè)一下有可能是：

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

Dim?a?As?Integer?=?Val(TextBox1.Text)

TextBox1.Text?=?a?+?1

End?Sub

最后告訴題主，這是 VB.NET 不是 VB。