---

Har brug for at assigne nogle knapper til nogle taster på tastaturet.. Det
gælder F1-F12, Esc, og flere andre..

Hilsen Jan

---

"Ingelsen" <SLET@mig.dk> skrev i en meddelelse
news:43a2b2f8$0$38725$edfadb0f@dread12.news.tele.dk...
> Har brug for at assigne nogle knapper til nogle taster på tastaturet.. Det
> gælder F1-F12, Esc, og flere andre..
>
> Hilsen Jan
>
>
Lav en Command1 button på en Form1................
og prøv denne kode..........så får du en ide om hvordan !!

PS. Husk at sætte KeyPreview = True på din Form1


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then Command1_Click
End Sub
-------------------------------
Private Sub Command1_Click()
Unload Me
End Sub

---

SNIP
---------------------


UUPS...........glemte lige at sige du skal trykke F1 for at teste, da
KeyCode 112 er F1

Hvis du vil vide de forskellige tasters KeyCode så prøv dette

> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
> Msgbox KeyCode
> End Sub



>
>
>