Universal genvejstast

Det er vel egengligt ikke et VB-spørgsmål ? Nå - er med på en lytter :o)

Det ved jeg heller ikke helt, men den kode der normalt aktiveres ved tryk på en tast i programmet skal køres med genvejstasten i stedet.

F.eks. hvis der tages et screendump, så skal programmet tage billedet og gemme det under et bestemt bibliotek. Altså, i stedet for at trykke "Print scrren"-knappen, så kan man nøjes med Ctrl+G og så tager programmet dumpet og gemmer det.

I et modul:
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer


Og til at lytte efter ctrl + g:
Do
    DoEvents
    If (GetKeyState(vbKeyControl) = -127 Or GetKeyState(vbKeyControl) = -128) And (GetKeyState(vbKeyG) = -127 Or GetKeyState(vbKeyG) = -128) Then
        MsgBox ("Control+G")
        Exit Do
    End If
Loop

Hvorfor getkeystate returnerer -127 eller -128 har jeg ikek helt styr på :-)

//akj

Perfekt - tak for hurtigt svar :-)

Lav det lige som et svar, så er der points.

Selvtak, glad for du kan bruge det.

//akj