防止程序重复运行

Private

Sub

Form_Load()

If

App.PrevInstance

=

True

Then

MsgBox

"该程序已经运行。",

vbInformation

End

End

If

End

Sub

由于WINDOWS的多任务处理功能，

有些程序可能打开后忘记了，下次用时还可能再打开，这样做会占用系统资源降低系统效率。为了防止自身被多次运行，可利用VB应用对象提供的PrevInstance属性来检测内存中是否已有一个自身的副本，若有则给出提示后结束。一般码清将检测代码放在FORM＿LOAD（）中，因为程序空绝一运行就要检测，一旦有实迟亏前例运行了它的返回值就是True，也就表明前面至少已经有一个实例在运行.

Vbinformation

:

d出信息对话框,是对话框的一种类型，包括的信息就是"该程序已经运行。"^_^

假如在命令按钮单击事件中竖亩产生，代码如下

private

sub

command1_click()

open

app.path

&

"\随机文件.txt"

for

Random

As

#1

Len

=

12（长度可态纤搭以自定义）

(以上代码已经在帆拿程序所在路径产生了一个名为随机文件的txt文件)

然后可以在这里写入其他代码，比如写文件内容

close

#1

end

sub

---