Question

VB 这题按照KeyPress 事件进行，按下p(小写)键后，为什么Text的文本是显示的是pP 而不是P

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String, n As Integer
str = UCase(Chr(KeyAscii))
n = Len(str)
Text1.Text = String(5, str)
End Sub
已经出现了Text1.Text = String(5, str) 怎么还有小p，不应该先清除文本在输入吗？

Answer 1

这是因为VB本身有个默认的键盘处理过程，它发生在用户自定义事件过程（比如Text1_KeyPress）之后，也就是说，当你按了键盘的p键后，会触发Text1_KeyPress事件，这个事件完毕后，VB会继续处理你输入的这个键值，并把它显示到Text1的光标所在位置，这样Text1中就会出现“pPPPPP”了，换句话说，这里之所以会出现一个小写的p，跟 Text1.Text = String(5, str) 这条语句是没有直接关系的好么？

要想解决这个问题，必须这样：

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String, n As Integer
str = UCase(Chr(KeyAscii))
n = Len(str)
Text1.Text = String(5, str)
KeyAscii = 0   '这是通知VB取消对这个键的后续处理！
End Sub