How to edit items using cursor keys

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi all,

I've a program developed under VB6. It uses Reportcontrol to show/edit data, but the only way to edit a item is clicking once with mouse. There is a way to edit reportcontrol using the cursor keys to navigate across the items of the selected row?

I've tried using the following code:

Private Sub REPORTCONTROL_KeyDown(KeyCode As Integer, Shift As Integer)
If REPORTCONTROL.SelectedRows.count = 0 Then Exit Sub
If KeyCode <> 40 And KeyCode <> 39 And KeyCode <> 38 And KeyCode <> 37 Then
    REPORTCONTROL.EditItem REPORTCONTROL.SelectedRows(0), REPORTCONTROL.Columns(1)
End If
End Sub

The problem is that when the user press the key only can edit the item of the column 1.

Thanks in advance.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Nemesys Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 09 December 2009 Status: Offline Points: 1	Post Options Post Reply Quote Nemesys Report Post Thanks(0) Quote Reply Topic: How to edit items using cursor keys Posted: 09 December 2009 at 10:49am
	Hi all, I've a program developed under VB6. It uses Reportcontrol to show/edit data, but the only way to edit a item is clicking once with mouse. There is a way to edit reportcontrol using the cursor keys to navigate across the items of the selected row? I've tried using the following code: Private Sub REPORTCONTROL_KeyDown(KeyCode As Integer, Shift As Integer) If REPORTCONTROL.SelectedRows.count = 0 Then Exit Sub If KeyCode <> 40 And KeyCode <> 39 And KeyCode <> 38 And KeyCode <> 37 Then REPORTCONTROL.EditItem REPORTCONTROL.SelectedRows(0), REPORTCONTROL.Columns(1) End If End Sub The problem is that when the user press the key only can edit the item of the column 1. Thanks in advance.