Making ENTER key behave like the TAB key... 1

[mhendo59]

I am writing a program which consists of several text boxes. I have the tab stops set where you can tab from one text box to another.

I am trying to set the ENTER key to behave in the same way as the TAB key but I'm not quit sure how to go about this. I figure I need the ASCII character for the ENTER key equal to the tab key but that's the extent of it.

Any help is qreatly appreciated.

-Hendo

 

[oneshadow]

Put this code on KeyDown event of text box :

If KeyCode = vbKeyReturn Then SendKeys "{Tab}"

 

[mhendo59]

Thanks Oneshadow,

That did the trick!

-Hendo

 

[Guest_imported]

Salut tt le monde
SVP J ai besoin d'un exemple d'utilisation de l'objet Onglet dans un programme VB5
Merci

 

[edderic]

a better way then SenKeys (and No Beeps ) :

Public Const WM_KEYDOWN = &H100
Public Declare Function PostMessage Lib "User32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Sub TabOnEnter(KeyAscii As Integer)

On Error Resume Next
If KeyAscii = vbKeyReturn Then
If TypeOf Screen.ActiveControl Is TextBox Then
If Screen.ActiveControl.MultiLine Then Exit Sub
End If
KeyAscii = 0
PostMessage Screen.ActiveControl.hwnd, WM_KEYDOWN, vbKeyTab, 0
End If
End Sub

In The keyPress of a control type :

TabOnEnter KeyAscii

Eric De Decker
vbg.be@vbgroup.nl

Licence And Copy Protection AxtiveX
Source CodeBook for the programmer

http://www.createsoftware2000.com

 

[swilliams]

Or you could do this (a variation on Eric's method):

Sub TabOnEnter(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
If TypeOf Screen.ActiveControl Is TextBox Then
If Screen.ActiveControl.MultiLine Then Exit Sub
End If
KeyAscii = 9 ' tab
End If
End Sub

In The keyPress of a control type :

TabOnEnter KeyAscii
Simon