'''------------------------------------------------------------------------ ''' <summary> ''' 文字列長檢查（按字節檢查） ''' </summary> ''' <param>文字列</param> ''' <param>文字列長</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
