请教各位高手。。。

Question

用vb开发了一个应用程序，希望同时在系统中只有一个程序运行，即：试图第二次执行该程序时，系统提示当前程序已运行。请问如何实现，谢谢！！

Answer 1

'系统主过程
Sub Main()
   
    '验证程序是否已运行
    If App.PrevInstance Then
        End
    End IfEnd Sub

Answer 2

判斷App.PrevInstance = True則已運行

Answer 3

IF a=0
THEN
IF Form1.show 
THEN
A=A+1
Else End
End if

Answer 4

Private Sub Form_Load()
   
    If App.PrevInstance Then
        End '加入提示或其他语句然后end退出
    End IfEnd Sub
呵呵 这个就行了嘛

Answer 5

模块中：
Sub Main()   
    If App.PrevInstance Then Msgbox "当前程序已运行。"
End Sub

Answer 6

模块中：
Sub Main()   
    If App.PrevInstance Then Msgbox "当前程序已运行。"
End Sub