VB6如何让程序只能启动一个实例

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

1、在VB6中新建立一个工程

2、在Form1的Load事件中加入下面这段代码:

'本程序只能运行一次的判断

If App.PrevInstance = True Then '判断程序是否已运行,如果为真

Title = App.Title '记录下本程序的标题

Call MsgBox(App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")已运行!", vbInformation) '产生一个提示对话框

App.Title = "第二次执行" '改变本程序标题,这样才不会激活自己

AppActivate Title '激活先前已执行的程序

End '结束本次执行之实例,保证仅运行一个程序

End If

3、将程序编译后,将可执行程序运行两次你就会发现这个程序只能允许启动一个实例。

正文

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航