DataGridView ScrollBar End Event

   DataGridView实现监视滚动事件..处理当DataGridview 中的 ScrollBar滚动到 底部时的情况..

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         For i = 0 To 100             DataGridView1.Rows.Add(New DataGridViewRow)        Next        Dim pi = GetType(DataGridView).GetProperty("VerticalScrollBar", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)         Dim sr As ScrollBar         If pi <> Nothing Then             sr = pi.GetValue(DataGridView1, Nothing)         End If         If sr IsNot Nothing Then             AddHandler sr.Scroll, AddressOf EndScroll         End If     End Sub    Private Sub EndScroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)         If e.Type = ScrollEventType.EndScroll Then             If CType(sender, VScrollBar).Value = CType(sender, VScrollBar).Maximum - CType(sender, VScrollBar).LargeChange + 1 Then                 MsgBox("EndScroll" & CType(sender, VScrollBar).Value)                 For i = 0 To 10                     DataGridView1.Rows.Add(New DataGridViewRow)                Next             End If        End If    End Sub