| '■IsZenkaku '■機能：文字列に全角文字が含まれているか調べる。 '■引数：Value 調べる対象の文字列。 '■戻り値：全角文字が含まれている場合はTrue、そうでない場合False。 Private Function IsZenkaku(ByVal Value As String) As Boolean Dim ByteLength As Integer ByteLength = System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(Value) Return Len(Value) <> ByteLength End Function |
使用例：
・MsgBox IsZenkaku("ABCDE")
"False"と表示される。
・MsgBox IsZenkaku("あいABC")
"True"と表示される。
