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

Question

VB文本框如何禁止输入字母,算字和特殊符号.文本框我只想让他输入字体，如何实现，在线等待
最好有例子!

Answer 1

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 这个是禁止输入算字和特殊符号

Answer 2

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
这是我自己做的一个,你可以看看

Answer 3

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

Answer 4

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

Answer 5

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