• 締切済み

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

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

みんなの回答

  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.3

MaxLength プロパティを使わず、コードで実現するなら LEN で文字数を調べて 既に１文字入力されていたら、キー入力をキャンセルするようにします。 Private Sub Text1_KeyPress(KeyAscii As Integer) 　　If KeyAscii <> 8 And Len(Text1.Text) = 1 Then 　　　　KeyAscii = 0 　　End If End Sub

Ishiwara
質問者

お礼

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

  • kiki_s
  • ベストアンサー率59% (147/248)
回答No.2

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

Ishiwara
質問者

お礼

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

  • papayuka
  • ベストアンサー率45% (1388/3066)
回答No.1

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

Ishiwara
質問者

お礼

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

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

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

    事前に文字があってもなくても、最終入力文字が１つだけ残るようにしたいのです。 先日、同じ質問をしましたが、いただいた回答は、どれも役に立ちませんでした。ご自分で実験されてから回答してくださるようお願いします。 ダメだった方法 * sub text1_keyascii の中でボックスをクリアする。 * sub text1_keyascii の中でtextプロパティを再指定する。 * maxlength プロパティを１に設定しておく。 困っている状態 キー入力した文字が、次々とボックスに入ってしまい、ＢＳキーなどを使わないと消せない。

  • 特定の文字だけ太文字にするには・・

    簡易チャット作ってます。発言者の名前の部分だけ太文字にしようとしてい ます。 テキストボックス２に文を書いてエンターを押すとテキストボックス１に書 花子：～～～　　と書き込まれるようにはできました。花子の部分 だけふと文字にするには？？ Private Sub Text2_KeyPress(KeyAscii As Integer) If (KeyAscii = 13) Then Text1.Text = Text1.Text + "花子：" + Text2.Text + vbCrLf Text2.Text = "" KeyAscii = 0 End If End Sub

  • VBA　エンターキーでイベントに入りたい。

    テキストボックスにデータ入力後エンターキーの押下でイベントに入りたいのですが、下記のコーディングで[通過]メッセージが表示されません。英数字は通過しますが、エンターキーは動作停止します。 これと全く同じコーディングでVB6は正しく動きます。（ただし、Pvate Sub text1_KeyPress(KeyAscii As Integer)に変更してます。） <コーディング＞ Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Msgbox "通過" If KeyAscii = vbKeyReturn Then KeyAscii = 0 End If End Sub これが出来ると、そのつどキーボードから手を離さずに済むので作業効率がグンとあがります。どうかよろしくご教示ください。Excel2003SP3

  • Access の非連結テキストボックスについて

    Access 2000 を使用しています。 フィールド名　データ型 Code　　　　　テキスト型（フィールドサイズ＝8） Name　　　　　テキスト型（フィールドサイズ＝50） というテーブルがあり、このテーブルを元に帳票フォームを作成しました。このフォームは参照用として使用したいので、 AllowEdits/更新の許可 AllowDeletions/削除の許可 AllowAdditions/追加の許可 のプロパティは全て「いいえ」にしてあります。 このフォームのフッタ部分に txtFilter というテキストボックスと cmdFilter というコマンドボタンを置き、フィルターの動作をさせるため、 Private Sub cmdFilter_Click() 　　If IsNull(txtFilter.Value) Then 　　　　FilterOn = False 　　Else 　　　　Filter = "Code LIKE """ & txtFilter.Value & "*""" 　　　　FilterOn = True 　　End If End Sub としました。（見やすくするため全角空白を使用しています。） さらに、txtFilter に 8文字 ( Code フィールドのフィールドサイズ ) 以上は入力できないようにしようと思い、 Private Sub txtFilter_KeyPress(KeyAscii As Integer) 　　If KeyAscii <> 8 Then 　　　　'Delete 以外の場合 　　　　If Len(txtFilter.Text) = 8 Then 　　　　　　KeyAscii = 0 　　　　End If 　　End If End Sub としましたが、ここで問題が起きました。 ・FilterOn = False あるいは、 ・FilterOn = True でも何レコードが表示されている状態（該当レコードが存在する文字が txtFilter に入力されている） という場合は良いのですが、該当レコードが存在しない場合、 txtFilter に入力されている文字を変更しようとすると、 txtFilter_KeyPress() 中の If Len(txtFilter.Text) = 8 Then のところで「実行時エラー'2185' コントロールがフォーカスを取得していないときに、コントロールのプロパティまたはメソッドを参照することはできません。」となってしまいます。 入力中のコントロールですから、「そんな馬鹿な！？」という感じなんですが、 If Len(txtFilter.Text) = 8 Then の前に txtFilter.SetFocus を入れても状況は同じでした。 フォームの「AllowAdditions/追加の許可」プロパティを「はい」にすれば、上記のようなエラーは発生しないのですが（なぜ、「AllowAdditions/追加の許可」プロパティの違いでそのようなことになるのかは理解できませんが）、ユーザーにデータの変更や追加、削除はさせたくないテーブルなので、追加を許すわけにもいきません。 何かいい回避方法はありませんでしょうか。 よろしくお願いします。

  • 16進数

    Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= Asc("a") And KeyAscii <= Asc("f") Then Else KeyAscii = 0 Beep End If End Sub 上のソースだと数字が入りません。 どうすれば入力できますか。 ※ｚと入れると強制終了になってしまうので、上のソースを入れたんですが・・・ ※タグが崩れて見にくくてすいません

  • ACCESS2003のテキストボックスの最大桁数について

    Access2003のテキストボックスには、MaxLengthプロパティがありません。変わりに以下のような、コードで対応しようと試みたのですが、いまいち動きが悪いのです。以下のコードは、最大4桁までテキストボックスに入力可能とします。 Private Sub txtBox_KeyPress(KeyAscii As Integer) 　　If Len(txtBox.Text) > 3 Then 　　　　KeyAscii = 0 　　End If End Sub 最大入力桁数4桁を実現していますが、4桁入力後『Insert』キーを押下して、上書きモードでの修正ができません。 以下例１はＯＫですが、例２が実現できません。 例１：１回目新規入力『12』　⇒　２回目修正『123』⇒３回目修正『1234』 例２：１回目新規入力『1234』 ⇒　２回目修正『9999』 VBのMaxLengthプロパティのようなことはできないのでしょうか？

  • 文字をアクティブにする方法

    テキストボックスを２つ作成(text1,text2)し、 text2にはあらかじめ文字を入れておきます。 text1からtext2へTabキーで移動したときに、 text2に入力されている文字がアクティブ(反転というのでしょうか) にすることはできますか？ つまりアクティブになっていれば、文字の書き換えをしたいときに、 「BackSpace」キーなどで削除しなくても、 そのまま文字を打てば上書きされるようにしたいのです。 ご存知のかたがおりましたら教えてください。 Private Sub text1_Change() SendKeys "{tab}", False 'text2へ移動する End Sub

  • vb作成したらでbeep音が鳴ります。経験あるかたお願いします。

    KeyPressイベントを追加して、データ入力後にエンターキーを押すとbeep音が鳴ります。ほかではescキーも鳴りますが、その他は鳴らないで動くようです。 単純に新規作成から、Form1へtestテキストコントロールを追加して、以下の記述をしただけなのですが、どうしてなるのか原因がわかりません。 Private Sub test_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then test.text="ok" End If End Sub　←この次でbeep音！ 環境はvb6.0、windows2000。 仕様なのでしょうか？ ハード側の問題なのでしょうか？ 経験あるかた宜しくお願い致します。

  • テキストボックスの文字列の変更

    windows7 excel2007でマクロ作成中の超初心者です。 エクセルファイルを開くと、ユーザーフォームが表示され そこにテキストボックスとコマンドボタンがあります。 ーーーユーザーフォームーーーーー Private Sub UserForm_Initialize() With TextBox1 TextBox1.Value = Range("Z1").Value End With End Sub ーーーテキストボックスーーーーー Private Sub TextBox1_Change() Range("Z1") = TextBox1.Value End Sub ーーーコマンドボタンーーーーー Private Sub CommandButton83_Click() Range("Z1").Value = TextBox1.Value ActiveWorkbook.Save End Sub 以上のコード四苦八苦して考えました。 そして、常にZ1の文字列が、表示され　その文字列を変更して コマンドボタンをクリックすると、変更された文字列が表示されます。 自分の思うとおりにできました。 しかし、あまりに稚拙なコードで、特に ActiveWorkbook.Save なんていうコード使用したくないのです。 もっと効率的なコードはどうしたらよろしいでしょうか。

  • htmlのテキストボックスに書かれた文字によって

    htmlのテキストボックスに書かれた文字によって表示する文字を変えたいのですが、コードがいまいちどうやって書いていいかわからないのでコードを教えて下さい。よろしくお願いします。 一応できなかったコード↓ <Form name="js"> <input type="text" name="txtb"> </Form> <script> <br> if(document.js.txtb.value="a"){document.write("a")} </script>

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する