Question

VB 关于键盘鼠标事件keyPress的问题~~~谢谢！！

熟悉键盘鼠标事件keyPress
1.按下键盘的大写字母按键（ascii:65-90）在文本框中显示大写字母，其他按键不显示。2.按下键盘的小字母按键（ascii:97-122）在文本框中显示大写字母，其他按键不显示。3.按下数字按键（ascii:48-57）在文本框中显示内容，其余按键清空。(text1.selStart; text1.selLength)

Answer 1

private sub ********
select case keyascii
case 65 to 90
text1.text = chr(keyascii)
case 97 to 122
text1.text = Ucase(keyascii) '我不记得了 如果没有转成大写请把ucase改成lcase。
case 48 to 57
text1.text = chr(keyascii)
end select
end sub

Answer 2

楼上的老兄代码有点问题，我修改了一下
可以通过

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90
Text1.Text = UCase(Chr(KeyAscii))
Case 97 To 122
Text1.Text = UCase(Chr(KeyAscii))
Case 48 To 57
Text1.Text = Chr(KeyAscii)
End Select
End Sub

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
select case keyascii
case 65 to 90
text1.text=ucase(chr(keyascii)
case 97 to 122
text1.text=ucase(chr(keyascii)
case 48 to 57
text1.text=chr(keyascii
End Sub

Answer 4

我会做，加点分，然后HI我给你做