TextBoxの文字数制限で全角・半角の区別をつけるには (ID:116953)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MaxLengthプロパティと同じように、 指定したバイト数を超えて入力しようとしても できないようにしたいのですが、 Private Sub txtName_Validating(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtName.Validating '未入力の場合は正常終了 If Trim(Me.txtName.Text) = Nothing Or Trim(Me.txtName.Text) = "" Then Exit Sub End If Dim objEncoding As Encoding = System.Text.Encoding.GetEncoding("Shift_JIS") Dim intByteCount As Integer = objEncoding.GetByteCount(Me.txtName.Text) '制限バイト数との比較 If intByteCount > 20 Then 'ここの部分の書き方が分かりません ' Me.txtName.Text.Substring(0,20) 'これだとバイト数ではなく文字数になってしまいますし・・・ End If End Sub