テキストボックスへの文字入力をバイト数で制限する (ID:113009)

名前

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

本文 私も同じところで 詰まっております。 テキストボックスに 41バイト以上は入力できないようにしたいのですが Private Sub txtNm_KeyPress(KeyAscii As Integer) txtNm.Locked = False If LenB(txtNm.Text) <= 40 Then txtNm.Locked = False ElseIf LenB(txtNm.Text) > 40 Then txtNm.Locked = True End If End Sub これだと うまくいきません。 どうすればいいでしょうか？