确保已运行的程序不重复运运
很多软件不要求重复运行的，可以加入如下代码来实现： 把以下代码放在第一个窗体的Form_Load事件中：
If App.PrevInstance = True Then Call MsgBox("这个程序正在运行！",vbExclamation,"重复运行了") End End If
很多软件不要求重复运行的，可以加入如下代码来实现： 把以下代码放在第一个窗体的Form_Load事件中：
If App.PrevInstance = True Then Call MsgBox("这个程序正在运行！",vbExclamation,"重复运行了") End End If
2004-05-19 10:12
2004-05-19 10:14
2004-05-20 21:04
