Hej!

Jag håller på och gör ett program som använder MSFlexGrid som en del av inmatningsgränssnittet. För att enkelt kunna förflytta sig mellan närliggande celler vid inmatning tänkte jag att piltangenterna är behändigare att använda än musen. Jag har dock inte lyckats fånga upp piltangenttryckningarna, vilket jag behöver för att programmet skall uppföra sig på önskat sätt. Att fånga upp övriga tangenter såsom bokstäver och siffror fungerar bra samt även förflyttning med mus. Känner någon till en behändig lösning på detta problem ?

Har du testat KeyDown event'et för kontrollen?
<code>
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
If MSFlexGrid1.Col > 1 Then
MSFlexGrid1.Col = MSFlexGrid1.Col - 1
Else
Beep
End If
Case vbKeyUp
If MSFlexGrid1.Row > 1 Then
MSFlexGrid1.Row = MSFlexGrid1.Row - 1
Else
Beep
End If
Case vbKeyRight
If MSFlexGrid1.Col < MSFlexGrid1.Cols Then
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
Else
Beep
End If
Case vbKeyDown
If MSFlexGrid1.Row < MSFlexGrid1.Rows Then
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
Else
Beep
End If
End Select
End Sub
</code>