Using Enter Key without Beep in TextBox 2

[JohnVogel]

Hello,

I'm building a simple form, with a textbox and no buttons. I have it so that when a user presses the Enter Key it will simply add the text to a list (as well as writing it to a file) and then blank the line waiting for another line of text. Everything is working great, except I cannot seem to get it to stop doing that "BEEP" everytime I press Enter. Here is the code I am using to allow the Enter Key to do it's thing. Any help would be greatly appreciated.

Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Enter Then
            FileOpen(1, ThisFile, OpenMode.Append)
            ThisLine = TextBox2.Text
            PrintLine(1, ThisLine)
            ListBox1.Items.Add(ThisLine)
            I = I + 1
            TextBox2.Text = ""
            FileClose(1)
        End If

-+{John Vogel}+-

 

[ThatRickGuy]

does e have a .Handled member? I can never remember which key events do.

Anyway, if it does, you can use e.handled to prevent the beep.

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[SqueakinSweep]

In the Keypress event, to stop beep on Enter and Escape

' Ignore ENTER(13) to stop beeping 
If e.KeyChar = ChrW(13) Or e.KeyChar = ChrW(27) Then e.Handled = True

Sweep
...if it works dont mess with it

 

[chrissie1]

never noticed it beeped on escape.

Christiaan Baes
Belgium

If you want to get an answer read this FAQ faq796-2540
There's no such thing as a winnable war - Sting

 

[SqueakinSweep]

only on UK keyboards chrissie!

Sweep
...if it works dont mess with it

 

[JohnVogel]

I keep getting this error: 'KeyChar' is not a member of 'System.Windows.Forms.KeyEventArgs'.

Okay, what am I doing wrong now?



-+{John Vogel}+-

 

[ThatRickGuy]

instead of checking for keychar, just use the

e.KeyCode =Keys.Enter

check.

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[JohnVogel]

I've just about tried everything... I'm too new to this VB .net, and it's so much different from VB 6 I am just lost. I tried this (to keep from getting the error):

Dim keyPressEventArgs1 As KeyPressEventArgs
Dim returnValue As Char


Sub KeyPressed(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
   
   returnValue = keyPressEventArgs1.KeyChar
   If returnValue = ChrW(13) Then e.Handled = True

End Sub

But it doesn't seem to work. I tried just putting the e.handled in my code like this:

If e.KeyCode = Keys.Enter Then
            e.Handled = True
            FileOpen(1, ThisFile, OpenMode.Append)
            ThisLine = TextBox2.Text & " |"
            ...
End If

But that doesn't seem to work, either. Neither of the above code returns any kind of error, but it also doesn't take care of the beep either.

Is there some special way I have to define the event handler in order to use this?

Thanks.

-+{John Vogel}+-

 

[ThatRickGuy]

I just tried this and it worked fine (no beep):

  Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

    If e.KeyChar = ControlChars.Cr Then
      e.Handled = True
    End If
  End Sub

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[JohnVogel]

Excellent! That was it, Rick! Thank you so much. So the problem was that I was using KeyDown instead of KeyPress, I guess. So here is the final code (for anyone interested) that actually finally (thank God) works!

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

        If e.KeyChar = ControlChars.Cr Then

            e.Handled = True
            FileOpen(1, ThisFile, OpenMode.Append)
            ThisLine = TextBox2.Text & " |"
            PrintLine(1, ThisLine)
            ThisLine = I & ". " & ThisLine
            ListBox1.Items.Add(ThisLine)
            I = I + 1
            TextBox1.Text = I
            TextBox2.Text = ""
            FileClose(1)

        End If

    End Sub

Thanks again, Rick!

-+{John Vogel}+-

 

[SqueakinSweep]

John
If you read my post, it clearly mentions the keypress event.


Sweep
...if it works dont mess with it

 

[JohnVogel]

Well, how do you like that? SqueakinSweep already done told me about that keypress event, and I totally missed it. Thanks SquekinSweep, I guess I didn't read your post too closely, would have saved me some time (and headaches).

-+{John Vogel}+-

 

[SqueakinSweep]

No problem John
And honestly I wasnt begging for a star either


Sweep
...if it works dont mess with it

 

[JohnVogel]

No, I know, but you deserve a star, you gave me the answer way back there! Just because I was too dense to see the answer right in front of my face doesn't mean you didn't do a great job of answering my question. The only difference was that Rick actually posted some code to show me what you already told me :-D

-+{John Vogel}+-