VB6如何让程序只能启动一个实例
日期：2013-12-11 浏览次数：20492 次
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、将程序编译后，将可执行程序运行两次你就会发现这个程序只能允许启动一个实例。
正文
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、将程序编译后，将可执行程序运行两次你就会发现这个程序只能允许启动一个实例。
正文
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
