Keypress

På din form har du en event der hedder KeyPress(KeyAscii As Integer).
Hvis du skriver din kode i den, fanger du tastetrykkene på formen.

I stedet for at komme med en større udredning, vil jeg henvise til nedenstående link. Det er et ganske godt eksempel på, hvordan det fungerer:
http://visualbasic.about.com/library/weekly/aa041601c.htm

Eksemplet viser dig hvordan du kan lave "easter eggs" i dine egne applikationer.

God fornøjelse. :-)

/Mich

Målet med det her er at den også skal kunne grappe keypress når min applikation ikke er i fokus..

Jamen så skal dit program bare registrere F11 som en "HotKey"

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
  Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Dim i, KeyResult As Integer
  For i = 0 To 255
  KeyResult = GetAsyncKeyState(i)
    If KeyResult = -32767 Then
      If i = 122 Then
        MsgBox "F11"
      End If
    End If
  Next i
End Sub

-> sjh

Lige hvad jeg skulle bruge takker..

jeg kan ikke få lov til at give point.. underligt.. prøver lidt senere..

åhh hvad sker der her..

sjh kan du prøve at oprette et svar til :)

Svar....

Svar....

det kan jeg ikke.

Brug KeyDown i stedet for:

Public Sub Text1_KeyDown(KeyCode As Integer, Shift As Boolean)
If KeyCode = vbKeyF11 Then MsgBox "F11 blev trykket"
End Sub