补充:
if App.PrevInstance then
msgbox app.exename & "已经运行!"
end if
if App.PrevInstance then
msgbox app.exename & "已经运行!"
end if
解决方案 »
- 方案探讨!!(激光测量仪,上位机,PLC)
- fpSpread 如果删除行呢?
- 小弟有一问题请教:如何使用vb写入cookies,能让asp服务器得到cookies
- 老板要在我电脑上装监视软件,我不同意,各位水友你们公司也给员工装监视软件吗??
- 急,请教各位一个问题!!!!
- Vb程序中的数据定时刷新
- 做不出来想跳楼啊!!!!!!!!!!!!!!!!!
- 急,在线等待,关于数据库连接操作的问题
- 我使用了loadpicture,这样写的:loadpicture("ico路径",vbLPCustom,,16,16),可是显示的图标还是32*32的,为什么啊?
- 请教:Retained为无效键,文件'e:\edxddfd.vbp'不能被加载。 是怎么回事?我用的是VB5专业版。
- 怎样打开文件
- "某条件只有连续三次为真,才执行某项操作”如何在vb中实现?
On Error GoTo errMain‘错误处理
Dim hModule% ‘模块句柄
Dim AppCount% ‘应用程序的个数
appPath$=app.Path + "\" ‘应用程序的启动路径
hModule %=GetModuleHandle(appPath$+app.EXEName+".exe")‘获得该程序的句柄。
AppCount %=GetModuleUsage(hModule)‘获得模块代码,即运行的应用程序数目。
lf AppCount%>1 Then‘同一应用程序数大于1
MsgBox"程序已经加载",64
End ‘结束当前启动的应用程序
Elsc
mainForm.Show ‘mainForm是程序的主窗体
End lf
Exit Sub
errMain:
lf Err<>0 Then
MsgBox"启动程序时发生错误",64
Exit Sub
End lf
End Sub
Form_Load()
if App.PrevInstance then
End
end if
End Sub
我以前用过DDE的方法做过类似的功能,不但可以检查是否已经运行了同一程序,还可以传递一些自定义的命令,比如 :激活原来的程序或是别的功能。