テキストボックス内の文字を常に１字に制限する方法を教えてください。

質問

例えば、Private Sub Text1_KeyPress(KeyAscii) の中で
Text1.text=Right(Text1.text,1)
のようにすれば、常に右端の１字だけ表示されると思うのですが、
実際にやってみると、２文字表示されてしまうことがしばしばです。

回答No.3

KenKen_SP

MaxLength プロパティを使わず、コードで実現するなら LEN で文字数を調べて
既に１文字入力されていたら、キー入力をキャンセルするようにします。

Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KeyAscii <> 8 And Len(Text1.Text) = 1 Then
　　　　KeyAscii = 0
　　End If

End Sub

お礼

ありがとうございました。
残念ですが、役に立ちませんでした。

回答No.2

kiki_s

MaxLengthプロパティを「１」にすれば文字数の制限が出来ます。
全角、半角とも同じ１文字と認識します。
「０」は制限無しです。

お礼

ありがとうございました。
残念ですが、役に立ちませんでした。

回答No.1

papayuka

VBAしか知りませんが、、、
TextBox に MaxLength プロパティってありませんか？

お礼

ありがとうございました。
残念ですが、役に立ちませんでした。