VB.NET DataGridView行高列宽自动适应切换

源于应邀回复https://bbs.csdn.net/topics/394701596?page=1#post-409337377

    Sub 行高列宽()
        列表.AutoResizeRows(DataGridViewAutoSizeRowsMode.AllCells) 'https://bbs.csdn.net/topics/394701596?page=1#post-409337377
        If 列表.AutoSizeRowsMode.Equals(DataGridViewAutoSizeRowsMode.AllCells) Then
            列表.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
        ElseIf 列表.AutoSizeRowsMode.Equals(DataGridViewAutoSizeRowsMode.None) Then
            列表.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        End If
        列表.AutoSizeColumnsMode = IIf(列表.AutoSizeColumnsMode.Equals(DataGridViewAutoSizeColumnsMode.None), DataGridViewAutoSizeColumnsMode.AllCells, DataGridViewAutoSizeColumnsMode.None)
        'For Each 表行 As DataGridViewRow In 列表.Rows
        '    表行.Height = 22
        'Next
        MessageBox.Show(列表.Rows(0).Height.ToString())
    End Sub
    Private Sub Form1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles Me.MouseDoubleClick
        行高列宽()
    End Sub