新聞中心
vb.net 怎么結(jié)束進程
好像不難吧?
創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站制作、成都網(wǎng)站設計與策劃設計,重慶網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設十余年,網(wǎng)設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:重慶等地區(qū)。重慶做網(wǎng)站價格咨詢:13518219792
我放進了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)操作時加排錯標簽是個好習慣
Dim TargetName As String = "ibmdict" '存儲進程名為文本型,注:進程名不加擴展名
Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進程名獲取進程
Dim TargetPath As String '存儲進程路徑為文本型
If TargetKill.Length 1 Then '判斷進程名的數(shù)量,如果同名進程數(shù)量在2個以上,用For循環(huán)關閉進程。
For i = 0 To TargetKill.Length - 1
TargetPath = TargetKill(i).MainModule.FileName
TargetKill(i).Kill()
Next
ElseIf TargetKill.Length = 0 Then '判斷進程名的數(shù)量,沒有發(fā)現(xiàn)進程直接彈窗。不需要的,可直接刪掉該If子句
MsgBox("沒有發(fā)現(xiàn)進程!")
Exit Sub
ElseIf TargetKill.Length = 1 Then '判斷進程名的數(shù)量,如果只有一個,就不用For循環(huán)
TargetKill(0).Kill()
End If
MsgBox("已終止" TargetKill.Length "個進程") '彈窗提示已終止多少個進程
Errmessages: ‘定義排錯標簽
If Err.Description Nothing Then ’判斷有無錯誤,如果有,則 ↓
MsgBox(Err.Description) '當出現(xiàn)錯誤時,彈窗提示
End If
End Sub
可根據(jù)需要自行修改,這個備注夠完善了吧?不會的再Hi我。
求大神指導VB.net 線程 ThreadState 的使用方法 怎么獲取線程狀態(tài),是否被掛起堵塞停止等等
用time控件啊,獲取threadstate后,按指定時間間隔規(guī)定向界面刷新,線程必須是全局變量
用一個有退出條件的無限循環(huán)的sub也行。
線程開始就觸發(fā)該過程,用無限循環(huán)來刷新狀態(tài),線程完成即退出無限循環(huán)。局部變量的線程也可以用這種方式。
不過用法要正確,否則會出問題。
VB.net 多線程,導致無法響應
用
t.Suspend() 這個是掛起線程。是一個異步方法。
t.Sleep 我看了是一個同步方法。要等這個方法運行完了才繼續(xù)下一步。
這和from.show和 from.showdiaglog區(qū)別差不多!
至于疑問2我也沒找到原因。
運行VS2013 的VB.NET程序時錯誤(其他信息: 線程正在運行或被終止;它無法重新啟動。)怎么辦?
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)
錯誤》》》???t1.Start()
t2.Start()
t3.Start()
t4.Start()
t5.Start()
t6.Start()
t7.Start()
t8.Start()
t9.Start()
t10.Start()
Next
同樓上,每個Thread只能運行一次
vb.net 如何強制終止子線程?
使用api
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
vb.net 中我現(xiàn)實現(xiàn),線程的暫停與開始!請教高手一下!請留下你的聯(lián)系方式!
在你給textbox設置text值后直接使用sleep(),因為在使用sleep()的時候,當前的主進程是被掛起了,也就是說設置的text屬性后,還來不及在屏幕上顯示lbi的內(nèi)容就執(zhí)行了sleep,所以在執(zhí)行sleep()掛起主進程前,你必須讓textbox的內(nèi)容先顯示出來再執(zhí)行sleep,可嘗試使用下DoEvents()將控制權暫時移交一下,讓系統(tǒng)有時機來刷新textbox里面的內(nèi)容,讓系統(tǒng)有機會來刷新textbox里面的內(nèi)容。由于我沒有安裝visual studio的開發(fā)環(huán)境,無法調(diào)試代碼的正確性,但我記得我以前也遇到此類問題,采取的DoEvents()的方式。你可嘗試下。
lbl.Visible = True
Sleep(5000)
lbl.Text = "我是中國人"
lbi.Refresh '刷新一下lbi,具體你可以調(diào)試下,看需要不需要這條
Application.DoEvents() ‘設置完lbi的text屬性,將操作權限釋放一下,讓系統(tǒng)有機會顯示lbi的內(nèi)容。
Sleep(3000) ’待顯示后,再執(zhí)行掛起
lbl.Text = "我愛自己的祖國"
lbi.Refresh ‘同上
Application.DoEvents() ’同上
DoEvents()的功能解釋是:轉(zhuǎn)讓控制權,以便讓操作系統(tǒng)處理其它的事件。
如執(zhí)行一次不行,可嘗試重復多執(zhí)行幾次,特別在循環(huán)語句中,對于窗口的刷新顯示DoEvents特別有用,但是在循環(huán)體內(nèi)使用了DoEvents后,當前進程的執(zhí)行效率會有大幅降低,因為移交控制權必然損失當前進程的運行效率。
分享文章:vb.net線程中止,vb在程序運行模式下能夠中斷程序
轉(zhuǎn)載源于:http://www.dlmjj.cn/article/hdepdd.html