Contoh ShortKey/MultiKey (CTRL, ALT, SHIFT) Menggunakan VB6

ShortKey/MultiKey (CTRL, ALT, SHIFT) seringkali menjadi alternatif untuk menghemat waktu dalam mengoperasikan sebuah aplikasi dan juga akan terlihat lebih profesional dalam penggunannya. ShortKey adalah merupakan tombol pintasan pada keyboard yang telah diprogram dalam aplikasi tertentu untuk mewakili menjalankan sebuah perintah tanpa harus menggerakan Mouse. Pada artikel kali ini admin akan share sedikit tentang Contoh ShortKey/MultiKey (CTRL, ALT, SHIFT) Menggunakan VB6. Buka Microsoft Visual Basic 6.0 - StadartExe dan buat dua buah form. Kemudian tambahkan label untuk memberikan keterangan ShortKey seperti gambar dibawah ini

Form1

Form2

Untuk syntaknya pada form1 sebagai berikut

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyR And Shift = 2 Then Form2.Show: Me.Hide
 If KeyCode = vbKeyC And Shift = 4 Then End
End Sub

Private Sub Form_Load()
KeyPreview = True
End Sub

Dan untuk syntak pada form2 sebagai berikut

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyM And Shift = 1 Then
    Form1.Show
    Unload Me
End If
End Sub

Private Sub Form_Load()
KeyPreview = True
End Sub

Setelah selesai kemudian RUN/F5 untuk mencobanya tekan tombol pada Keyboard sesuai degan keterangan yang tampilan pada form1 dan form2 dan untuk yang berminat mendownload sourcodenya silahkan klik LINK INI

Semoga bermanfaat