Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Binde Pil-Opp til programmet ved kode ?

4 views
Skip to first unread message

"Torbjørn M."

unread,
Mar 6, 2011, 8:47:43 AM3/6/11
to
Jeg har denne kode :

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.Up Then
Me.btnUP.PerformClick()
e.Handled = True
End If
End Sub

Meningen er altså at om jeg trykker på piltasten opp så skal denne
handle deretter ??

Koden for btnUP fungerer greit med tanke på når jeg klikker dem med musa
! Virker som ikke helt den skjønner tastaturet her, jeg fikk det til med
et annet program faktisk.

Det samme gjelder den for btnDown. For moro skyld la jeg til denne
"testen" her...

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Down Then
Me.btnDown.PerformClick()
MessageBox.Show("Hello") ' Det er denne jeg la inn...
e.Handled = True
End If
End Sub

Noen messagebox popper aldri opp...

Det er riktig nok i rutinen for hhv opp og ned lagt til sjekk om
visse RadioButton er checked. Det skal da ikke ha noe å si ?


-Torbjørn.

"Torbjørn M."

unread,
Mar 6, 2011, 10:31:49 AM3/6/11
to
Key preview var ikke satt til true. ☺

Sånn var det.

0 new messages