vb.net 怎樣判斷某個窗體是否打開

Dim F1 As New Datasystem.Form2 '實例化窗體

我們提供的服務有：網站設計、成都網站建設、微信公眾號開發、網站優化、網站認證、即墨ssl等。為1000多家企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的即墨網站制作公司

For Each na As Form In Application.OpenForms '打開窗體的集合

If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判斷程序集的產品名稱和窗體名稱是否已存在打開的窗體中

If na.WindowState = FormWindowState.Minimized Then '判斷窗體是否最小化

na.WindowState = FormWindowState.Normal '還原窗體

End If

na.Activate() '激活窗體

Return '返回

End If

Next

F1.Show() '如果沒有打開的窗體中未找到，重新打開窗體

vb.net 怎么判斷當前程序是否正在運行？

Imports System.Runtime.InteropServices

Module Module1

Sub Main()

Dim instance As Process = RunningInstance()

If instance IsNot Nothing Then

ShowWindowAsync(instance.MainWindowHandle, 3) '調用api函數，正常顯示窗口

Return

End If

Dim F1 As New Form1

Application.Run(F1) '顯示窗體

End Sub

DllImport("User32.dll")

Public Function ShowWindowAsync(ByVal hWnd As System.IntPtr, ByVal cmdShow As Integer) As Boolean

End Function

Private Function RunningInstance() As Process '返回進程中已經打開的程序

Dim current As Process = Process.GetCurrentProcess()

Dim processes As Process() = Process.GetProcessesByName(current.ProcessName)

For Each process As Process In processes

If process.Id current.Id Then

If process.MainModule.FileName = current.MainModule.FileName Then

Return process

End If

End If

Next

Return Nothing

End Function

End Module

vb.net 檢查程序已運行

這個提供進程即可以判斷程序是否已經啟動

這個是最一般的方法了

希望能幫到你

分享標題：vb.net判斷已啟動,vb運行時默認啟動的窗體是
網址分享：http://m.2m8n56k.cn/article14/hogode.html

成都網站建設公司_創新互聯，為您提供域名注冊、、全網營銷推廣、App開發、微信公眾號、網站導航

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：[email protected]。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯