Question

在vb中怎么样用代码实现：使文本框中只能输入18个数字！

Answer 1

Private Sub Text1_Change()
If Not (IsNumeric(Me.Text1.Text) And Len(Me.Text1) <= 18) Then
MsgBox "error"
End If
End Sub

Answer 2

VB文本控件自带这个功能MaxLength熟悉

追问

只能输入喔!少一个都不行！

追答

Private Sub Form_Load()
Text1.MaxLength = 18
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii 57 Then KeyAscii = 0
End Sub

Private Sub Text1_LostFocus()
If Len(Text1.Text) < 18 Then Text1.SetFocus
End Sub

禁止粘贴可以参考 http://zhidao.baidu.com/question/449435550.html