E aí, galera?

Seguinte, como crio sempre uns sisteminhas em VB5 para antigos usuários do Clipper, prefiro fazer os projects tabulando pela tecla <Enter>. O problema é que, como nos meus programas uso muito o teclado numérico, como posso fazer para evitar que a tecla NumLock fique a toda tabulação desativada? Tem alguma forma simples de contornar?

Spider.

Spidermam , eu tenho um exe aki q quando se aperto um botao o num lock ascende, nao sei se vai servir mas se quiser mando pra tu é so postar o seu email

Achei alguma coisa sobre isto no help do VB6.  Vá em Pesquisar e digite numlock. Dentre às diversas opções tem uma +- assim : Keyboard Class: From Windows API.....

Embora informe que é para o VBA pelo que lí funcionará no VB6.

Espero ter ajudado.

POE ISSO DENTRO DE UM BOTAO

 

Option Explicit

' Declare Type for API call:
Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128   '  Maintenance string for PSS usage
End Type

' API declarations:
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
        (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, _
         ByVal bScan As Byte, _
         ByVal dwFlags As Long, _
         ByVal dwExtraInfo As Long)

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long

' Constant declarations:
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VER_PLATFORM_WIN32_NT = 2
Const VER_PLATFORM_WIN32_WINDOWS = 1

Private Sub Command1_Click()
  Dim o As OSVERSIONINFO
  Dim NumLockState As Boolean
  Dim ScrollLockState As Boolean
  Dim CapsLockState As Boolean

  o.dwOSVersionInfoSize = Len(o)
  GetVersionEx o
  Dim keys(0 To 255) As Byte
  GetKeyboardState keys(0)

  ' NumLock handling:
  NumLockState = keys(VK_NUMLOCK)
  If NumLockState <> True Then    'Turn numlock on
    If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '===== Win95
      keys(VK_NUMLOCK) = 1
      SetKeyboardState keys(0)
    ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '===== WinNT
    'Simulate Key Press
      keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
    'Simulate Key Release
      keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _
         Or KEYEVENTF_KEYUP, 0
    End If
  End If

  ' CapsLock handling:
  CapsLockState = keys(VK_CAPITAL)
  If CapsLockState <> True Then    'Turn capslock on
    If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '===== Win95
      keys(VK_CAPITAL) = 1
      SetKeyboardState keys(0)
    ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '===== WinNT
    'Simulate Key Press
      keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
    'Simulate Key Release
      keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
         Or KEYEVENTF_KEYUP, 0
    End If
  End If

  ' ScrollLock handling:
  ScrollLockState = keys(VK_SCROLL)
  If ScrollLockState <> True Then    'Turn Scroll lock on
    If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '===== Win95
      keys(VK_SCROLL) = 1
      SetKeyboardState keys(0)
    ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '===== WinNT
    'Simulate Key Press
      keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
    'Simulate Key Release
      keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY _
        Or KEYEVENTF_KEYUP, 0
    End If
  End If
End Sub