Programación General > Visual Basic 6.0 e inferiores

 Reconocer Cuando Se Presionen Teclas

(1/2) > >>

ElNapster:
Como puedo hacer yo para que mi aplicacion sepa cuando yo presione la combinacion de teclas por darles un ejemplo CTRL + ALT + L ? pero por decirles algo mi aplicacion va a  estar en la barra que aparece a la par del reloj ... :P  

Gracias por la ascesoria.....  :comp:

RadicalEd:
Guiate con el api GetKeyState.

--- Código: Text ---'Ejemplo del Api-Guide'In a modulePublic Const WH_KEYBOARD = 2Public Const VK_SHIFT = &H10Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As LongDeclare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerDeclare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As LongDeclare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As LongPublic hHook As LongPublic Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long    'if idHook is less than zero, no further processing is required    If idHook < 0 Then        'call the next hook        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)    Else        'check if SHIFT-S is pressed        If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then            'show the result            Form1.Print "Shift-S pressed ..."        End If        'call the next hook        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)    End IfEnd Function 'In a form, called Form1Private Sub Form_Load()    'KPD-Team 2000    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    'set a keyboard hook    hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)End SubPrivate Sub Form_Unload(Cancel As Integer)    'remove the windows-hook    UnhookWindowsHookEx hHookEnd Sub  

ElNapster:
Thank's ....... me da un errorsito aca

Hook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)

Que podra ser ?

RadicalEd:
El primer código va en un módulo y el segundo en un Formulario:


--- Código: Text ---'In a form, called Form1Private Sub Form_Load()   'KPD-Team 2000   'URL: http://www.allapi.net/   'E-Mail: KPDTeam@Allapi.net   'set a keyboard hook   hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)End SubPrivate Sub Form_Unload(Cancel As Integer)   'remove the windows-hook   UnhookWindowsHookEx hHookEnd Sub 

ElNapster:
Si asi lo puse pero me da error en ese parametro ?  <_<

Navegación

[0] Índice de Mensajes

[#] Página Siguiente