好像不難吧?
網站建設哪家好,找創新互聯!專注于網頁設計、網站建設、微信開發、小程序制作、集團企業網站建設等服務項目。為回饋新老客戶創新互聯還提供了宜州免費建站歡迎大家使用!
我放進了Button1的Click事件里。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo Errmessages '在做系統操作時加排錯標簽是個好習慣
Dim TargetName As String = "ibmdict" '存儲進程名為文本型,注:進程名不加擴展名
Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '從進程名獲取進程
Dim TargetPath As String '存儲進程路徑為文本型
If TargetKill.Length 1 Then '判斷進程名的數量,如果同名進程數量在2個以上,用For循環關閉進程。
For i = 0 To TargetKill.Length - 1
TargetPath = TargetKill(i).MainModule.FileName
TargetKill(i).Kill()
Next
ElseIf TargetKill.Length = 0 Then '判斷進程名的數量,沒有發現進程直接彈窗。不需要的,可直接刪掉該If子句
MsgBox("沒有發現進程!")
Exit Sub
ElseIf TargetKill.Length = 1 Then '判斷進程名的數量,如果只有一個,就不用For循環
TargetKill(0).Kill()
End If
MsgBox("已終止" TargetKill.Length "個進程") '彈窗提示已終止多少個進程
Errmessages: ‘定義排錯標簽
If Err.Description Nothing Then ’判斷有無錯誤,如果有,則 ↓
MsgBox(Err.Description) '當出現錯誤時,彈窗提示
End If
End Sub
可根據需要自行修改,這個備注夠完善了吧?不會的再Hi我。
這樣的話你就不要直接把子窗口show出來,先在父窗口創建一個子窗口對象的變量,通過實例化該變量達到創建子窗口的目的,然后在下次又要打開子窗口時也可以通過該變量關閉原有的子窗口
示例代碼如下(假設Form1為父窗口,Form2為子窗口):
Form1的代碼:
Public
Class
Form1
Dim
nform
As
Form2
=
Nothing
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
If
nform
IsNot
Nothing
Then
nform.Close()
nform.Dispose()
End
If
nform
=
New
Form2
nform.Show()
Me.Hide()
End
Sub
End
Class
通過nform變量,你可以很輕易就處理掉原來已經打開但隱藏著的子窗口了
VB.NET關閉當前窗體me.close()
其它窗體用:窗體名.close(),例如:form2.close()
this.close() 只是關掉,沒有釋放,不對 me.close() 應該釋放一下 me.Dispose() 給分吧、
me.close是關閉自身窗體,如果同時打開多個窗體,用me.close不能退出程序。
end是一個強大的退出指令,可以關閉所有窗體,并釋放所有已占用的資源(當然有一些限制。所以自己主動釋放是最好的)。
這是由于你的啟動類是form1,也就是說form1是你的主函數,你關閉form1就相當于關閉程序;
如果你只希望彈出form2的時候form1隱藏,可以再form2.show()之后調用form1.hide(),之后關閉form2的時候再關閉form1就可以達到你想要的效果了;
再有一種做法就是你需要一個主函數類,使用它調用form1跟form2,這樣關閉哪一個都不會影響另一個。
分享名稱:vb.net結束窗口,vb窗口關閉事件
標題來源:http://m.kartarina.com/article40/heihho.html
成都網站建設公司_創新互聯,為您提供微信小程序、品牌網站建設、網站建設、面包屑導航、網站維護、建站公司
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯