【VB2005】テキストボックス内の文字列をバイト数で制限したい

質問

検索してもAPIを使用するものや、C#のソースしか無かったので質問させてください。

表題通りなのですが、テキストボックスに５バイトまで入力し、５バイトを超えたら入力できないように制御したいのですが、経験が浅いためよくわかりません。
もしよかったら詳しい方、教えていただけないでしょうか。
たいへん恐れ入りますがよろしくお願いいたします。ｍ(＿ ＿;)ｍ

回答No.2

NYOI · ベストアンサー

５バイトとか書いていることから推測すると、この場合のバイト数とは、Shift_JISでのバイト数のことかな？
VB2005では基本的に文字列はUnicode扱いなので、いわゆる半角も全角も２バイトです。
Shift_JISで考えるなら、例えばKeyPressイベントで

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'現在入力されている文字が５バイトだったらそれ以上入力させない。
'但しBackSpaceは許可
If System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(TextBox1.Text) >= 5 _
AndAlso e.KeyChar <> Chr(Keys.Back) Then
e.Handled = True
End If
End Sub
とか。

お礼

なるほど！
教えてもらった方法で行けそうです。
たいへんありがとうございました。
感謝感謝

回答No.1

imogasi

テキストボックスのプロパティにMaxLengthというのがあるが
それではダメですか。設定数桁以上は受け付けないようだが。
それ以外は１文字入力したら通知してもらうAPIを使う必要があるように思う。
Enterで入力確定後の長さチェックでダメならば。

お礼

ありがとうございました。