VB中App.PrevInstance 可以用来判断当前程序是否已经执行。
在Form_Load 中加入下面得代码,或者(推荐)放在Sub Main()中
要打开第一次运行得窗口 也就是要激活它。
If App.PrevInstance Then
'程序实例已经运行
dim mHwnd as long
mHwnd= FindWindow(vbNullString, "程序名") '查找窗口句柄
SetActiveWindow mHwnd '激活窗口
End IF
说明:
SetActiveWindow和FindWindow是API函数,到API浏览器里面可以声明函数。