我需要控制文本框里的键盘输入

只能输入汉字

只能输入数字

只能输入字母

只能输入汉字和数字

只能输入数字和字母

只能输入汉字和字母

汗这么多.....有的可以用ascii进行控制输入

keyascii

晕 你看我的程序了吗?里面有控制的啊!

'汉字
Private Sub txtName_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!一-龥]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub
'汉字和字母
Private Sub txtName_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!一-龥a-zA-Z]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub
'只能输入数字
Private Sub txtTel_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!0-9]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub
'字母
Private Sub txtName_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!a-zA-Z]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub
'汉字和字母
Private Sub txtName_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!一-龥a-zA-Z]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub
'只能输入数字
Private Sub txtTel_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!0-9]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub
'数字和汉字
Private Sub txtTel_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!0-9一-龥]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub
'字母和数字
Private Sub txtName_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!0-9a-zA-Z]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If
End Sub

楼上的代码很好，只是不能限制^+V上来的内容。

我就是看了你的那个觉得好才想做个的

对哦

这个我还没有想到

ctrl+c ctrl+v ctrl+z等

这些组合的快捷键也能用这种方法限制吗？

可以,ctrl+3 只要加个 3 ctrl+v 只要加个 22 比的你自己试试了!其实不是很复杂的

用这句
If Strings.InStr("3,13,8,9,24,26", KeyAscii) = 0 Then KeyAscii = 0
替换

If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
就可以了

其中 3是复制 13是回车 8是backspace24是剪切 26是撤消

如果想粘贴就用 22 也加进去,但是不提倡用,因为 粘贴从剪贴板 里判断的代码感觉比较麻烦点