KeyPress event for hele formen??

Tags:    visual-basic

Hej med jer,

Det er første gang jeg bruger siden her.
Jeg har et lille problem, som jeg søger hjælp til.

Jeg er ved at lave en lommeregner, og vil gerne have at man skal kunne bruge tasterne på PCen og ikke kun musen.

Jeg har sat "KeyPreveiw" på formen til "True"
og lavet følgende code:


Private Sub frmLommeregner_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

Select Case e.KeyChar
Case "1" : bttn1.PerformClick()
Case "2" : bttn2.PerformClick()
Case "3" : bttn3.PerformClick()
Case "4" : bttn4.PerformClick()
Case "5" : bttn5.PerformClick()
Case "6" : bttn6.PerformClick()
Case "7" : bttn7.PerformClick()
Case "8" : bttn8.PerformClick()
Case "9" : bttn9.PerformClick()
Case "0" : bttn0.PerformClick()
Case "C", "c" : bttnClear.PerformClick()
Case "*" : bttnGange.PerformClick()
Case "+" : bttnPlus.PerformClick()
Case "-" : bttnMinus.PerformClick()
Case "/" : bttnDivider.PerformClick()
Case "." : bttnPunktum.PerformClick()
Case "=" : bttnLigMed.PerformClick()
Case chr(13) : bttnLigMed.PerformClick()
End Select

End Sub


Det virker også fint...men, når jeg trykker "Enter" (Chr13) på mit tastatur bliver "bttnLigMed.PerformClik()" ikke aktiveret. Istedet bliver det sidste "Tal" jeg trykkede på skrevet i "Displayet" på min lommeregner?

Er der nogen der har en forklaring på det, eller en løsning måske?

MVH
BMS




Hej igen,

Jeg fandt selv ud af en løsning.
Jeg skulle bare flytte "focus" over på min "bttnLigMed", så virker det.

Undskyld ulejligheden ;)

MVH
BMS
Brightstonesoft.dk




t