Question

VB限制键盘输入怎么写代码？

如果往文本框中输入数字，并且只能输入“0.****”类型的小数，长度只能这么长，应该怎么写代码？

Answer 1

Private Sub text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii <> 46 Then
KeyAscii = 0
End If
End Sub

这个是限制输入到文本框里面的只能是0~9以及.和退格
至于长度，textBox有个属性MaxLength你可以设置下

Answer 2

Dim strInput As String
Dim dblX as Double
If IsNumeric(strInput) And strInput.length=5 Then
dblX=CDbl(strInput)
.....
.....
End If