[VB.net] 如何避免程式重複執行

一般要避免開發的應用程式在系統上被使用者重複執行時有以下方法:

方法一.
直接在專案設定裡勾選 "建立單一執行個體應用程式"。

採用這個方法無論在執行程式前程式名稱是否不同，都無法重複執行。

方法二.
直接在 form load 事件裡新增檢查系統上是否有重複名稱的程式在執行

Dim _ThisProcess As Process = Process.GetCurrentProcess
Dim _ProcessArr() As Process = Process.GetProcessesByName(_ThisProcess.ProcessName)
If _ProcessArr.Length > 1 Then
'有重複名稱的程式開啟，關閉自己停止執行

   Erase _ProcessArr
   End

Else

   Erase _ProcessArr

End If

這個方法需要特別注意的是，在執行程式前只要程式名稱不同，雖然是相同的程式也是會重複執行。