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.
Sånn var det.