ビープを鳴らさずにフォーカスを移動するには？

解決

α 2001-03-28 01:02:06 No: 74056

テキストコントロールで

Private Sub Text1_KeyPress(KeyAscii As Integer)

というプロシージャをだし、はじめの行を

If Not (KeyCode = vbKeyReturn) Then Exit Sub

とし、Returnキーが押された時の処理を記述したのですが、
Returnキーを押すたびにビープが鳴りうるさいので
音が鳴らないように出来るのでしょうか。

ZORO 2001-03-28 03:20:50 No: 74057

KeyCode = 0 で音が消えると思います。

α 2001-03-28 20:20:49 No: 74058

ZOROさんのいってくれた KeyCode=0 ですが、
どこに宣言し、何の意味を持つのか教えてください。

ZORO 2001-03-30 00:13:23 No: 74059

KeyAsciiの間違いでした。これで良いはずです。

Private Sub Text1_KeyPress(KeyAscii As Integer)

    'ReturnキーのBEEP音を消す
    If KeyAscii = vbKeyReturn Then KeyAscii = 0

End Sub

ただしプロシージャの頭でKeyAscii = 0にすると、何が押されたか解らなくなりますので注意して下さい。

α 2001-03-30 21:31:35 No: 74060

まったく鳴らなくなりました。
どうもありがとうございました。

α 2001-03-30 21:33:27 No: 74061

解決