[VB.NET] Scorrimento con frecce su DataGridView

[Pacifico437]

Gent.mo Oregon,
perfetto va bene ed approfitto della cortesia per migliorare se è possibile.
La frecceta allo scorrimento in giù si ferma all'ultima riga vuota del Datagrid, si potrebbe far si che si ferma sull'ultima voce inserita?
Considerando che le voci inserite sono 70, si potrebbe inserire un MSGBOX che avvisa "Prima Voce e Ultima voce?".
Ringrazio della disponibilità, auguro buona giornata e saluto.
Domenico.

[Pacifico437]

Gent.mo Oregon,
faccio seguito alla precedente che ho risolto il problema della freccetta in giù modificando il codice da -1 a -2
Rimane solo i MSGBOX se è fattibile.
Grazie
Domenico.

[oregon]

Dovresti riuscirci da solo se ti impegni un po'

[Pacifico437]

Gent.mo Oregon,

ringrazio ho risolto anche questo problema.
Alla prossima.
Buon pomeriggio, saluto anche a Patel

Domenico.

[optime]

Pacifico, posta il codice così potresti aiutare qualche altro forumista che dovesse avere lo stesso problema

[Pacifico437]

Gent.mo Oregon,

riporto i codici completi compreso anche la colorazione dei button

per sù:

Dim msg = "Primo nominativo"
Dim titolo = "          Nominativo"
Dim ni As Integer = DataGridView1.CurrentRow.Index
        Button2.BackColor = Color.Aquamarine
        If ni > 1 Then
            DataGridView1.CurrentCell = DataGridView1.Rows(ni - 1).Cells(0)
        End If
        If ni = 1 Then
            DataGridView1.CurrentCell = DataGridView1.Rows(ni - 1).Cells(0)
            MsgBox(msg, MsgBoxStyle.Information, (titolo))
            Button1.BackColor = Color.Red
        End If

per giù:

Dim msg = "Ultimo nominativo"
Dim titolo = "               Nominativo"
Dim ni As Integer = DataGridView1.CurrentRow.Index
        Button1.BackColor = Color.Aquamarine
        If ni < DataGridView1.Rows.Count - 2 Then
            DataGridView1.CurrentCell = DataGridView1.Rows(ni + 1).Cells(0)
        End If
        If ni = DataGridView1.Rows.Count - 3 Then
            DataGridView1.CurrentCell = DataGridView1.Rows(ni + 1).Cells(0)
            MsgBox(msg, MsgBoxStyle.Information, (titolo))
            Button2.BackColor = Color.Red
        End If

Grazie
Domenico

[oregon]

Gent.mo Oregon,

Te lo ha chiesto optime...

Comunque non hai messo bene i codici CODE