Results 1 to 2 of 2

Thread: Help Me Please!!!!!

  1. #1

    Thread Starter
    Addicted Member
    Join Date
    Feb 2000
    Posts
    135
    Hey..
    Just want to know, how do you see if the caps little is on or off. Also for the scroll lock and the num lock. Please help me as this is urgent!

    Cheers


    Jason

  2. #2
    Lively Member
    Join Date
    Mar 2000
    Posts
    82
    Code:
    Public Declare Function GetKeyboardState Lib "user32" _(pbKeyState As Byte) As Long
    
    Public Const VK_NUMLOCK = &H90
    Public Const VK_SCROLL = &H91
    Public Const VK_CAPITAL = &H14
    
    
    
        Dim x As Long, keyarray(256) As Byte
        
        x = GetKeyboardState(keyarray(0))
        If keyarray(VK_NUMLOCK) = 1 Then: MsgBox "numlock on"
        If keyarray(VK_SCROLL) = 1 Then: MsgBox "scroll lock on"
        If keyarray(VK_CAPITAL) = 1 Then: MsgBox "caps on"
    should work

    [Edited by _bman_ on 04-26-2000 at 10:50 AM]

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width