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