防止VB6執行檔重開 的

yeazzz3x2c1

有些VB6做出來的程式會互相干擾，為了被免此狀況，所以我們可以防止同時有2個(含以上)VB6執行檔執行。

只要在

Form_load底下輸入1行簡單的程式碼就可以囉~

程式碼如下↓

1. Private Sub Form_Load()
   
2. If App.PrevInstance = True Then End
   
3. End Sub

複製代碼

其實他也可以拆成

1. Private Sub Form_Load()
   
2. If App.PrevInstance = True Then '判斷是否有相同的"自己"正在執行
   
3. End'關閉程式(自己)
   
4. End If結束判斷
   
5. End Sub

複製代碼