enter key as a tab

[michelleHEC]

my code to have an enter key work as a tab key worked at first but now it will not work. has anyone any ideas? here is the code.

Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
Dim ctl As Control = Me.ActiveControl

If TypeOf ctl Is TextBox And e.KeyValue = Keys.Enter Then
Me.SelectNextControl(ctl, True, True, True, True)
e.Handled = True
End If
End Sub
thanks,
Michelle

 

[earthandfire]

The only thing that I can think of that would stop it from working would be that you have accidently changed KeyPreview on the form back to False - it has to be True for your code to work.



Hope this helps.

 

[michelleHEC]

I had set it to true already and it still is true. so wierd for it to work and then all of a sudden, stop working.
thanks for the reply though!
michelle

 

[chrissie1]

Is the event firing?

Christiaan Baes
Belgium

I just like this --> [Wiggle] [Wiggle]

 

[michelleHEC]

yes
and when I step through it the e.KeyValue = Keys.Enter are both 13 and the ctl is textbox but it fails the if statement.

 

[Ruffnekk]

Change And to AndAlso in the if statement or use parentheses:

If TypeOf ctl Is TextBox AndAlso e.KeyValue = Keys.Enter Then

If (TypeOf ctl Is TextBox) And (e.KeyValue = Keys.Enter) Then

maybe that'll work

Regards, Ruffnekk
---
Is it my imagination or do buffalo wings taste just like chicken?

 

[michelleHEC]

neither worked. what is really weird is that it worked at first but when I deployed it that is when it stopped working...

 

[michelleHEC]

ok I have it working but I had to take out this part...

TypeOf ctl Is TextBox and

I still don't know why that was stopping it but at least now it is working.

Thanks again for all your help.
Michelle

 

[mansii]

Is this correct?

Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)

or maybe be

Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

Regards

 

[michelleHEC]

the top one is the one I am using. it sees the procedure just wouldn't give the textbox boolean a true value but once I removed that it worked.

 

[Ruffnekk]

well then I'm curious about what is returned if you insert a messagebox:

Dim ctl As Control = Me.ActiveControl
MsgBox(ctl.ToString)

The result should be something similar to:

"System.Windows.Forms.TextBox, Text: TextBox1"

Regards, Ruffnekk
---
Is it my imagination or do buffalo wings taste just like chicken?

 

[michelleHEC]

when I do that I get the System.Windows.Forms.TextBox, Text:

 

[Ruffnekk]

That makes it even more odd that "TypeOf ctl Is TextBox" is not returning True... beats me for now

Regards, Ruffnekk
---
Is it my imagination or do buffalo wings taste just like chicken?

 

[michelleHEC]

I know, but since I have it working without the "TypeOF ctl is TextBox" I am going to move on to my new thing I cannot get working!

 

[Ruffnekk]

Ok I'll be on the watch for a new topic by you then *lol*

Regards, Ruffnekk
---
Is it my imagination or do buffalo wings taste just like chicken?