vb.net 怎么結(jié)束進(jìn)程

好像不難吧？

創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)與策劃設(shè)計(jì),重慶網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十余年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:重慶等地區(qū)。重慶做網(wǎng)站價(jià)格咨詢:13518219792

我放進(jìn)了Button1的Click事件里。

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

On Error GoTo Errmessages '在做系統(tǒng)操作時(shí)加排錯(cuò)標(biāo)簽是個(gè)好習(xí)慣

Dim TargetName As String = "ibmdict" '存儲(chǔ)進(jìn)程名為文本型，注：進(jìn)程名不加擴(kuò)展名

Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進(jìn)程名獲取進(jìn)程

Dim TargetPath As String '存儲(chǔ)進(jìn)程路徑為文本型

If TargetKill.Length 1 Then '判斷進(jìn)程名的數(shù)量，如果同名進(jìn)程數(shù)量在2個(gè)以上，用For循環(huán)關(guān)閉進(jìn)程。

For i = 0 To TargetKill.Length - 1

TargetPath = TargetKill(i).MainModule.FileName

TargetKill(i).Kill()

Next

ElseIf TargetKill.Length = 0 Then '判斷進(jìn)程名的數(shù)量，沒有發(fā)現(xiàn)進(jìn)程直接彈窗。不需要的，可直接刪掉該If子句

MsgBox("沒有發(fā)現(xiàn)進(jìn)程！")

Exit Sub

ElseIf TargetKill.Length = 1 Then '判斷進(jìn)程名的數(shù)量，如果只有一個(gè)，就不用For循環(huán)

TargetKill(0).Kill()

End If

MsgBox("已終止" TargetKill.Length "個(gè)進(jìn)程") '彈窗提示已終止多少個(gè)進(jìn)程

Errmessages: ‘定義排錯(cuò)標(biāo)簽

If Err.Description Nothing Then ’判斷有無(wú)錯(cuò)誤，如果有，則 ↓

MsgBox(Err.Description) '當(dāng)出現(xiàn)錯(cuò)誤時(shí)，彈窗提示

End If

End Sub

可根據(jù)需要自行修改，這個(gè)備注夠完善了吧？不會(huì)的再Hi我。

求大神指導(dǎo)VB.net 線程 ThreadState 的使用方法 怎么獲取線程狀態(tài),是否被掛起堵塞停止等等

用time控件啊，獲取threadstate后，按指定時(shí)間間隔規(guī)定向界面刷新，線程必須是全局變量

用一個(gè)有退出條件的無(wú)限循環(huán)的sub也行。

線程開始就觸發(fā)該過程，用無(wú)限循環(huán)來(lái)刷新狀態(tài)，線程完成即退出無(wú)限循環(huán)。局部變量的線程也可以用這種方式。

不過用法要正確，否則會(huì)出問題。

VB.net 多線程，導(dǎo)致無(wú)法響應(yīng)

用

t.Suspend() 這個(gè)是掛起線程。是一個(gè)異步方法。

t.Sleep 我看了是一個(gè)同步方法。要等這個(gè)方法運(yùn)行完了才繼續(xù)下一步。

這和from.show和 from.showdiaglog區(qū)別差不多！

至于疑問2我也沒找到原因。

運(yùn)行VS2013 的VB.NET程序時(shí)錯(cuò)誤（其他信息: 線程正在運(yùn)行或被終止；它無(wú)法重新啟動(dòng)。）怎么辦？

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

For?s?=?1?To?11?Step?10

t1?=?New?Threading.Thread(AddressOf?setA)

t2?=?New?Threading.Thread(AddressOf?setB)

t3?=?New?Threading.Thread(AddressOf?setC)

t4?=?New?Threading.Thread(AddressOf?setD)

t5?=?New?Threading.Thread(AddressOf?setE)

t6?=?New?Threading.Thread(AddressOf?setF)

t7?=?New?Threading.Thread(AddressOf?setG)

t8?=?New?Threading.Thread(AddressOf?setH)

t9?=?New?Threading.Thread(AddressOf?setI)

t10?=?New?Threading.Thread(AddressOf?setJ)

錯(cuò)誤》》》???t1.Start()

t2.Start()

t3.Start()

t4.Start()

t5.Start()

t6.Start()

t7.Start()

t8.Start()

t9.Start()

t10.Start()

Next

同樓上，每個(gè)Thread只能運(yùn)行一次

vb.net 如何強(qiáng)制終止子線程？

使用api

Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long

vb.net 中我現(xiàn)實(shí)現(xiàn),線程的暫停與開始!請(qǐng)教高手一下!請(qǐng)留下你的聯(lián)系方式!

在你給textbox設(shè)置text值后直接使用sleep()，因?yàn)樵谑褂胹leep（）的時(shí)候，當(dāng)前的主進(jìn)程是被掛起了，也就是說(shuō)設(shè)置的text屬性后，還來(lái)不及在屏幕上顯示lbi的內(nèi)容就執(zhí)行了sleep，所以在執(zhí)行sleep()掛起主進(jìn)程前，你必須讓textbox的內(nèi)容先顯示出來(lái)再執(zhí)行sleep，可嘗試使用下DoEvents（）將控制權(quán)暫時(shí)移交一下，讓系統(tǒng)有時(shí)機(jī)來(lái)刷新textbox里面的內(nèi)容，讓系統(tǒng)有機(jī)會(huì)來(lái)刷新textbox里面的內(nèi)容。由于我沒有安裝visual studio的開發(fā)環(huán)境，無(wú)法調(diào)試代碼的正確性，但我記得我以前也遇到此類問題，采取的DoEvents()的方式。你可嘗試下。

lbl.Visible = True

Sleep(5000)

lbl.Text = "我是中國(guó)人"

lbi.Refresh '刷新一下lbi，具體你可以調(diào)試下，看需要不需要這條

Application.DoEvents() ‘設(shè)置完lbi的text屬性，將操作權(quán)限釋放一下，讓系統(tǒng)有機(jī)會(huì)顯示lbi的內(nèi)容。

Sleep(3000) ’待顯示后，再執(zhí)行掛起

lbl.Text = "我愛自己的祖國(guó)"

lbi.Refresh ‘同上

Application.DoEvents() ’同上

DoEvents（）的功能解釋是：轉(zhuǎn)讓控制權(quán)，以便讓操作系統(tǒng)處理其它的事件。

如執(zhí)行一次不行，可嘗試重復(fù)多執(zhí)行幾次，特別在循環(huán)語(yǔ)句中，對(duì)于窗口的刷新顯示DoEvents特別有用，但是在循環(huán)體內(nèi)使用了DoEvents后，當(dāng)前進(jìn)程的執(zhí)行效率會(huì)有大幅降低，因?yàn)橐平豢刂茩?quán)必然損失當(dāng)前進(jìn)程的運(yùn)行效率。