"""------------------------------------------------------------------------ """ <summary> """ 文字列長检查(按字节检查) """ </summary> """ <param name="argStrControl">文字列</param> """ <param name="argLength">文字列長</param> """ <returns>True - , False - </returns> """ <remarks></remarks> """------------------------------------------------------------------------ Public Shared Function CheckControlLength(ByVal argStrControl As String, _ Optional ByVal argLength As Integer = 0) As Boolean "NULL If String.IsNullOrEmpty(argStrControl) Then Return True End If "文字列長 Dim iLength As Integer = 0 iLength = pEncoding.GetBytes(argStrControl).Length() "文字列長检查 If argLength < iLength Then Return False End If Return True End Function