CapsLock atau NumLock Using Coding VB6

Berikut ini adalah cara menekan CapsLock atau NumLock menggunakan kode di visual basic 6, untuk mempraktekannya siapkan :

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

          '--- Coding ini di Module Anda...
          Declare Sub GetKeyboardState Lib "user32" (lpKeyState As Any)

          Declare Sub SetKeyboardState Lib "user32" (lpKeyState As Any)
          Public Const VK_CAPITAL = &H14
          Public Const VK_NUMLOCK = &H90
          '--- Akhir coding di Module...

          '--- Coding ini di Form Anda...
          Private Sub Command1_Click()      'Menekan tombol CapsLock.
          ReDim KeyboardBuffer(256) As Byte

            GetKeyboardState KeyboardBuffer(0)
            'Contoh ini menunjukkan bagaimana Anda dapat menekan tombol CapsLock.
            If KeyboardBuffer(VK_CAPITAL) And 1 Then
               KeyboardBuffer(VK_CAPITAL) = 0
            Else

               KeyboardBuffer(VK_CAPITAL) = 1
            End If
            SetKeyboardState KeyboardBuffer(0)
          End Sub

          Private Sub Command2_Click()         'Menekan tombol NumLock.
          ReDim KeyboardBuffer(256) As Byte
            GetKeyboardState KeyboardBuffer(0)

            'Contoh ini menunjukkan bagaimana Anda dapat menekan tombol NumLock.
            If KeyboardBuffer(VK_NUMLOCK) And 1 Then
               KeyboardBuffer(VK_NUMLOCK) = 0
            Else
               KeyboardBuffer(VK_NUMLOCK) = 1

            End If
            SetKeyboardState KeyboardBuffer(0)
          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