急，关于VB的问题1

来源：百度知道 编辑：UC知道 时间：2024/05/15 03:19:55
Private Sub TextSend_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command2.Value = 1
KeyAscii = 0
End If
End Sub这段代码表示是什么意思呀
那If App.PrevInstance Then End又代表什么意思呀？

前一段代码是判断按下的键是不是回车键。如果是用设置Command2.Value = 1

If App.PrevInstance Then End是说，如果这个软件已经在运行了，就是进程里面有它了。就自动退出。这是为了防止一个程序被打开多个进程。

如果发现按的是回车键就将command2的值置为1。

但你这个代码好像是错的。

TextSend是一个文本框，如果光标在文本框上，然后按回车，那么，名字为Command2的这个按钮的值为1
<br>
<br>但设置按钮的值好像没多大意义

补：
App.PrevInstance是防止同一程序执行多次.希望防止同一应用程序同时执行多次，其方法是判断App的PrevInstance属性若App.PrevInstance为True，则表示此应用程序在执行中，可以直接结束本此执行，这样就可以了。

前面的楼层都说的对，你的编码不太完整！
利用App.PrevInstance防止同一程序执行多次.希望防止同一应用程序同时执行多次，其方法是判断App的PrevInstance属性若App.PrevInstance为True，则表示此应用程序在执行中，可以直接结束本此执行，这样就可以了。
例如:Private Sub Form_Initialize()
If App.PrevInstance Then End
End Sub

不对吧