Cara Membuat ShortKey atau MultiKey dengan CTRL, ALT dan SHIFT di VB6

Dalam merancang sebuah program seorang programer di tuntut untuk lebih kreatif dalam merancang sebuah aplikasi, salah satunya adalah membuat sebuah shortkey yang merupakan sebuah alternatif untuk menghemat dalam mengoperasikan program yang dibuat.Tujuannya dibuat shortkey ini adalah apabila ada kendala dalam menggunakan sebuah mouse atau tidak perlu menggunakan mouse.

ShortKey merupakan tombol pintasan pada keyboard yang telah diprogram dalam aplikasi tertentu untuk mewakili sebuah perintah tanpa menggerakan mouse.

Berikut dibawah ini adalah gambar dari sebuah shortKey yang telah saya buat :

Tombol ShortKey di VB6

Berikut adalah kode untuk membuat sebuah Shortkey untuk eksekusi pada gambar diatas :

Private Sub Command1_Click()  'Tombol F2

MsgBox "Anda telah menekan tombol " & Command1.Caption & " di Keyboard", vbOKOnly, "Perhatian"

End Sub

Private Sub Command2_Click() 'Tombol CTRL+A

MsgBox "Anda telah menekan tombol " & Command2.Caption & " di Keyboard", vbOKOnly, "Perhatian"

End Sub

Private Sub Command3_Click() 'Tombol ALT+Z

MsgBox "Anda telah menekan tombol " & Command3.Caption & " di Keyboard", vbOKOnly, "Perhatian"

End Sub

Private Sub Command4_Click() 'Tombol SHIFT+C

MsgBox "Anda telah menekan tombol " & Command4.Caption & " di Keyboard", vbOKOnly, "Perhatian"

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF2 Then

'Anda bisa mengganti F2 menjadi F1-F12

Command1_Click

End If

If KeyCode = vbKeyA  And Shift = 2 Then

'shift =2 mewakili Tombol CTRL

'huruf A bisa Anda ganti menjadi huruf yang lain dari A-Z

Command2_Click

End If

If KeyCode = vbKeyZ And Shift = 4 Then

'shift =4 mewakili Tombol ALT

Command3_Click

End If

If KeyCode = vbKeyC And Shift = 1 Then

'shift =1 mewakili Tombol SHIFT

Command4_Click

End If

End Sub

Private Sub Form_Load()

KeyPreview = True

End Sub

Setelah Anda mengetik kode diatas sekarang jalankan Project Anda, untuk mencoba berhasil atau tidak gunakan tombol keyboard sesuai intruksi yang tampil pada Commandbutton.

Demikianlah artikel singkat pada hari ini semoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses.

Related Post: Uncategories