UC知道VB 关于键盘鼠标事件keyPress的问题~~~谢谢！！
来源：百度知道 编辑：UC知道 时间：2024/06/14 07:12:21
熟悉键盘鼠标事件keyPress
1.按下键盘的大写字母按键（ascii:65-90）在文本框中显示大写字母，其他按键不显示。2.按下键盘的小字母按键（ascii:97-122）在文本框中显示大写字母，其他按键不显示。3.按下数字按键（ascii:48-57）在文本框中显示内容，其余按键清空。(text1.selStart; text1.selLength)
1.按下键盘的大写字母按键（ascii:65-90）在文本框中显示大写字母，其他按键不显示。2.按下键盘的小字母按键（ascii:97-122）在文本框中显示大写字母，其他按键不显示。3.按下数字按键（ascii:48-57）在文本框中显示内容，其余按键清空。(text1.selStart; text1.selLength)
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
我会做，加点分，然后HI我给你做
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
楼上的老兄代码有点问题，我修改了一下
可以通过
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