Enable ctrl+S as a short cut for save button

Question

0.00/5 (No votes)

See more:

my code is :

VB

'Private Sub ExpenseMaster_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

 '    If (e.KeyCode = Keys.S && e.Control) Then


   '        Save.PerformClick()
   '    End If
   '
   'End Sub

Help me out how to enable ctrl + s in vb.net?

I have also tried SendKeys.Send(^{s}) to get short cut enabled.
Please help me out.

Posted 18-Sep-10 8:40am

parchuri08

Updated 18-Sep-10 9:41am

Sandeep Mewara

v2

Add a Solution

Comments

Richard MacCutchan 18-Sep-10 15:49pm

Since all the above is a comment it is unlikely to do anything, let alone what you are asking for!

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Henry Minute · Answer 1 · 2010-09-18T11:06:00

Solution 1

This works for me.

Excuse the code style please, I'm not used to VB.Net

VB

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MessageBox.Show("Save Called")
End Sub
Private Sub Button1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
    If e.Control Then
        If e.KeyCode = Keys.S Then
            Button1.PerformClick()
        End If
    End If
End Sub

I have just noticed that you want a lower case 's', so modify my code appropriately.

Posted 18-Sep-10 11:06am

Henry Minute

Updated 18-Sep-10 11:08am

v2

Comments

parchuri08 21-Sep-10 4:30am

Ctrl+S button code you had given really helped as i kept that code in form_keydown event . I got the output. Thanx a lot.
Private Sub GroupMaster_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.Control Then
If e.KeyCode = Keys.S Then
Save.PerformClick()
End If
If e.KeyCode = Keys.N Then
Button1.PerformClick()
End If

If e.KeyCode = Keys.E Then
Edit.PerformClick()
End If
If e.KeyCode = Keys.D Then
Cancel.PerformClick()
End If
End If
End Sub
I also kept me.Keypreview = true
in page load event. then it executed correctly

Toniyo Jackson · Answer 2 · 2010-09-20T00:07:00

Solution 2

add below code in page load

Me.KeyPreview = True

Posted 20-Sep-10 0:07am

Toniyo Jackson

Comments

parchuri08 21-Sep-10 4:21am

The code u posted for page load event really helped me.. Now I am able to access shortcut buttons

parchuri08 21-Sep-10 4:30am

Thanx a ton