WinForm中WebBrowser控件在父窗体调整大小前不绘制内容如何解决

问题根因 #

WebBrowser控件的渲染流程依赖自身窗口句柄和父容器Form的初始化状态，你的代码存在两个核心问题导致首次渲染失败：

1. 在控件尚未挂载到可见Form、句柄未完成初始化时就赋值DocumentText，渲染管线未被正确触发
2. 同时开启了WebBrowser的AutoSize属性，又手动设置宽高、在SizeChanged事件里修改尺寸，两种布局逻辑冲突，导致首次布局中断，只有手动触发SizeChanged事件重新走布局流程才会正常绘制

修复方案 #

直接替换为以下修改后的函数代码即可，调用逻辑无需变动：

Public Function PopupHtmlForm(title As String, body As String, Optional formSize As Size = Nothing) As Form
    ' 替换旧的IIf为短路运算If，避免无效求值
    Dim formWidth = If(formSize.IsEmpty, 300, formSize.Width)
    Dim formHeight = If(formSize.IsEmpty, 500, formSize.Height)

    Dim frm = New Form
    frm.Size = New Size(formWidth, formHeight)
    frm.Icon = Main.Icon
    frm.Text = title

    Dim htmlBody = New WebBrowser With {
        .Location = New Point(5, 5),
        .Width = frm.ClientSize.Width - 10,
        .Height = frm.ClientSize.Height - 15,
        .BackColor = Color.White,
        .AutoSize = False, ' 关闭自动尺寸，避免和手动布局逻辑冲突
        .ScriptErrorsSuppressed = True ' 可选，屏蔽HTML脚本错误弹窗
    }

    frm.Controls.Add(htmlBody)
    frm.StartPosition = FormStartPosition.Manual
    ' 修正原代码错误：Location应为Point类型而非Size
    frm.Location = New Point(1000, 50)
    frm.AutoScroll = True

    ' 统一封装WebBrowser尺寸调整逻辑
    Dim adjustBrowserSize As Action = Sub()
                                          If frm.VerticalScroll.Visible Then
                                              htmlBody.MaximumSize = New Size(frm.ClientSize.Width - 10 - SystemInformation.VerticalScrollBarWidth, 0)
                                          Else
                                              htmlBody.MaximumSize = New Size(frm.ClientSize.Width - 10, 0)
                                          End If
                                          htmlBody.Width = frm.ClientSize.Width - 10
                                          htmlBody.Height = frm.ClientSize.Height - 15
                                      End Sub

    AddHandler frm.SizeChanged, Sub() adjustBrowserSize()

    ' 等Form加载完成、控件句柄初始化后再赋值HTML，主动触发一次布局强制渲染
    AddHandler frm.Load, Sub()
                            htmlBody.DocumentText = body
                            adjustBrowserSize()
                            htmlBody.Update()
                         End Sub

    Return frm
End Function

关键修改说明 #

• 关闭WebBrowser的AutoSize属性，避免自动布局和手动布局逻辑冲突
• 将DocumentText赋值挪到Form的Load事件中执行，此时控件和父容器的句柄都已完成初始化，可正常触发渲染
• Form加载完成后主动调用一次尺寸调整逻辑，模拟手动修改窗口大小的操作，强制控件触发重绘
• 修正了原代码中frm.Location赋值类型错误的问题

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