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

新客网 XKER.COM 2004-11-29 来源： 收藏本文

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、将程序编译后，将可执行程序运行两次你就会发现这个程序只能允许启动一个实例。
正文

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决