Contoh Shortkey/Multikey (Ctrl, Alt, Shift) Memakai Vb6

12 views
ShortKey/MultiKey (CTRL, ALT, SHIFT) seringkali menjadi alternatif untuk menghemat waktu dalam mengoperasikan sebuah aplikasi dan juga akan terlihat lebih profesional dalam penggunannya. ShortKey yaitu 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 perihal Contoh ShortKey/MultiKey (CTRL, ALT, SHIFT) Menggunakan VB6. Buka Microsoft Visual Basic 6.0 – StadartExe dan buat dua buah form. Kemudian tambahkan label untuk menawarkan keterangan ShortKey menyerupai 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 final lalu 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

Author: 
    author
    No related post!