Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
With Me.DataGridView1
.RowCount = 100
End With
With Me.VScrollBar1
.Minimum = 0
.Maximum = Me.DataGridView1.RowCount - 1
End With
End Sub
Private Sub VScrollBar1_Scroll(ByVal sender As Object, _
ByVal e As System.Windows.Forms.ScrollEventArgs) _
Handles VScrollBar1.Scroll
Me.DataGridView1.FirstDisplayedScrollingRowIndex = e.NewValue
End Sub
|
