VB.NET WinForm DataGridView缩放功能作用对象异常

异常来自两个WinForm开发的典型逻辑问题，和你描述的现象完全对应：

• 全局样式污染：DataGridView的DefaultCellStyle、ColumnHeadersDefaultCellStyle如果没有被显式赋值为私有实例，会直接引用程序集全局共享的默认样式对象。此时直接修改样式上的Font属性，改动会同步到所有未初始化私有样式的DataGridView上，这就是关闭重开F1后所有DGV跟着缩放的直接原因。
• 控件引用错位：VB.NET默认保留VB6时代的窗体默认实例访问机制，如果你打开F2时直接用窗体类名调用Show()/ShowDialog()而非显式创建新实例，加上F2内的DataGridView和F1的DGV重名，当F2处于前台激活状态时，跨窗体的控件解析会错误指向F2的DGV实例，导致开着F2时点F1的缩放按钮只改F2的控件。

另外你的原有代码还有个逻辑漏洞：取表头当前字号时，读的是单元格样式的字号，不是表头自身的字号，多次缩放后会出现表头和单元格字号不同步的问题。

1. 重写F1的缩放逻辑，从根源切断全局样式引用 #

首先在F1的Load事件中为当前DGV初始化独立的私有样式，再修正两个缩放按钮的逻辑，替换原有代码为以下内容：

' 窗体级固定配置
Private Const MIN_FONT_SIZE As Integer = 8
Private Const MAX_FONT_SIZE As Integer = 50
Private Const FONT_FAMILY As String = "Lato"

Private Sub F1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 初始化DGV私有样式，切断和全局默认样式的引用关联
    With dtgHashtagSrchResults
        .DefaultCellStyle = New DataGridViewCellStyle(.DefaultCellStyle)
        .ColumnHeadersDefaultCellStyle = New DataGridViewCellStyle(.ColumnHeadersDefaultCellStyle)
        ' 初始化独立字体实例
        .DefaultCellStyle.Font = New Font(FONT_FAMILY, .DefaultCellStyle.Font.Size)
        .ColumnHeadersDefaultCellStyle.Font = New Font(FONT_FAMILY, .ColumnHeadersDefaultCellStyle.Font.Size)
    End With
End Sub

Private Sub btnZoomOut_Click(sender As Object, e As EventArgs) Handles btnZoomOut.Click
    Dim currentCellSize As Integer = CInt(dtgHashtagSrchResults.DefaultCellStyle.Font.Size)
    Dim currentHeaderSize As Integer = CInt(dtgHashtagSrchResults.ColumnHeadersDefaultCellStyle.Font.Size)
    
    If currentCellSize <= MIN_FONT_SIZE Then
        MsgBox("Cant zoom out more", MsgBoxStyle.Information, strMsgBoxHashtagTitle)
        Return
    End If

    With dtgHashtagSrchResults
        .DefaultCellStyle.Font = New Font(FONT_FAMILY, currentCellSize - 1)
        .ColumnHeadersDefaultCellStyle.Font = New Font(FONT_FAMILY, currentHeaderSize - 1)
        ' 缩放后自动调整行列尺寸，避免显示错位
        .AutoResizeRows()
        .AutoResizeColumns()
    End With
End Sub

Private Sub btnZoomIn_Click(sender As Object, e As EventArgs) Handles btnZoomIn.Click
    Dim currentCellSize As Integer = CInt(dtgHashtagSrchResults.DefaultCellStyle.Font.Size)
    Dim currentHeaderSize As Integer = CInt(dtgHashtagSrchResults.ColumnHeadersDefaultCellStyle.Font.Size)
    
    If currentCellSize >= MAX_FONT_SIZE Then
        MsgBox("Cant zoom in more", MsgBoxStyle.Information, strMsgBoxHashtagTitle)
        Return
    End If

    With dtgHashtagSrchResults
        .DefaultCellStyle.Font = New Font(FONT_FAMILY, currentCellSize + 1)
        .ColumnHeadersDefaultCellStyle.Font = New Font(FONT_FAMILY, currentHeaderSize + 1)
        .AutoResizeRows()
        .AutoResizeColumns()
    End With
End Sub

2. 修正F2的打开逻辑，避免默认实例导致的引用错位 #

找到F1中双击行打开F2的代码，把直接用类名访问窗体的写法（比如F2.Show()、F2.ShowDialog()）替换为显式创建实例的写法：

' 显式创建F2实例，用Using块保证窗体用完自动释放
Using f2Detail As New F2()
    ' 此处补充你传递选中行详情数据给F2的业务逻辑
    f2Detail.ShowDialog(Me) ' 指定F1为F2的所有者，明确窗体从属关系
End Using

3. 调整F2的控件配置 #

• 把F2内的DataGridView控件名改成和F1的DGV不重复的名称，比如改为dtgDetailList，从命名上避免引用混淆
• 在F2的Load事件中也为自身的DGV初始化私有样式，避免继承全局样式：

Private Sub F2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    With dtgDetailList
        .DefaultCellStyle = New DataGridViewCellStyle(.DefaultCellStyle)
        .ColumnHeadersDefaultCellStyle = New DataGridViewCellStyle(.ColumnHeadersDefaultCellStyle)
    End With
End Sub

修改完成后三个场景均符合预期即为修复成功：

• 仅打开F1时，缩放功能仅作用于F1的DataGridView
• 同时打开F1、F2时，点击F1的缩放按钮仅修改F1的DGV字号，F2的内容显示不受影响
• 关闭所有窗体重新打开F1时，缩放不会影响其他窗体或后续新打开的DataGridView控件

内容的提问来源于stack exchange，提问作者8oris