如何在vb6.0中显示缩小的Web浏览器

发布时间：2020-12-17 00:08:43 所属栏目：大数据来源：网络整理

导读：这是用于缩小网页浏览器的代码 Const OLECMDID_OPTICAL_ZOOM = 63Const OLECMDEXECOPT_DONTPROMPTUSER = 2Web1.ExecWB OLECMDID_OPTICAL_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,CLng(35),vbNull 当我使用代码时,我得到以下运行时错误： -2147221248 (80040100):

这是用于缩小网页浏览器的代码

Const OLECMDID_OPTICAL_ZOOM = 63
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Web1.ExecWB OLECMDID_OPTICAL_ZOOM,OLECMDEXECOPT_DONTPROMPTUSER,CLng(35),vbNull

当我使用代码时,我得到以下运行时错误：

-2147221248 (80040100): Automation Error

有任何想法吗？

编辑：
我使用你给出的代码.它在调试模式下工作正常,一旦我采取exe并运行它显示以下错误.

这仅在文档加载后才有效,然后似乎会持续进行后续导航.

如果在没有DOM文档时尝试更改光学变焦,则会出现错误80040100.

下面的代码最初只是在适当的时候设置缩放;

Private Const OLECMDID_OPTICAL_ZOOM As Long = 63
Private Const OLECMDEXECOPT_DONTPROMPTUSER As Long = 2

Private mblHasSetZoom As Boolean

Private Sub Form_Load()
    web1.Navigate2 "http://www.google.com"
End Sub

Private Sub web1_DocumentComplete(ByVal pDisp As Object,URL As Variant)
If Not mblHasSetZoom Then
    web1.ExecWB OLECMDID_OPTICAL_ZOOM,35&
    mblHasSetZoom = True
End If
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!