Visual Basic中如何自动调整WebBrowser控件打开的网页显示大小

WebBrowser控件本身提供了官方缩放接口，不需要模拟Ctrl+减号的按键操作，以下是两种可直接使用的实现方案：

方案1：调用控件内置ExecWB方法（推荐，全局生效） #

这是微软官方提供的光学缩放接口，修改的是WebBrowser控件的全局缩放比例，适配所有加载的页面：

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    ' 数值为缩放百分比，75对应75%，可根据实际需求调整
    Dim targetZoom As Integer = 75
    ' 63对应OLECMDID_OPTICAL_ZOOM常量，0对应OLECMDEXECOPT_DODEFAULT常量
    WebBrowser1.ExecWB(63, 0, targetZoom, IntPtr.Zero)
End Sub

如果需要引用OLE常量做规范开发，可提前导入Microsoft.VisualBasic.OLE命名空间，使用OLECMDID.OLECMDID_OPTICAL_ZOOM和OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT替换对应的数值即可。

方案2：注入CSS修改页面缩放（仅当前页面生效） #

如果只需要针对单个加载的页面调整缩放，不影响后续打开的其他页面，可以通过注入样式的方式实现：

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    If WebBrowser1.Document IsNot Nothing AndAlso WebBrowser1.Document.Body IsNot Nothing Then
        ' 0.75对应缩放75%，和手动按Ctrl+减号到75%的效果完全一致
        WebBrowser1.Document.Body.Style = "zoom: 0.75;" & WebBrowser1.Document.Body.Style
    End If
End Sub

注意事项 #

• 缩放逻辑必须在DocumentCompleted事件中触发，要保证页面DOM完全加载完成后再执行操作，否则会因为DOM未初始化导致缩放失效
• 如果是高DPI设备下默认页面放大异常的场景，可以先给程序添加manifest配置禁用DPI虚拟化，再配合上述缩放方法使用，适配效果更稳定

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