Tags
Forum
Artikler
Brugere
Stil spørgsmål
1
online
Login
Husk mig
KeyPress event for hele formen??
Tags:
visual-basic
Bruger #14834
@ 09.05.09 00:41
0
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
Bruger #14834
@ 10.05.09 00:15
0
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
Karma barometer (30 dage)
Modtaget
Givet
X
Favorit hos
Forum tråde
Artikler
Tilføj til dine favorit tags
Fjern fra dine favorit tags