关于VB的一个简单的问题请大家帮帮忙

显示全部楼层 · 2011-3-27 03:27:14

Private Sub Form_Load()

If App.PrevInstance Then

MsgBox (\"程序已经运行，不能再次装载。 \"), vbExclamation
msgbox \"这是程序第一次运行！\"

End

看了上面的这段代码我想大家也差不多知道我要干什么了，我发现这段代码呢，如果第一次运行可以成功的运行下一句吗
就是说如果这个程序是第一次运行，那它走到这步《msgbox \"这是程序第一次运行！\"
》如果程序不是第一次运行，那这个程序就自动销毁了
但是我这面这段代码他第一次运行的时候不不显示msgbox \"这是程序第一次运行！\"
》这句话，除非第二次运行的时候才会显示出来，。我想问问这是怎么回事呢，呵呵我刚接了VB才一天多，所以请帮帮忙
在线等，谢谢

千问 · 2011-3-27 03:27:14

<pre id=\"best-answer-content\" class=\"reply-text mb10\">msgbox 和 end 都在同一个if条件语句中也就是当同一个程序重复运行时才会执行

If App.PrevInstance Then

MsgBox (\"程序已经运行，不能再次装载。 \"), vbExclamation

End
else

msgbox \"这是程序第一次运行！\"
end if