'''------------------------------------------------------------------------

''' <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