如何使我的DataGridView1
自动调整大小?
我想自动调整我的DataGridView1
的高度。
我被困在这上面了
Private Sub Populate()
DataGridView1.Rows.Clear()
DataGridView1.ColumnCount = 1
DataGridView1.Columns(0).Name = "Device Name"
Dim row As String() = New String() {"Samsung Galaxy A8"}
DataGridView1.Rows.Add(row)
End Sub
Private Sub Passwords_Load(sender As Object, e As EventArgs) Handles Me.Load
Populate()
End Sub
发布于 2018-08-29 00:58:18
尝试将行的所有高度值相加,然后将其设置为DataGridView的高度。
DataGridView1.Height = (DataGridView1.RowCount * DataGridView1.CurrentRow.Height) + DataGridView1.ColumnHeadersHeight
或者,如果您的所有行都有不同的高度,则在它们之间循环并合计高度。
Dim TotalHeights As Integer = DataGridView1.ColumnHeadersHeight
For Each Row As DataGridViewRow In DataGridView1.Rows
TotalHeights += Row.Height
Next Row
DataGridView1.Height = TotalHeights
如果启用了滚动条,则会出现滚动条。您可以做的是在组件上禁用它们。
或者在您的代码中这样做
DataGridView1.ScrollBars = ScrollBars.None
https://stackoverflow.com/questions/52067938
复制相似问题