Question

vb中怎么使文本框中必须输入的是数字，如果是字母或其他的话用信息框提示

文本框怎么设置只能输入a,b,c,d4个字母，

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case 97 To 100
Case Else
'If (KeyAscii < 48 Or KeyAscii > 57) Or (KeyAscii >= 97 Or KeyAscii <= 100) Then
'Else
KeyAscii = 0
MsgBox "输入了非法字符"
'End If
End Select
End Sub
已验证，运行正常

追问

如果只能输入a,b,c,d,呢？

追答

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 97 To 100
Case Else
KeyAscii = 0
MsgBox "输入了非法字符"
End Select
End Sub

Answer 2

Private sub text1_Keypresss(Keyascii as integer)
if keyascii<48 or keyascii>57 then
keyascii=0
msgbox("必须输入的是数字")
end if
end sub

Answer 3

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode > Asc(9) Or KeyCode < Asc(0)) And KeyCode <> 8 Then
MsgBox "不允许按其他键"
SendKeys "{backspace}"
End If
End Sub
这样么？

追问

调试后SendKeys "{backspace}"这句是黄色，如果是只能输入a,b,c,d 怎么写代码