Web浏览器控件中的光学变焦

Question

我成功地使用了VB.NET中的webbrowser控件来显示和打印文档，但无法获得想要应用的缩放功能。

例如，您可以创建一个新项目，使用“ Webbrowser1”控件和两个按钮“ btn_Plus”和“ btn_Minus”添加表单。
不要忘记将COM引用添加到“ Microsoft Internet控件”。

Option Strict Off 'because of late binding MyWeb.ExecWB
Imports SHDocVw

Public Class Form1
Dim zoomvalue As Integer = 50

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim strHtml As String = "<HTML><h1>Doc...<h1></br><h4>My html here</br>acts like web page.<h4></HTML>"
    Me.WebBrowser1.Navigate("about:" + strHtml)
End Sub

Private Sub zoom()
    Try
        Dim MyWeb As Object = Me.WebBrowser1.ActiveXInstance
        MyWeb = Me.WebBrowser1.ActiveXInstance
        MyWeb.ExecWB(OLECMDID.OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, zoomvalue, IntPtr.Zero)
        MyWeb = Nothing
    Catch ex As Exception
        'MessageBox.Show("Error:" & ex.Message)
    End Try
End Sub

Private Sub btn_Plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Plus.Click
    zoomvalue += 5
    zoom()
End Sub

Private Sub btn_Minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Minus.Click
    zoomvalue -= 5
    zoom()
End Sub
End Class

1）为什么这不起作用，我认为应该起作用？
2）如何使它工作？
3）如何从实际的Web浏览器中获取当前的缩放值？

Answer 1

尝试MyWeb.ExecWB（OLECMDID.OLECMDID_OPTICAL_ZOOM，OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER， CObj （缩放值）， CObj （IntPtr.Zero））

Web浏览器控件中的光学变焦

问题描述

1 个解决方案

解决方案1
1 已采纳 2014-12-05 13:55:57

Web浏览器控件中的光学变焦

问题描述

1 个解决方案

解决方案1 1 已采纳 2014-12-05 13:55:57

解决方案1
1 已采纳 2014-12-05 13:55:57