简单的问题我忘了 55555555555

Question

程序运行后不允许再运行的代码？
那位老师帮帮忙把代码贴上来啊！555555555

Answer 1

'判断App.PrevInstance属性Option ExplicitSub Main()
    If Not App.PrevInstance Then
        Form1.Show
    End If
End Sub

Answer 2

Sub Main()
    If App.PrevInstance Then end
End Subsub Form_Load()
    If App.PrevInstance Then end
End Sub

Answer 3

Sub Main()
    If App.PrevInstance Then end
End Subsub Form_Load()
    If App.PrevInstance Then end
End Sub
=================================
支持！