Для работы с программы videoArchive необходимо было придумать, как после добавления новой записи фильма, переводить строку на только что добавленную запись. Для этого пришлось шерстить формы для поиска уже готового велосипеда.
После 2 часов поиска по просторам интернета было найдено решение.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
'ВНИЗ Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click PageDown(dgv) End Sub 'ВВЕРХ Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click PageDown(dgv, False) End Sub Private Sub PageDown(ByVal DGV As DataGridView, Optional ByVal down As Boolean = True) Static curRow As Integer Select Case down Case True curRow += DGV.DisplayedRowCount(True) If curRow >= DGV.RowCount Then curRow = DGV.RowCount - 1 Case Else curRow -= DGV.DisplayedRowCount(True) If curRow < 0 Then curRow = 0 End Select DGV.CurrentCell = DGV.Rows(curRow).Cells(0) DGV.FirstDisplayedScrollingRowIndex = curRow End Sub |