vb.net DataGridView根据标题的字符串长度调整列宽,每行代码后面带注释

以下是根据标题字符串长度调整列宽的VB.NET DataGridView代码，每行代码后面带注释：

' 设置DataGridView控件自动调整列宽模式
DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

' 循环遍历DataGridView控件的列
For Each col As DataGridViewColumn In DataGridView1.Columns
    ' 获取列标题字符串的像素长度
    Dim width As Integer = TextRenderer.MeasureText(col.HeaderText, col.InheritedStyle.Font).Width
    ' 如果该列的单元格内容长度大于标题字符串长度，则获取单元格内容的像素长度
    For Each cell As DataGridViewCell In col.Cells
        If cell.Value IsNot Nothing Then
            Dim cellWidth As Integer = TextRenderer.MeasureText(cell.Value.ToString(), col.InheritedStyle.Font).Width
            width = Math.Max(width, cellWidth)
        End If
    Next
    ' 设置该列的宽度为标题字符串像素长度和单元格内容像素长度的最大值
    col.Width = width
Next

这段代码首先将DataGridView控件的列宽度调整模式设置为自动调整模式（AutoSizeColumnsMode.AllCells），然后循环遍历每一列。对于每一列，它会先获取该列标题字符串的像素长度，然后逐个遍历该列的单元格，如果该单元格的内容不为空，则获取该单元格内容字符串的像素长度并与标题字符串像素长度比较，取最大值。最后，将该列的宽度设置为标题字符串像素长度和单元格内容像素长度的最大值。

这样，每一列的宽度就会根据标题字符串长度和单元格内容长度自动调整，以适应内容显示。