テキストボックスに入る文字を１字に制限したいのですが、うまくできません。

事前に文字があってもなくても、最終入力文字が１つだけ残るようにしたいのです。

先日、同じ質問をしましたが、いただいた回答は、どれも役に立ちませんでした。ご自分で実験されてから回答してくださるようお願いします。

ダメだった方法
* sub text1_keyascii の中でボックスをクリアする。
* sub text1_keyascii の中でtextプロパティを再指定する。
* maxlength プロパティを１に設定しておく。

困っている状態
キー入力した文字が、次々とボックスに入ってしまい、ＢＳキーなどを使わないと消せない。

No.4 ベストアンサー 回答者： process9 回答日時： 2006/08/10 14:02

process9です。

maxlength プロパティを１にして
Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Text = ""
End Sub
ではだめですか？


＞先日、同じ質問をしましたが、いただいた回答は、どれも役に立ちませんでした。ご自分で実験されてから回答してくださるようお願いします。
余計なお世話かもしれませんが、実験してダメかどうか
はあなたのやることだと思いますが・・・
親切心で回答者は提案しているだけですし、
質問文面を誤解して回答する場合もありますから。

私のも実験してはいるけど、あなたのやりたいことが
本当に私に正しく伝わっているかは不明ですから。
んで
＞どれも役に立ちませんでした
こう書かれるといい気持ちしないですよ。
あなたが逆の立場だったらどう思いますか？

ダメだったらダメだったで、補足に詳細を書くっていうのが
正しい質問のやり方だと思います。
反感買いますよ？って買ってますね・・・↓

この回答へのお礼

ご忠告ありがとうございます。今後気をつけます。
情けないことに、KeyPressでは、どうやってもダメです。
本件は、Sub KeyPress(KeyAscii) でなく Sub KeyDown(KeyCode) を使うことによって解決に向かっております。しかし、KeyPress と KeyDown の違いが、実は、よく分かっておりません。この点について何かコメントを頂戴できればありがたいと思っています。

お礼日時：2006/08/10 21:22

No.6 回答者： laputart 回答日時： 2006/08/10 14:26

自分で試してみました。

text1.changeにコードを書いたり、keypressのkeyasciiをchr()
に変換する事も試みたのですがうまくいかず、最後に
text1.KeyPress に１行を書くだけで、ご希望のように最後に
入力した１文字を表示させる事が出来ました。

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Text = ""

End Sub

No.5 回答者： noname#22222 回答日時： 2006/08/10 14:05

１、Visual Basic のバージョン。

２、なぜ、maxlength=1 が役に立たないのか？

この辺りの補足が必要と思います。

なお、仮に、次のような回答を得たいのであれば、質問要領に問題があります。

Private Sub Text1_KeyPress(KeyAscii As Integer)
　　If KeyAscii <> 13 Then
　　　　Text1 = Chr(KeyAscii)
　　　　KeyAscii = 0
　　End If
End Sub

No.3 回答者： ackapapa 回答日時： 2006/08/10 13:56

ミス

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Text = ""
End Sub

No.2 回答者： ackapapa 回答日時： 2006/08/10 13:55

これですね

http://oshiete1.goo.ne.jp/kotaeru.php3?q=2317852
コレに対する返事やお礼すらせず何様でしょうか？
おまけに締め切っても無いですし・・・
質問者の態度とは到底思えません。

Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Text = Chr(keyacsii)
End Sub

No.1 回答者： kenken0 回答日時： 2006/08/10 13:42

＞どれも役に立ちませんでした。

ご自分で実験されてから回答してくださるようお願いします。

そうおっしゃるのであれば、お金を払って質問されることをお勧めいたします。

参考URL：http://q.hatena.ne.jp/