Tienes que jugar con la posición actual de la fila seleccionada, los Index
y CurrentCell
del DataGridView
. Prueba este código, creo que te funcionará:
Private Sub BotonSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click
Dim i As Integer = Agenda.CurrentRow.Index + 1
If Agenda.SelectedRows.Count > 0 Then 'Comprueba si se ha seleccionado alguna fila
If i < Agenda.Rows.Count - 1 Then 'Comprueba si la siguiente selección es menor que el número total de filas del DataGridView
TextBoxNombre.Text = Agenda.Item(0, i).Value
TextBoxTelefono.Text = Agenda.Item(1, i).Value
TextBoxDireccion.Text = Agenda.Item(2, i).Value
Agenda.CurrentCell = Agenda.Rows(i).Cells(0) 'Selecciona la primera celda de la fila siguiente
Agenda.Rows(i).Selected = True 'Selecciona la fila siguiente
End If
End If
End Sub
Private Sub btnAtras_Click(sender As Object, e As EventArgs) Handles btnAtras.Click
If Agenda.SelectedRows.Count > 0 Then 'Comprueba si se ha seleccionado alguna fila
If Agenda.CurrentRow.Index > 0 Then 'Comprueba si la posición de la fila actual es mayor que 0, lo que indica que no es la primera fila
Dim i As Integer = Agenda.CurrentRow.Index - 1
TextBoxNombre.Text = Agenda.Item(0, i).Value
TextBoxTelefono.Text = Agenda.Item(1, i).Value
TextBoxDireccion.Text = Agenda.Item(2, i).Value
Agenda.CurrentCell = Agenda.Rows(i).Cells(0)
Agenda.Rows(i).Selected = True
End If
End If
End Sub