vb中keydown事件下的计数器代码，我想了各种办法，都不能进行累加计数，求高手详细代码。

Question

先在textbox1中输入序号，检验无误后就将该序号写入listbox1中，list1中项目达到指定数后，再在TEXT2中输入相同的序号，与list1中进行比较，list1中有该号码,才能计数，否则不计数。textbox1中的计数，我是根据list1.listcount,但是text2中的就没办法计数了。
感谢各位的积极回复，现在我把问题简化一下吧。例如我要记录text2中按回车键的次数，并在text3中show出来。代码编写如下，但是计数器一直停在1的位置
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Dim NUM As Integer
NUM = 0
If KeyCode = 13 Then
NUM = NUM + 1
Text3.Text = NUM
End If
End Sub

Answer 1

For I = 0 To List1.ListCount - 1 '循环比较text2中的字符是否等于list1中的某项
If Text2.Text = List1.List(i) Then
NUM = NUM + 1 '相等就计数
Exit Sub ‘退出循环
End If
Next

追问

这个我有些，关键是在KEYDOWN（enter）下面 累加不起来，NUM一直等于1，关于text2 与list1中的比较我都做完了，就是当TEXT2比较完后，我需要让另外一个控件A  setfcous，光标不能跳到A

 

追答

是不是你累加的那个变量定义在过程里面了？如果是的话那过程结束后这个变量是会释放的，所以你下次执行的时候又变0了。把他定义到全局变量。
A.setfcous都不能让它获得焦点？你在这句代码加上断点，确定他已经执行，然后这句的下一句也加个断点，确定不是因为后面的代码影响。
你还是 补充问题 贴代码出来吧。

我测试没问题，可以计算 也可以转移焦点。
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
For i = 0 To List1.ListCount - 1
If Text2.Text = List1.List(i) Then
num = num + 1
Text1.SetFocus
Exit Sub
End If
Next
End If
End Sub

追问

能不能邮箱？我将程式直接发到你的邮箱，让你帮忙看看，这个帖子上面不能贴那么多！大哥贵姓？

追答

987122817@qq.com
上一个回答不是告诉你了吗? num 变量不要定义在过程里面，要定义成全局变量。
而且不用赋 0 ，定义为数值型后默认就是0.非要赋 0 就到窗体加载的过程里面赋值，不要放这个过程里面。

Answer 2

每一次发生回车按钮事件的时候你都初始化 NUM了，所以怎么加都是1，定义变量的时候定义成动态变量，你试下下面的代码
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Static NUM As Integer
'NUM = 0
If KeyCode = 13 Then
NUM = NUM + 1
Text3.Text = NUM
End If
End Sub

Answer 3

没理解?
请举例!

追问

text2 与list1中的比较我都做完了，就是当TEXT2比较完后，我需要让另外一个控件A  setfcous，光标不能跳到A

追答

希望某个控件不能获得焦点(光标)?

追问

不是 而是希望TEXT2结束比较后，让控件A setfocus，但是因为KEYDOWN中的key是回车，所以光标一直在text2这里，不能跳转到控件A，其实我的空间A就是Clear，让他清除list中的内容，以便下次继续作业

追答

你的控件A的名称告诉我!

追问

TEXT5（以上称之为text1）代码如下：我想让他比较完后可以跳转到控件command1，让它进行Clear 的动作，但是结束后跳不出去，因为有扫描错误的机会，所以根本就不能确定扫描次数，因此只能用do while，却找不到exit do的flag，因为keydown之后不能计数！

追答

要使得command1获得焦点,用下面代码,难道不行?
command1.SetFocus