Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim D1Column1 As New System.Windows.Forms.DataGridViewTextBoxColumn
Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {D1Column1})
Dim D2Column1 As New System.Windows.Forms.DataGridViewTextBoxColumn
Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {D2Column1})
DataGridViewHeightUpdate()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.Rows.Add(New String() {"a" + Rnd().ToString})
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DataGridView2.Rows.Add(New String() {"a" + Rnd().ToString})
End Sub
#Region " DataGridViewHeightUpdate "
Private Sub DataGridView1_RowHeightChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) _
Handles DataGridView1.RowHeightChanged, DataGridView2.RowHeightChanged
DataGridViewHeightUpdate()
End Sub
Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) _
Handles DataGridView1.RowsAdded, DataGridView2.RowsAdded
DataGridViewHeightUpdate()
End Sub
Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) _
Handles DataGridView1.RowsRemoved, DataGridView2.RowsRemoved
DataGridViewHeightUpdate()
End Sub
Private Sub DataGridViewHeightUpdate()
'DataGridView1'
Dim h1 As Integer = Me.DataGridView1.RowTemplate.Height
For Each r1 As DataGridViewRow In DataGridView1.Rows
h1 += r1.Height
Next
DataGridView1.Height = h1 + 1
'DataGridView2'
Dim h2 As Integer = Me.DataGridView2.RowTemplate.Height
For Each r2 As DataGridViewRow In DataGridView2.Rows
h2 += r2.Height
Next
DataGridView2.Height = h2 + 1
DataGridView2.Top = DataGridView1.Bottom + 10
'Form ClientSize'
Me.ClientSize = New Size(Me.ClientSize.Width, Me.DataGridView2.Bottom + 30)
End Sub
#End Region
End Class
