VB防止程序重复运行 上传者：flow_specter 2019-05-13 01:55:58上传 TXT文件 387B 热度 76次 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 发表评论
程序源码写的不够完美
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