VB文本框如何禁止输入字母,算字和特殊符号

发布网友发布时间：2023-12-24 00:10

共5个回答

热心网友时间：2024-04-11 12:05

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub 可以禁止输入字母

private sub text1_change()
if text1="" then exit sub
if not isletter(text1) then
msgbox "only a-z A-Z letters allowed"
end if
end sub 这个是禁止输入算字和特殊符号

热心网友时间：2024-04-11 12:05

Private Sub Text3_keypress(KeyAscii As Integer)
Select Case KeyAscii
Case 8
'无变化,退格键不屏蔽
Case Asc("A") To Asc("Z")
Case Else ' 除了以上的都屏蔽
KeyAscii = 0
End Select
End Sub
这是我自己做的一个,你可以看看

热心网友时间：2024-04-11 12:07

当在VB文本框输入时，响应文本框的change方法，是要禁止的字符就不输出，否则输出。

热心网友时间：2024-04-11 12:03

根本不可能,因为就算是输入法也算KeyPress事件,禁止输入字母,算字和特殊符号就相当于禁止所有按键.

热心网友时间：2024-04-11 12:09

应该是可以的,只要你把自己想禁止的字母,符号等的ASCLL码的值知道了,,就可以了...