VB.NETではVB6のLenB関数がなくなりました。ここではVB6のLenB関数の代わりになるメソッドの作り方について紹介します。

LenB関数

LenB関数は半角文字を1バイト、全角文字を2バイトとして文字列の長さをバイト数で取得します。
Encoding.GetEncodingメソッドを使うことで、指定したエンコーディングのEncodingオブジェクトを取得することができます。そしてGetByteCountメソッドでバイト数を取得します。

Public Function LenB(ByVal str As String) As Integer
     Dim hEncode As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis")

    Return hEncode.GetByteCount(str)
End Function


以上、VB6のLenB関数の代わりになるメソッドの作り方について解説しました。