如何限制文本框的字节数

yanwei82123300

如何限制文本框的字节数？我想规定文本框为8位，多一位都不能输入，请问如何做到，谢谢

Henry D. Sy

在更改事件中判断文本框的text长度

Henry D. Sy

1. Private Sub Text0_Change()
   
2.     Dim str As String
   
3.     Dim i As Integer
   
4.     If Not IsNull(Me.Text0.Text) Then
   
5.         str = Me.Text0.Text
   
6.         i = Len(str)
   
7.         If i > 8 Then
   
8.             MsgBox "请不要输入超过8个字符"
   
9.             str = Left(str, 8)
   
10.             Me.Text0 = str
    
11.         End If
    
12.     End If
    
13. End Sub

复制代码

yanwei82123300

{:soso_e181:}Henry D. Sy 老师谢谢帮助

Henry D. Sy

yanwei82123300 发表于 2012-6-30 16:28
Henry D. Sy 老师谢谢帮助

http://www.office-cn.net/thread-113018-1-2.html
这个帮你增加了
国庆，元旦，五一，春节，端午，中秋

yanwei82123300

Henry D. Sy 老师谢谢帮助