Solved

BUTTON AND KEYCODE

Posted on 2013-06-16
19
263 Views
Last Modified: 2013-06-17
Hi All,

I have a windows form.
I let the user to use mouse click or keystroke from keyboard to do something.
Every button has associate keystroke.

For example Button Ok equal to Key F4.

I have below code to check keystroke :

 Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

        If e.KeyCode = Keys.Escape Then
            Dim intAnswer As Integer = MsgBox("Yakin Mau Keluar Dari Menu ...!", MsgBoxStyle.YesNo, Me.Text)
            If intAnswer = vbYes Then
                Me.Close()
                Exit Sub
            End If
        End If

        Me.Call_Form(sender, e)

    End Sub

Private Sub Call_Form(sender As Object, e As KeyEventArgs)

        Select Case e.KeyCode
            Case Keys.F3

                Dim frmPanggilPesanan As New frmPanggilPesanan

                With frmPanggilPesanan
                    .ShowDialog()
                End With

                frmPanggilPesanan = Nothing

            Case Keys.F5

                Dim frmTundaPesanan As New frmTundaPesanan

                With frmTundaPesanan
                    .ShowDialog()
                End With

                frmTundaPesanan = Nothing

            Case Keys.F6

                Dim frmDaftarPesanAntar As New frmDaftarPesanAntar

                With frmDaftarPesanAntar
                    .ShowDialog()
                End With

                frmDaftarPesanAntar = Nothing

            Case Keys.F9

                Dim frmPembayaran As New frmPembayaran

                With frmPembayaran
                    .ShowDialog()
                End With

                frmPembayaran = Nothing

            Case Keys.F11

                Dim frmMenuKasir As New frmMenuKasir

                With frmMenuKasir
                    .ShowDialog()
                End With

                frmMenuKasir = Nothing

            Case Keys.F12

                Dim intYesNo As Integer = MsgBox("Abaikan Perubahan ...!", MsgBoxStyle.YesNo, Me.Text)

                If intYesNo = vbYes Then
                    Clear_Grid()
                End If


        End Select

    End Sub

I want to use sub Call_Form from button click. I don't want to make duplicate sub for check button.

How could I do it ?

Thank you.
0
Comment
Question by:emi_sastra
  • 10
  • 9
19 Comments
 
LVL 42

Expert Comment

by:sedgwick
ID: 39252344
>>I want to use sub Call_Form from button click
to do what?
should be equivalent to specific keystroke?
0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39252364
-should be equivalent to specific keystroke?
Yes.

Thank you.
0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39252365
I want to reuse Sub Call_Form(sender As Object, e As KeyEventArgs) for button click.

Thank you.
0
Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

 
LVL 42

Expert Comment

by:sedgwick
ID: 39252423
which keystroke?
F4 key?
0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39252451
-which keystroke?
Every button has associate keystroke.

Thank you.
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39252466
change Keys.F2 to the button associated key, and change button1 to the button name.
in your button click event handler, have this code:
Dim keyEventArgs = New KeyEventArgs(Keys.F2)
Call_Form(button1, keyEventArgs)

Open in new window

0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39252471
Suppose I have 10 button.
How to code it ?

Thank you.
0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39252473
For example :

btnAdd        F2
btnUpd        F3
btnDel         F4
btnSave       F5
btnCancel   F6

Thank you.
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39252505
add click event handler for each button and inside pass the relevant key code to Call_Form.
for example:
sub btnAdd_Click(...)
Dim keyEventArgs = New KeyEventArgs(Keys.F2)
Call_Form(btnAdd, keyEventArgs)
end sub

Open in new window

0
 
LVL 42

Accepted Solution

by:
sedgwick earned 500 total points
ID: 39252509
you can create a single click event handler for all buttons and pass relevant key code to Call_Form, instead of creating click event handler for each one.
to do so u need first to map each button to its associated key using dictionary or hash, and then create a single handler to handle all buttons click events:
    Private Sub genericButtonHandler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click, btnSave.Click, btnCancel.Click,btnDel.Click,btnUpd.Click
        Dim dictionary As New Dictionary(Of Button, Short)
        dictionary.Add(btnAdd, Keys.F2)
        dictionary.Add(btnUpd, Keys.F3)
        dictionary.Add(btnDel, Keys.F4)
        dictionary.Add(btnSave, Keys.F5)
        dictionary.Add(btnCancel, Keys.F6)
        Dim btn As Button = DirectCast(sender, Button)
        Dim keyEventArgs = New KeyEventArgs(dictionary(btn))
Call_Form(btn, keyEventArgs)
    End Sub

Open in new window

0
 
LVL 1

Author Closing Comment

by:emi_sastra
ID: 39252640
Really great.

Thank you very much for your help.
0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39252648
One problem.

How if the key stroke is Ctrl+Del or other combination key ?

Thank you.
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39252687
u use the bitwise OR (|) operator to apply modifier like Ctrl/Alt keys.
for example:
Dim keyEventArgs = New KeyEventArgs(Keys.Delete Or Keys.Control)

Open in new window

0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39252989
Below code error :

 dictionary.Add(btnCancel, (Keys.Delete Or Keys.Control))

Thank you.
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39253088
what error?
0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39253137
Error      1      Constant expression not representable in type 'Short'.      

Thank you.
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39253147
change Short to Integer
0
 
LVL 1

Author Comment

by:emi_sastra
ID: 39253233
No compile error.

Thank you very much for your help.
0
 
LVL 42

Expert Comment

by:sedgwick
ID: 39253259
u welcome.
0

Featured Post

ScreenConnect 6.0 Free Trial

Explore all the enhancements in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
WPF - Tooltips for ComboBox items 5 74
Web Form VB.Net  import CSV 4 39
Error handling in asp.net site 5 28
SqlServer no dupes 25 35
This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…

810 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question