asked on

How to send shif+enter when enter key is pressed

I have a richtextbox control on a form. If a user presses enter on the richtextbox I want to send a shift+enter instead. Problem with my code is it goes into an infinate loop.

Private Sub txtNotes_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNotes.KeyDown
        If e.KeyCode = Keys.Enter Then
            e.Handled = True
            SendKeys.Send("+ENTER")
        End If
    End Sub

Open in new window

tbeck1983

ASKER

I forgot to mention the reason I want to shif+enter is because my richtextbox is a bullet list and after each bullet I want a blank line.

SOLUTION

VBRocks

membership

Create a free account to see this answer

Signing up is free and takes 30 seconds. No credit card required.

See answer

tbeck1983

ASKER

Thank's for the quick post. However, it still loops on the sendkeys event.

ASKER CERTIFIED SOLUTION

VBRocks

membership

Create a free account to see this answer

Signing up is free and takes 30 seconds. No credit card required.

See answer

tbeck1983

ASKER

Thanks for the reply. It still loops though.

VBRocks

Really? I did it on my pc, it only executed once. Sorry it's not working for you.

Mike Tomlinson

How about this instead?...

Just check to see if Shift is pressed down with Enter...and if not, send it:

    Private Sub txtNotes_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNotes.KeyDown
        If Not e.Shift AndAlso e.KeyCode = Keys.Enter Then
            e.Handled = True
            SendKeys.Send("+{ENTER}")
        End If
    End Sub

Open in new window