1. 首页
  2. 编程语言
  3. VB
  4. VB防止程序重复运行
用户评论
码姐姐匿名网友 2019-05-13 01:55:58

程序源码写的不够完美

码姐姐匿名网友 2019-05-13 01:55:58

Option Explicit txt文件,内容如下: 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 E