Memeriksa Tombol Keyboard Yang Ditekan Bersamaan VB6

Berikut ini adalah cara memriksa beberapa tombol keyboard yang sedang ditekan bersamaan di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 5 Label.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Dim currentKeys(0 To 250) As Boolean 'Deklarasi variabel global

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

          'Menekan sebuah tombol dan menahannya, akan menggunakan event KeyDown.
          'Jadi kita memeriksa jika User menekan tombol atau
          'apakah tombol sudah ditekan.
              If currentKeys(KeyCode) = False Then
              'Update array dari tombol yang ditekan

                  currentKeys(KeyCode) = True
                  If KeyCode = vbKeyLeft Then Label1 = "Kiri"
                  If KeyCode = vbKeyRight Then Label2 = "Kanan"
                  If KeyCode = vbKeyUp Then Label3 = "Atas"

                  If KeyCode = vbKeyDown Then Label4 = "Bawah"
                  If KeyCode = vbKeySpace Then Label5 = "Spasi"
              End If
          End Sub

          Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
          'Update array yang tombol keyboardnya tidak ditekan.
              currentKeys(KeyCode) = False
              If KeyCode = vbKeyLeft Then Label1 = ""

              If KeyCode = vbKeyRight Then Label2 = ""
              If KeyCode = vbKeyUp Then Label3 = ""
              If KeyCode = vbKeyDown Then Label4 = ""
              If KeyCode = vbKeySpace Then Label5 = ""

          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module