• ベストアンサー

keyascii=13

if keyascii=13 then text1.setforcus end if とすると,プログラム自体に問題はないのですが, beep音が鳴ってしまいます。 上記のプログラムでしたいことはenterボタンを押すと 次のtextボックスに移りたいのですが, beep音が鳴らないようには出来ないのでしょうか。 ほかにこの方法以外にenterボタンを押したら 次のテキストボックスに移れる方法があれば,教えてください。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • haporun
  • ベストアンサー率40% (230/562)
回答No.1

Enterを押すと、13番と同時に10番のキーコードも送られます。 もしかすると、13番が押された直後次のボックスに移って、そのボックスに10番だけ送られているので、怒っているのかもしれません。 次のボックスのキーイベントで、10番だけ送られていないか確認してみてください。

nox_neo
質問者

お礼

早速のご返事ありがとうございました。 ご指摘のとおりでした。 どうもありがとうございました。

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

関連するQ&A

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

    簡易チャット作ってます。発言者の名前の部分だけ太文字にしようとしてい ます。 テキストボックス２に文を書いてエンターを押すとテキストボックス１に書 花子：～～～　　と書き込まれるようにはできました。花子の部分 だけふと文字にするには？？ 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

  • 16進数

    （.net） テキストボックスに１６進数のみ入力が出来るようにするにはどうすればいいのｄしょうか？ VB６では下記ので出来たと思うのですが　netではできないのです。 教えて下さい。 If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Else If KeyAscii >= Asc("a") And KeyAscii <= Asc("f") Then Else KeyAscii = 0 Beep End If End If

  • VB6 テキストとSetfocus

    今テキストボックスからテキストボックスへ focusを写すのをやっていたのですが、 TEXT1　から　TEXT2へ入力した後エンターキーを押したらfocusを写すというのを設定したところ ちゃんとカーソルは移動するのですが どうしてもエラー音が出てしまいます。 現在KEYPRESSに If KeyAscii = 13 Then Text2.SetFocus End If このように書いているのですがなにか間違ってるのでしょうか？ エラー音を出さない方法をどなたかご教授ください

  • 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。 仕様なのでしょうか？ ハード側の問題なのでしょうか？ 経験あるかた宜しくお願い致します。

  • 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 上のソースだと数字が入りません。 どうすれば入力できますか。 ※ｚと入れると強制終了になってしまうので、上のソースを入れたんですが・・・ ※タグが崩れて見にくくてすいません

  • キー入力を制限しつつ、Ctrl+CやCtrl+Vを活かすには？

    数字とバックスペース以外入力できないテキストボックスTextBoxAを作りました。 Private Sub TextBoxA_KeyPress(KeyAscii As Integer) If KeyAscii <> vbKeyBack Then If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End If End If End Sub と記述しましたが、Ctrl+CやCtrl+Vが効きません。 右クリックでコピー、ペーストはできるのですが、コントロールキー によるコピペを可能にするにはどうしたらいいでしょうか？ どなたかよろしくお願いします。

  • 効率の良いテキストボックスの検知について

    VB6の初心者です。質問させていただきます。 画面上に5つのテキストボックス（TEXT1、TEXT2、TEXT3、TEXT4、TEXT5）と １つのコマンドボタン（Cmd_SAVE)があり、 画面上の５つのテキストボックスをすべて記入し、 コマンドボタンを押すと、登録確認のメッセージボックスが表示され、 OKボタンを押すと、サーバへ転送され、 画面上のテキストボックスにひとつでも空欄があると、どのテキストボックスが 空欄であるかを示すメッセージが表示される処理をさせています。 そこで質問なのですが、今、メッセージボックス、登録処理は出来るようになったのですが、 とても処理の効率が悪い、もっと空欄を確認するのにすっきりとしたコードはある、と知り合いに言われました。 おそらく、繰り返し等を用いると思うのですが、メッセージにそれぞれのオブジェクト名を代入するやり方がわかりません。 下記が今のコーディングです。 Private Sub Cmd_SAVE_Click() 　　If TEXT1.Text = "" Then 　　　　　MsgBox "TEXT1が登録されていません", vbOKOnly, "警告" 　　　　Exit Sub 　　End If 　　If TEXT2.Text = "" Then 　　　　　MsgBox "TEXT2が登録されていません", vbOKOnly, "警告" 　　　　Exit Sub 　　End If 　　If TEXT3.Text = "" Then 　　　　　MsgBox "TEXT3が登録されていません", vbOKOnly, "警告" 　　　　Exit Sub 　　End If 　　If TEXT4.Text = "" Then 　　　　　MsgBox "TEXT4が登録されていません", vbOKOnly, "警告" 　　　　Exit Sub 　　End If 　　If TEXT5.Text = "" Then 　　　　　　MsgBox "TEXT5が登録されていません", vbOKOnly, "警告" 　　　　Exit Sub 　　End If 　　If MsgBox("入力データを登録しますか?", vbOKCancel, "登録確認") = vbCancel Then 　　　　Exit Sub 　　End If 　　End If ～登録処理～ End Sub どのような書き方がきれいで、効率的なコーディングなのでしょうか? ご教示お願いします！

  • KeyPressイベントのビープ音

    VB2008です。 Text1でEnterを押すとText2にフォーカスを移す、という処理をしたいのですが、 Private Sub Text1_KeyPress(引数省略) 　If e.Keychar=Chr(13) then 　　Text2.Focus 　End If End Sub これだとビープ音が鳴ってしまいます。 鳴らないようにするには、どうしたらいいのでしょうか？

  • テキストの入力時、カーソルの移動をスムーズにしたい

    　VB6で複数入力項目(テキスト/コンボボックス等)がある画面を作っているのですが、文字が最大桁数に達したら、次のコンボボックスへカーソル（＝フォーカス）を移動し、次の入力項目へを行いたいのですが、 どうも思った様に、移動しないです。 　以下は半角数字項目が最大文字数に達した場合、次のインプットボックスへフォーカスが移動する様に組んでみました。 Private Sub Txt_Input_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0 If Len(Txt_Input.Text) >= (Txt_Input.MaxLength - 1) Then Txt_Input2.SetFocus End If End Sub ところが、バックスペースでも１文字分と捉えてしまう様で、３文字入力の場合等は先頭から入力し直さないと、再入力も儘ならない状態です。 何かバックスペースも自然に効く形で同様の制御は行えないものでしょうか。 (尚、MaxLength - 1の部分は－１しないとフォーカスが動きませんでした。)

  • Textboxの制御について

    現在年月日をmdbに格納するために Format(Text1(0), "0000") & Format(Text1(1), "00") & Format(Text1(2), "00") とプログラムしているのですが、このままだとインデックス(0)、(1)は空白の場合データがつめられて格納されてしまいます。 そこでIf Text1(0) = "" Then Text1(0).Text = "0000" End If If Text1(1) = "" Then Text1(1).Text = "00" End If と制御しているのですがこれだとTextBoxに0が表示され不具合がでてきてしまうのです、、、 これを防ぐにはどのようなプログラムをくむべきでしょうか、、、

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する