Handle KeyDown Event...Get rid of Beep?

[bitwise]

I have a simple textbox that processes the KeyDown event so that when the user hits the 'Enter' key it performs the necessary function. My question is, it makes a beep sound when you hit 'Enter' and process the event. Can I get rid of this beep sound somehow?

Thanks,
-bitwise

FYI, HERE IS THE CODE:

Private Sub TextBoxDeposits_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxDeposits.KeyDown
If TextBoxDeposits.Text <> [String].Empty Then
If e.KeyCode = Keys.Enter Then
Dim decCurDeposit As Decimal
Dim strCurDeposit As String

decCurDeposit = CDec(TextBoxDeposits.Text)
strCurDeposit = decCurDeposit.ToString("c")

myDeposits = myDeposits + decCurDeposit

LabelTotal.Text = myDeposits.ToString("c")
ListBoxDeposits.Items.Add(strCurDeposit)

TextBoxDeposits.Text = ""
e.Handled = True
End If
End If
End Sub

 

[JohnYingling]

Setting e.Handled = True in KeyDown has no effect for any key that can be processed by KeyPress.

If you put a breakpoint in the KeyPress, you will see the Enter key come thru even if e.Handled was set in KeyDown.

You set e.Handled in KeyPress to stop the beep.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[bitwise]

Ok, I tried this, but I still get the beep sound. I set e.Handled to true in the KeyPress event; however, I still got the beep. Is there more to it then this?

Thanks,
-bitwise

 

[JohnYingling]

Nothing more. Did you step through the KeyPress when pressing enter? How are you checking for the Enter Key?

Ex.

If e.KeyChar = System.Convert.ToChar(13) Then
e.Handled = True
End If

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[ClayG]

Back in VB6 the answer was to set the keycode to zero, don't know if that would work ?
e.KeyCode = 0

 

[JohnYingling]

There is no e.KeCode in KepPress and e.KeyChar is ReadOnly.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[Kris11]

This is what we did. Another simple approach, but not a great one is placing an invisible button in your form and setting that as the AcceptButton of the form.

-Kris

 

[bitwise]

Thanks guys. The code definitely has to be in the KeyPress event and not in the KeyDown event. Then you just have to do this:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If TextBox1.Text <> [String].Empty Then
If e.KeyChar = System.Convert.ToChar(13) Then
' do whatever
e.Handled = True
End If
End If
End Sub

Thanks again!
-bitwise

 

[JohnYingling]

Just Curious. I do not know why you would need

If TextBox1.Text <> [String].Empty Then

given that you do nothing with TextBox1.Text anyway.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[bitwise]

Ok, you don't need that line, that is for my own use. Notice the "' do whatever" comment in the above code snippet? It has something to do with something else I'm doing.

-bitwise

 

[JohnYingling]

OK. Gotcha.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing

http://www.VBCompare.com

Compare Code

http://www.VBSortGen.com

Generate Sort Class in VB

http://www.Vbcompare.com/Check.Htm(1979

Check To MS)

 

[dalvarezmtz]

Heeeelp!!!

There is a beep whenever i press enter at a textbox..
how can i get rid of it...

Here is my code.. hope anyone knows..

thanks in advance guys....

Private Sub txtfrecval_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtfrecval.KeyDown
If e.KeyCode = Keys.Enter Then
txtvalfrec.Focus()
e.Handled = True
End If
End Sub
Private Sub txtvalfrec_Keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtvalfrec.KeyDown
If e.KeyCode = Keys.Enter Then
Me.frecuencias()
txtfrecval.Clear()
txtvalfrec.Clear()
txtfrecval.Focus()
e.Handled = True
End If
End Sub

 

[bitwise]

Code has to be handled in the KeyPress event...and not the KeyDown event. That should do it.

-bitwise