Spostarsi alla riga successiva in un controllo DataGridView in un'applicazione Visual Basic.NET utilizzando alcune proprietà di DataGridView. Un controllo DataGridView consente di visualizzare i dati in formato tabulare in modo potente e flessibile. Utilizzare questo controllo per visualizzare i dati inseriti dall'utente o da altre fonti come ad esempio un database. Utilizzare le proprietà "CurrentRow" e "CurrentCell" per passare alla riga successiva.

Istruzioni

1

Avviare Microsoft Visual Studio, fare clic su "Nuovo progetto" dal riquadro sinistro dello schermo del computer ed espandere "Visual Basic" sotto "Modelli installati." Fare clic su "Windows" e fare doppio clic su "Windows Forms Application" dal centro della finestra di dialogo per creare un nuovo progetto.

2

Fare doppio clic "DataGridview" dal riquadro "Toolbox" per aggiungerne uno al form. Fare doppio clic sul "Pulsante" per aggiungere un nuovo pulsante al form.

3

Fare doppio clic sul form per creare un evento di caricamento del form e aggiungere il codice seguente per aggiungere quattro righe di dati per il "DataGridView:"

DataGridView1.ColumnCount = 2

With DataGridView1

.RowHeadersVisible = False

.Columns(0).Name = "FName"

.Columns(1).Name = "LName"

End With

Dim gridRow As String() = {"John", "Smith"}

Dim gridRow1 As String() = {"Kitzia", "Ramos"}

Dim gridRow2 As String() = {"Oscar", "Gonzalez"}

Dim gridRow3 As String() = {"Alan", "Duran"}

With Me.DataGridView1.Rows

.Add(gridRow)

.Add(gridRow1)

.Add(gridRow2)

.Add(gridRow3)

End With4

Tornare alla visualizzazione progettazione form e fare doppio clic su "Button1" per creare un evento click per il pulsante. Aggiungere il codice riportato di seguito per spostarsi alla riga successiva, ogni volta che si sceglie il pulsante:

Dim lastRowNum As Integer = _

(Me.DataGridView1.Rows.Count - 1 - 1)

Dim curDataGridViewRow As DataGridViewRow = _

DataGridView1.CurrentRow

Dim curRowNum As Integer = curDataGridViewRow.Index

If (curRowNum >= lastRowNum) Then

MsgBox("No more rows")

Else

Dim nextRow As DataGridViewRow = _

DataGridView1.Rows(curRowNum + 1)

DataGridView1.CurrentCell = nextRow.Cells(0)

nextRow.Selected = True

End If5

Premere "F5" per eseguire il programma e fare clic su "Button1" per passare alla riga successiva.