TextBox里面SendKeys问题！

Question

If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z" Then
            SendKeys "{A}"
End If为什么我在textbox输入一个a，结果返回的是aA呢，我要的结果是A，请指教！

Answer 1

'添加KeyAscii = 0忽略按键
If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z" Then
            KeyAscii = 0
            SendKeys "{A}"
End If

Answer 2

首先你输入了a文本框中会有一个a,然后程序再又输入了一个大写A，如果要输入a在文本框中是A,可以用以下的方式：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("a") Then KeyAscii = Asc("A")
End Sub

Answer 3

谢谢！但是为什么我 下午运行时它总是出现汉字呢？If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z" Then
            KeyAscii = 0
            SendKeys "{" & Chr(KeyAscii - 32) & "}"
        End If