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

名前

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

本文 これでうまくいきました。 Private Sub txtNm_KeyPress(KeyAscii As Integer) 'バックスペースキーが押下された場合 If KeyAscii = vbKeyBack Then 'バックスペースを認識させる KeyAscii = vbKeyBack '氏名テキストに40バイト以上の文字列を入力した場合 ElseIf LenB(StrConv(txtNm.Text, vbFromUnicode)) >= 40 Then '入力不可 KeyAscii = 0 End If End Sub