Question

请问VB的TEXTBOX中如何限制字符长度

Private Sub Text7_Change(Index As Integer)
Select Case Index
Case 0
If Len(Text7(0).Text) = 4 Or Len(Text7(0).Text) = 7 Then Text7(0).Text = Text7(0).Text + "/"
Text7(0).SelStart = Len(Trim(Text7(0).Text)) '把光标移动到文本框最后一个字符后
End Select
End Sub

Private Sub Text7_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case Index
Case 1 To 4
If Len(Text7(Index).Text) = 4 And KeyAscii <> 8 Then KeyAscii = 0
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
Case 0
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Select
End Sub

这是我的代码，请帮我解决一下！

Answer 1

不是吧，兄弟。怎么又上这儿问来了。我不是帮你解决了吗。哈哈，有什么事直接问我就行了。

把这个直接替代原有内容，也就是添加员工姓名那个按钮的事件：
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 4
If Len(Text7(i).Text) <> 4 Then
MsgBox "请输入四位时间！", vbOKOnly + vbCritical, "提示"
Text7(i).SetFocus
Exit Sub
End If
Next i
Call zwbtj

End Sub

把这个加到Private Sub jbtimejc()这个里面，就是最下面的那个，你看最下面有个
End If
Next j
Next i
jbtimejc1 = 1

就加在这个endif的前面就行，不要加错地方了

If Len(grid1.TextMatrix(i, j)) <> 4 Then
MsgBox "职工〔" & grid1.TextMatrix(i, 1) + "〕的加班时间输入错误，请输入四位时间！", vbOKOnly + vbCritical, "提示"
grid1.Row = i
grid1.Col = j
jbtimejc1 = 0
grid1.SetFocus
Exit Sub
End If

Answer 2

用不着这样的，有一个属性maxlength的

只能输入数字你可以试试下面的代码
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub

Answer 3

If Len(Text7(0).Text) = 4 Or Len(Text7(0).Text) = 7 Then Text7(0).Text = Text7(0).Text + "/"
Text7(0).SelStart = Len(Trim(Text7(0).Text))
在文本框输到第4个或7个数字时加入一个"/",一般用在输入日期的处理,比: 1981/12/17

Select Case Index
Case 1 To 4
If Len(Text7(Index).Text) = 4 And KeyAscii <> 8 Then KeyAscii = 0
'指定的文本框只能输入四个字符.
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then
'并且指定的文本框只能输入数字0-9不能输入其它字符,比如:abc ABC&^%
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
Case 0
第0个文本框只能输入字母,不能输入数字
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Select

Answer 4

点击TEXT，在属性项中选择maxlength，就可以设定的了。

Answer 5

属性， MAXLENTH