Question

VB限制text文本框的问题

1.限制文本框只能输入3位数字且不能大于256
2.如果输入数字只有2位或一位其他位要补零，例如1 就是001 2就是002 10就是010 20就是020 100就是100等...
请标明注释供本菜鸟学习，谢谢大家

Answer 1

Private Sub Form_Load()
Text1.MaxLength = 3 '最多能输入三个字符
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8 ‘text1只能输入数字和前删除键
Case Else 'KeyAscii = 0代表不能输入
KeyAscii = 0
End Select
End Sub
Private Sub Command1_Click()'这里主要是用format函数如果不会请查手册
Dim mystr1, mystr2, mystr3
If Val(Text1.Text) <= 9 Then
mystr1 = Format(Text1.Text, "000")
Text1.Text = mystr1
End If
If Val(Text1.Text) <= 99 And Val(Text1.Text) >= 10 Then
mystr2 = Format(Text1.Text, "0##")
Text1.Text = mystr2
End If
End Sub
Private Sub Text1_Change
If Val(Text1.Text) >= 256 Then '限制文本不能大于256
Text1.Text = 256
Text1.SelStart = Left(Text1.Text, 3) '光标在左数第三个

Answer 2

Private Sub Form_Load()
Text1.MaxLength = 3 'text1最多能输入三个字符
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8 ‘定义text1只能输入数字和BS（前删除）键
Case Else '当你输入别的字符的时候，电脑就认为你什么也每输入
KeyAscii = 0
End Select

End Sub

Private Sub Text1_LostFocus() ‘当你鼠标的焦点离开text1，即单击任意别的控件的时候，程序就会自动安你的要求转换
If Text1 <> "" Then ’如果你输入了一个数
Select Case Len(Text1)
Case 2 ‘当两位数的时候
Text1 = "0" & Text1 ’在前面加一个0
Case 1 ‘当是一位数的时候
Text1 = "00" & Text1 ’前面加00
End Select
End If
End Sub
这是代码，你直接粘贴就可以，在窗体上建立一个，text1，和任意一个控件