Memeriksa Aktif/Tidak Aktif CapsLock Dan NumLock VB6

Berikut ini adalah cara memeriksa apakah CapsLock atau NumLock sedang aktif atau tidak di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commanbutton.
2. Copy-kan coding berikut ke dalam Module dan Form yang bertalian.

          '--- Coding berikut di Module Anda...
          Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

          '--- Batas akhir coding di Module...

          '--- Coding berikut di form Anda...
          Private Sub Command1_Click()

          'Contoh ini akan memeriksa apakah Caps Lock sedang aktif.
          Tmp1 = GetKeyState(vbKeyCapital)
            If Tmp1 = 1 Then
               MsgBox "CapsLock sedang aktif", vbInformation, "Aktif"

            Else
               MsgBox "CapsLock tidak aktif!", vbCritical, "Tidak Aktif"
            End If
          End Sub

          Private Sub Command2_Click()
          'Contoh ini akan memeriksa apakah Num Lock sedang aktif.
          Tmp2 = GetKeyState(vbKeyNumlock)
            If Tmp2 = 1 Then

               MsgBox "NumLock sedang aktif", vbInformation, "Aktif"
            Else
               MsgBox "NumLock tidak aktif!", vbCritical, "Tidak Aktif"
            End If

          End Sub
          '--- Batas akhir coding di Form

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