VB中，我怎样控制我的程序只能有一个实例运行？？？？？

Question

如果App.PrevInstance为true 说明你的程序已经在运行

Answer 1

Option Explicit
Private Sub Form_Load()
    If App.PrevInstance Then
        Call MsgBox("程序已运行", vbCritical, "Message")
        End
    End If
End Sub
将这段代码添加窗体上,编译成Exe文件运行试试

Answer 2

不要在Form_Load中写上述语句，
写到Sub Main()中，工程用Sub Main启动。

Answer 3

Private Sub Form_Load()
    If App.PrevInstance Then
        MsgBox("程序已运行", vbCritical, "Message")
        End
        Exit
    End If
End Sub

Answer 4

不会的,除非你是在存心找Bug,把文件复制到两个不同路径的目录中,这样必然会造成运行多个程序的,上述代码只能使用在同一目录下的文件的多次打开,我想大多数人不会这样做的

Answer 5

在project的属性里设置为单线程就是了呀,然后再设置为multiuse