Membuat Shortkey dengan VB.NET dan C#

Setelah beberapa hari yang lalu saya memposting tentang Membuat Penomoran Otomatis dengan C# dan VB.NET.
Pada malam hari ini saya kan memposting tentang Membuat Shortkey dengan VB.NET dan C#.
Apa itu shortkey mungkin sudah banyak yang tahu apa itu shortkey, tapi saya coba memberi penjelasan mengenai shorrkey, Shortkey adalah sebuah tombol yang digunakan untuk mempercepat akses terhadap sesuatu tanpa perlu tahu dimana sesuatu itu berada

Langkah - langkah Membuat Shortkey dengan VB.NET dan C#.

1. Buka Visual Studio yang anda punya

2. Buatlah sebuah project dengan nama sesuka anda, lalu tambahkan 4 buah button dan atur tata letak button tersebut seperti gambar dibawah ini

3. Pada event Form_load ketikan script dibawah ini

VB.NET

Me.KeyPreview = True ' Setting KeyPreview menjadi true

this.KeyPreview = true; // Setting KeyPreview menjadi true

4. Pada event button1 click button2 click button3 click button 4 click ketikan script dibawah ini

VB.NET

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.KeyPreview = True ' Setting KeyPreview menjadi true
    End Sub

    Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
        MessageBox.Show("Tombol 1 ditekan") ' Memunculkan pesan Tombol 1 ditekan
    End Sub

    Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click
        MessageBox.Show("Tombol 2 ditekan") ' Memunculkan pesan Tombol 2 ditekan
    End Sub

    Private Sub button3_Click(sender As Object, e As EventArgs) Handles button3.Click
        MessageBox.Show("Tombol 3 ditekan") ' Memunculkan pesan Tombol 3 ditekan
    End Sub

    Private Sub button4_Click(sender As Object, e As EventArgs) Handles button4.Click
        MessageBox.Show("Tombol 4 ditekan") ' Memunculkan pesan Tombol 4 ditekan
    End Sub

private void button1_Click(object sender, EventArgs e)
        {
            MessageBox.Show("Tombol 1 ditekan"); // Memunculkan pesan Tombol 1 ditekan
        }

        private void button2_Click(object sender, EventArgs e)
        {
            MessageBox.Show("Tombol 2 ditekan"); // Memunculkan pesan Tombol 2 ditekan
        }

        private void button3_Click(object sender, EventArgs e)
        {
            MessageBox.Show("Tombol 3 ditekan"); // Memunculkan pesan Tombol 3 ditekan
        }

        private void button4_Click(object sender, EventArgs e)
        {
            MessageBox.Show("Tombol 4 ditekan"); // Memunculkan pesan Tombol 4 ditekan
        }

5. Pada event Form_KeyDown ketikan script dibawah ini

VB.NET

If e.KeyData = Keys.F1 Then ' jika f1 ditekan
            button1_Click(sender, e) ' menjalankan event button1 click
        ElseIf e.KeyData = Keys.F2 Then 'jika f1 ditekan
            button2_Click(sender, e) ' menjalankan event button2 click
        ElseIf e.KeyData = Keys.F3 Then ' jika f1 ditekan
            button3_Click(sender, e) ' menjalankan event button3 click
        ElseIf e.KeyData = Keys.F4 Then ' jika f1 ditekan
            button4_Click(sender, e) ' menjalankan event button4 click
        End If

if (e.KeyData == Keys.F1) // jika f1 ditekan
            {
                button1_Click(sender, e); // menjalankan event button1 click
            }
            else if (e.KeyData == Keys.F2) // jika f2 ditekan
            {
                button2_Click(sender, e); // menjalankan event button2 click
            }
            else if (e.KeyData == Keys.F3) // jika f3 ditekan
            {
                button3_Click(sender, e); // menjalankan event button3 click
            }
            else if (e.KeyData == Keys.F4) // jika f4 ditekan
            {
                button4_Click(sender, e); // menjalankan event button3 click
            }