VB怎样判断、防止程序重复执行
来源:互联网 发布:每周原油数据 编辑:程序博客网 时间:2024/04/29 16:58
Private Sub Form_load()
'判断程序是否已经运行
If App.PrevInstance Then
MsgBox "本程序已经运行!", vbInformation Or vbOKOnly, "提示信息"
Unload Me
Exit Sub
End If
'以下是主要程序
' ……
End Sub
附:另一个例子:
Option Explicit
Public Sub CheckExist(fm As Form) '防止程序重复执行
Dim title As String
If App.PrevInstance Then
title = App.title
Call MsgBox("这程序已执行", vbCritical)
App.title = "" '如此才不会 Avtivate 到自己
fm.Caption = ""
AppActivate title 'activate 先前就已运行的程序
End ' 结束
End If
End Sub
Private Sub Form_Load()
Call CheckExist(Me)
End Sub
- VB怎样判断、防止程序重复执行
- 防止程序重复执行
- 怎样防止程序重复开启?
- 防止程序被重复执行
- 防止程序被重复执行
- delphi 防止程序重复执行
- Delphi防止程序被重复执行
- 防止程序重复执行的单元
- 防止程序重复执行的单元
- 防止程序重复执行方法汇编
- [VB.NET]怎样后台执行控制台程序?
- Vb.Net防止同一程序重复运行的方法
- 脚本防止重复执行
- Delphi单元文件之-防止程序重复执行
- 怎样防止数据重复提交
- 怎样让这个程序重复执行而不退出啊
- 防止程序重复运行
- 防止程序重复打开
- 一次性清空本窗口内所有文本框(TextBox)
- VS2005下BoundField的DataFormatString不起作用
- 给一大段 VB 程序一次性加上注释符号
- VB 中在一个窗体中执行另一个窗体中的代码
- NFS 配置
- VB怎样判断、防止程序重复执行
- 元旦快乐
- VB 中使 TextBox 按 Mouse 右键时只出现自定 PopUp Menu
- ASP.net 类和属性的问题
- VB 编程中如何使窗口右上角的关闭按钮(X)失效
- treeview 如何保持打开一个父节点
- VB 编程中打开默认网址和 Email 的更简单的方法
- POJ 2491 Scavenger Hunt 解题报告 再次利用map判重
- Unicode学习