---

jeg er ved at lave en lommer regner det eneste jeg mangler er at lave den så
den virker når man trykker på tastaturet så man ikke skal bruge musen
er der nogle der ved kode og hvor man skal sætte den ind


--
Venlig Hilsen

Expert Billund
Butikstorvet 25
7190 Billund
Tlf.: 75 33 86 55
Fax.: 75 33 86 70
Email: billund@expert.dk

---

Det er lidt svært du skal bruge Key code

Hvis jeg skrive sådan her kan du så gætte dig frem

Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
' 96 er nummeret på 0 knappen på dit tastatur
If KeyCode = 96 Then Command1_Click
End Sub

Du finder alle nummerne på knapperen i MSDN Library hvis du søger efter "
key code "

Mvh
til@infojens.dk

---

Det smarteste vil være man fanger key events på formen i stedet for
på alle knapper. Dette gøres ved

Form1.KeyPreview = True

Desuden skal det lige bemærkes at Keycodes fra 96 til 105 er tasterne på
nummerpaden,
mens 48 til 57 er tasterne er tallene på selve tastaturet.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print KeyCode
If KeyCode = 49 Or KeyCode = 97 Then Command1_Click
End Sub

- Niels G

"Jens Andersen" <til@infojens.dk> wrote in message
news:960tfo$ado$1@news.inet.tele.dk...
> Det er lidt svært du skal bruge Key code
>
> Hvis jeg skrive sådan her kan du så gætte dig frem
>
> Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer)
> ' 96 er nummeret på 0 knappen på dit tastatur
> If KeyCode = 96 Then Command1_Click
> End Sub
>
> Du finder alle nummerne på knapperen i MSDN Library hvis du søger efter "
> key code "
>
> Mvh
> til@infojens.dk
>
>
>

---

Niels G skrev:
> Det smarteste vil være man fanger key events på formen i stedet for
> på alle knapper. Dette gøres ved

Og hvis man er endnu smartere, trykker man F2 i VB for at få Object Browser
frem, vælger det "Library" som hedder VBRUN og finder KeyCodeConstants på
listen over "Classes".

Derefter bruger man disse konstanter i sin kode - så kan man også huske hvad
det betyder, næste gang man ser på koden

Eksempel:

If KeyCode = 49 Or KeyCode = 97 Then Command1_Click

bliver til:

If KeyCode = vbKey0 Or KeyCode = vbKeyNumpad0 Then Command1_Click

-------
Tomas

---

Det har du fuldkommen ret i. Når man laver eksempler skal man aldrig tage
dem som de er. For eksempel bør man overveje brugen af nedenstående
eksempel,
og istedet bruge Control Arrays, for at undgå ti if sætninger eller en stor
select case sætning. Pointen er prøv de eksempler man får, tilpas dem efter
eget
behov. Da folk typisk svare på det specifikke problem, da man typisk ikke
gider at løse hele problemet
Men som sagt du har ret i nedenstående, og det her er bare min dårlige
undskyldning for mit ikke komplette svar

-Niels

"Tomas Christiansen" <toc@blikroer.removethis.dk> wrote in message
news:SeEh6.477$gR5.17733@news.get2net.dk...
> Derefter bruger man disse konstanter i sin kode - så kan man også huske
hvad
> det betyder, næste gang man ser på koden
>
> Eksempel:
>
> If KeyCode = 49 Or KeyCode = 97 Then Command1_Click
>
> bliver til:
>
> If KeyCode = vbKey0 Or KeyCode = vbKeyNumpad0 Then Command1_Click
>
> -------
> Tomas

---

Niels G skrev:
> Men som sagt du har ret i nedenstående, og det her er bare min dårlige
> undskyldning for mit ikke komplette svar

Du skal overhovedet ikke undskylde nogetsomhelst

Jeg HADER bare at se tal (som andre jo ikke nødvendigvis ved hvad betyder),
når VB allerede har defineret nogle fine konstanter til formålet.

-------
Tomas