1

パネルに複数のデータグリッドビューを次々に追加できます。

同じフォーラムから SysDragon のコードを追加して

    Dim AllDataGrids As List(Of My_custom_DGV)
    Dim lastCtrl As Control
    AllDataGrids = New List(Of My_custom_DGV)

    For j As Int32 = 0 To 3

        Dim aDataGridView As New My_custom_DGV()
        aDataGridView.for_date = ""
        aDataGridView._count = week_count

        aDataGridView.Dock = DockStyle.Top
        aDataGridView.Dock = DockStyle.Right
        aDataGridView.Dock = DockStyle.Left
        aDataGridView.Dock = DockStyle.Bottom


        AllDataGrids.Add(aDataGridView)


    Next j

    For i As Integer = 1 To 3
        Dim dgv As My_custom_DGV = AllDataGrids(i)
        ' Dim dgv As DataGridView = AllDataGrids(i)

        If dataGrid_Panel.Controls.Count.Equals(0) Then
            dgv.Top = DataGridView1.Height + 20
        Else
            lastCtrl = dataGrid_Panel.Controls(dataGrid_Panel.Controls.Count - 1)
            dgv.Top = lastCtrl.Top + lastCtrl.Height + 5

        End If

        dataGrid_Panel.Controls.Add(dgv)

    Next

問題は、それらの間をスクロールすると非常に見栄えが悪いことです(つまり、スクロールすると、パネル上の画像が何度も繰り返されます)。スクロールするとビューが再びレンダリングされ、データグリッドビューのペイントメソッドが繰り返し呼び出されている可能性があります。はいの場合、解決策は何ですか?ありがとう。

4

0 に答える 0