I am currently using this code to move a blue highlighter bar in a grid
Code: Select all
' Gambas class file
RowCount As Integer = 0
NewRow As Integer = 1
Public Sub Form_Open()
NoSale.LoadNoSaleReason
GridView1.Select(0, 1) ' Set to the First row
RowCount = GridView1.Rows.Count
End
Public Sub Form_KeyPress()
Select Case Key.Code
Case Global.Key_ArrowUp
If NewRow <= RowCount Then
GridView1.Select(NewRow, 1)
NewRow -= 1
Else
GridView1.Select(RowCount, 1)
Endif
Case Global.Key_ArrowDown
If NewRow <= RowCount Then
GridView1.Select(NewRow, 1)
NewRow += 1
Else
GridView1.Select(0, 1)
Endif
Case Global.Key_Enter, Key.Return
'process the selected reason
End Select
End