Trap double quotes in KeyDown [Resolved]

[salvelinus]

I want to trap the keystroke for double quotes and prevent the user from entering it in some text boxes. In VBA, the code would be like this:

If KeyCode = 34 Then
    DoCmd.CancelEvent

After searching the forum, I came up with this for the vb.net version:

Private Sub txtModName_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtModName.KeyDown
        If Asc(e.KeyCode) = Keys.OemQuotes Then
            e.Handled = False
        End If
    End Sub

But it doesn't work. When I put a breakpoint in and check the e.keycode, it shows the Shift key used to get the doublequotes; oemquotes is 222. How can I trap this? Thanks.

[RichardAtherton]

use the Key Press event and set e.handled to true will ignore the "

[Pirate]

This will work .

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.Shift = True And e.KeyValue = 222 Then
            MessageBox.Show("You pressed Shift + Quote button")
          'Or handle it the way you like 
        End If
End Sub

[salvelinus]

Well, that doesn't work. e.shift = true, but e.keyvalue = 16, which is the "data link escape" character, whatever that means. This is a standard keyboard.
KeyPress doesn't intercept the Shift character like KeyDown does, but it doesn't have the same properties.
There's another weird problem with the textboxes, maybe they're related, though I don't see how. I get the user name via API, it shows fine in a msgbox, but won't show in the textbox, even though setting a breakpoint and checking the value if text1.text shows the value there.

[Pirate]

Impossible . Try it here .

[salvelinus]

I get an error "Not a valid solution file" when I try to open the uncompressed file. The code .vb file opens ok, but no design .vb
I'm using .net 7.0, if that makes a difference, and keypreview is set to true on the form.
I think what's happening is that the keydown event first catches the shift press, so e.shift is true, but it doesn't catch the e.keyvalue till the next press, where shift is no longer in the keydown event. At this point, e.keyvalue does equal 222. Anyway, I've tried different variations, and the quotes still display.
This is a minor part of the program, could probably skip it, but it bugs me.

[Pirate]

The attached project is VB.NET 2003 . Basically , you need VB.NET 2003 to run the proj or get it converted with the tool in my signature . Concering the keyvalue of DQoutes , which I got it by different project (look the attachement) , I showed you how to detect while these combination are being pressed , then it's your part to handle them .

[salvelinus]

Thanks for all your help, Pirate, I really appreciate it. I solved it a different way:

Private Sub txtModName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtModName.KeyPress
        If e.KeyChar = Chr(34) Then
            e.Handled = True
        End If
    End Sub

Now on to seeing why the username doesn't show in the textbox, even though putting a watch on the text property in code shows it there.

[Pirate]

Good it's working now .

I can't guess why it's not showing since I didn't see the code but initially store the retrieved value in a string variable and use the variable into the messagebox .

[Pirate]

What username are you trying to get ?