Подвисает DataGridView. Как лечить?

[alexvb2]

На форме поставил DataGridView и запихнул туда 2000 записей, после чего скролинг притормаживает (плывет с задежкой). Как лечится такой недуг?

[Joo]

Как вариант использовать виртуальный режим.

[alexvb2]

Плиз подробнее. Как это виртуальный режим?

[Денис]

Я сам не до конца понимаю смысл виртуального режима, посему прошу поправить меня, если в чем-то заблуждаюсь: Не пихать все записи в DataGridView, а оставить их в RecordSet. В DataGridView же грузить только те записи, которые умещаются на его видимой части, а при прокрутке подгружать новые/выгружать старые.

[Joo]

Не пихать все записи в DataGridView, а оставить их в RecordSet

Все верно.

Код: Выделить всё

    Dim Data As New Dictionary(Of String, String)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.VirtualMode = True
        For i As Integer = Asc("A") To Asc("Z") : DataGridView1.Columns.Add(Chr(i), Chr(i)) : Next
        DataGridView1.RowCount = Int16.MaxValue
    End Sub
    Private Sub DataGridView1_CellValueNeeded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValueEventArgs) Handles DataGridView1.CellValueNeeded
        Dim key As String = e.ColumnIndex & e.RowIndex
        If Data.ContainsKey(key) Then e.Value = Data(key)
    End Sub
    Private Sub DataGridView1_CellValuePushed(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValueEventArgs) Handles DataGridView1.CellValuePushed
        Dim key As String = e.ColumnIndex & e.RowIndex
        If Data.ContainsKey(key) Then Data(key) = e.Value Else Data.Add(key, e.Value)
    End Sub