62,046
社区成员
发帖
与我相关
我的任务
分享
Private Sub Edit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.TextChanged
With Me
Edit.Text = TextIntercept(Edit.Text, Edit.MaxLength)
End With
End Sub
Encoding.Default.GetBytes(str).Length;
Private Function TextIntercept(ByVal strIn As String, ByVal length As Integer) As String
Dim strRet As String = ""
Try
If LenByte(strIn) > length Then
Dim bytTemp() As Byte = System.Text.Encoding.Default.GetBytes(strIn)
ReDim Preserve bytTemp(length - 1)
strRet = System.Text.Encoding.Default.GetString(bytTemp)
If strRet.Chars(strRet.Length - 1) <> strIn.Chars(strRet.Length - 1) Then
strRet = strRet.Remove(strRet.Length - 1, 1)
End If
Else
strRet = strIn
End If
Catch ex As Exception
strRet = ""
End Try
Return strRet
End Function
Private Function LenByte(ByVal s As String) As Integer
Return System.Text.Encoding.Default.GetByteCount(s)
End Function
Private Sub Edit_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.TextChanged
With Me
Edit.Text = TextIntercept(.Text, .MaxLength)
End With
End Sub