VB初心者友の会 - Q&A掲示板過去ログ

> 質問です。
> テキストボックスに文字などを入力して、
> Ｅｎｔｅｒキーを押したときにフォーカスが移動するプログラムを
> 作ったのですが、移動するのと同時にＢｅｅｐ音がなってしまいます。
> プログラムは
>     If KeyCode = vbKeyReturn Then
>         KeyCode = 0
>         cmdTuika.SetFocus
>     End If
KeyPress イベントで、KeyAscii = 0 にすればＯＫですよ

ありがとうございます。
実行できました！！

すみませんが教えてください。

テキストボックスに文字を入力し、
リターンキーを押したときに入力した文字をチェックする処理を作成しているのですが、
現在、同様にBeep音が鳴ってしまいます。

KeyPress イベントのKeyAscii でリターンを判別してチェック処理を行っています。
チェック前にKeyAscii =0を入れてみたのですが、
Beep音が鳴ってしまいます。
ヘルプをみて調べましたがよくわかりません。

もうしわけないですが、もう少し教えてください。


> > 質問です。
> > テキストボックスに文字などを入力して、
> > Ｅｎｔｅｒキーを押したときにフォーカスが移動するプログラムを
> > 作ったのですが、移動するのと同時にＢｅｅｐ音がなってしまいます。
> > プログラムは
> >     If KeyCode = vbKeyReturn Then
> >         KeyCode = 0
> >         cmdTuika.SetFocus
> >     End If
> KeyPress イベントで、KeyAscii = 0 にすればＯＫですよ

> テキストボックスに文字を入力し、
> リターンキーを押したときに入力した文字をチェックする処理を作成しているのですが、
> 現在、同様にBeep音が鳴ってしまいます。

先の回答の通りにきちんとやっているなら、鳴らないはずです。

> KeyPress イベントのKeyAscii でリターンを判別してチェック処理を行っています。

最初の投稿の引用中のコードを見ると
元々のコードはKeyDownイベントで引数KeyCodeをチェックしていたようですが、
それをやめて、KeyPressイベントで書き直したのでしょうか？

> チェック前にKeyAscii =0を入れてみたのですが、

この文章を文字通りに捉えると、
Private Sub Text1_KeyPress(KeyAscii As Interger)
    KeyAscii = 0

    ' 以下チェック処理

といった記述をされているように取れますが、それだとチェック処理が正しく行えません。

> Beep音が鳴ってしまいます。
> ヘルプをみて調べましたがよくわかりません。

現在、そのKeyPressイベントには具体的にどう記述されているのですか？
イベント部分をそのまま抜き出して載せてもらえば何がまずいのか
わかるかもしれません。

後、開発環境について書かれていないようですが、環境は何ですか？
OSの種類やバージョン、VBのバージョンやSPも書きましょう。

> > テキストボックスに文字を入力し、
> > リターンキーを押したときに入力した文字をチェックする処理を作成しているのですが、
> > 現在、同様にBeep音が鳴ってしまいます。
> 
> 先の回答の通りにきちんとやっているなら、鳴らないはずです。

自分がよくわかっていない？、修正がうまくいっていないだけと思います(T^T)


> > KeyPress イベントのKeyAscii でリターンを判別してチェック処理を行っています。
> 
> 最初の投稿の引用中のコードを見ると
> 元々のコードはKeyDownイベントで引数KeyCodeをチェックしていたようですが、
> それをやめて、KeyPressイベントで書き直したのでしょうか？

最初からkeyPressを使用してチェックしています。
keyDownイベントは使っていません。
 

> > チェック前にKeyAscii =0を入れてみたのですが、
> 
> この文章を文字通りに捉えると、
> Private Sub Text1_KeyPress(KeyAscii As Interger)
>     KeyAscii = 0
> 
>     ' 以下チェック処理
> 
> といった記述をされているように取れますが、それだとチェック処理が正しく行えません。

わかりにくくて 申し訳ありません。
下記のようにしています。

Private Sub DataText_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then

        KeyAscii = 0　　　　←　ここに追加

        'チェック処理
　　　　　　　：
　　　　　　　：

　　end if
End Sub


> > Beep音が鳴ってしまいます。
> > ヘルプをみて調べましたがよくわかりません。
> 
> 現在、そのKeyPressイベントには具体的にどう記述されているのですか？
> イベント部分をそのまま抜き出して載せてもらえば何がまずいのか
> わかるかもしれません。
> 
> 後、開発環境について書かれていないようですが、環境は何ですか？
> OSの種類やバージョン、VBのバージョンやSPも書きましょう。

環境は、win2000／VB6(SP5)です。

たびたび申し訳ありませんが、宜しくお願いします。

>>> リターンキーを押したときに入力した文字をチェックする処理を作成しているのですが、
>>> 現在、同様にBeep音が鳴ってしまいます。

Len(Text1.Text) ≧ Text1.MaxLength の状態になっていたりはしませんか？

> >>> リターンキーを押したときに入力した文字をチェックする処理を作成しているのですが、
> >>> 現在、同様にBeep音が鳴ってしまいます。
> 
> Len(Text1.Text) ≧ Text1.MaxLength の状態になっていたりはしませんか？

なっています。
文字制限をしているのでほとんどLen(Text1.Text) ＝ Text1.MaxLengthです。
このときはBeep音を消すことはできないのでしょうか？

何か手がありましたら教えてください。
 

>>>>> リターンキーを押したときに入力した文字をチェックする処理を作成しているのですが、
>>>>> 現在、同様にBeep音が鳴ってしまいます。
>> Len(Text1.Text) ≧ Text1.MaxLength の状態になっていたりはしませんか？
> なっています。
> 文字制限をしているのでほとんどLen(Text1.Text) ＝ Text1.MaxLengthです。
> このときはBeep音を消すことはできないのでしょうか？

文字チェックを、DefaultなCommandButtonのClickイベントで行うようにすれば、
MaxLength≠0の状態でも、音は出なくなります。(この場合、KeyPressイベントは未使用です)
この方法を用いる時には、CommandButtonをユーザーからは見えない位置
(例えば、他のコントロールの下や、フォームのマイナス座標など)に配置し、
TabStopをFalseに設定しておけばよいでしょう。

KeyPressで処理しないとコーディング修正が大変というのであれば、
MaxLengthを0に戻すしかないと思います。
この場合は、MaxLengthの代わりに、EM_LIMITTEXTメッセージで
制限をかけるようにすればよいと思います。

ただし、EM_LIMITTEXTメッセージを使うと、MaxLengthプロパティでの
「文字数単位の制限」ではなく、「バイト数単位での制限」となってしまいます。

それだと都合が悪いという場合は、バイト数制限をKeyPressやChangeで行うか、
テキストボックス自体をフックして、Enter押下の通知を握りつぶすしかないと思います。