get 'ping'-sound

[Maxasoft]

I've made a program and if I want to change the focus from text1 to text 2 I do this:
--------------------
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub
--------------------
but when I press the enter key, I get a 'ping'-sound.
how can I make this disappear?

martijn

[rjlohan]

Check your system sound settings. VB doesn't do this by itself, but perhaps you have a sound event set up which is raised in this instance.
Do you have a sound set up for all options in the sound menu?

[Maxasoft]

I know why the sound commes but I hoped that I could make it disappear in the program without removing it from the sounds menu.

thanx for your reply anyway!

martijn

[flavorjatin]

if u wanna do it programatically then these 2 APIs must be of some help - GetLocaleInfo and SetLocaleInfo.

I've not tried this but I've changed date settings programatically through these API's. You may try further.

Bye.

[BrianHawley]

Just change your code to this and it should work. (NB It's in a different event.)

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0
    Text2.SetFocus
  End If
End Sub

[Maxasoft]

I'll try it!

martijn