TextBox里面SendKeys问题！

[happy79]

If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z" Then
SendKeys "{A}"
End If

为什么我在textbox输入一个a，结果返回的是aA呢，我要的结果是A，请指教！

[winehero]

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

[VBToy]

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

[happy79]

谢谢！但是为什么我 下午运行时它总是出现汉字呢？

If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z" Then
KeyAscii = 0
SendKeys "{" & Chr(KeyAscii - 32) & "}"
End If

[happy79]

谢谢大家，已经OK！