判断当一个Textbox文本框长度发生变化时就执行一段程序的代码如何写？

[qqyzq]

判断当一个Textbox文本框长度发生变化时就执行一段程序的代码如何写？
内容发生变化：
Private Sub TextBox1_ModifiedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.
'要执行的程序代码。'
End Sub
我知道判断一个文本框的内容发生变化时怎么写如上，我不知道长度发生变化时该如何写请各位朋友帮忙看看。（其实判断内容变化就可以但是我发现比如我输入123时会执行程序，但是我把3去掉后再输入3时就没变化了，是因为我输入的内容没有发生变化，所以才会想到长度发生变化就要执行程序）

[qqyzq]

还没有对：
我现在是这样写的：
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim i As Integer
i = TextBox1.TextLength
Select Case i
Case 1
'程序代码
Case 2
'程序代码
Case 3
'程序代码
Case 4
'程序代码
Case n
'程序代码 N
End Select
End Sub
我只能再textbox1的内容发生变化时才能执行再根据长度来选择相应的程序：比如说textbox1开始为空，这时不会执行任何程序。当我输入123，这时内容发生了变化刚执行上段程序，进去后现判断长度等3所以会去执行，case 3 下的代码。这一切都正常，问题，当我把3去掉后内容就变成了12这是有变化，当我再把3输上去时，就没有变化了。所以我把判断内容变化改成判断长度变化该如何写代码。在线等

[水如烟]

这样做不好，
你应该待TextBox操作完毕后才执行你的代码
比如判断是否按了回车键

[qqyzq]

哦。这样啊，但是这个问题已经出现，总要想办法解决是吧。还得请你帮忙。你所说的回车键我在窗体中已经设置了。我在窗体中作一个控件处按下回车键就自动跳到下控件处，好比是按下了TAB键。所以在窗体中无法判断是否按了回车键，所以我还是想把这个问题解决了。

[水如烟]

你也可以用TextBox.TextChanged
长度变化可以这样
Private mTextL as Integer=0
Private Sub TextBox1_ModifiedChanged下
If mTextL=Me.TextBox1.TextLength Then
...
Else
...
mTextL=Me.TextBox1.TextLength
End If