Vb.net webbrowser控制中的光学变焦_Vb.net

Vb.net webbrowser控制中的光学变焦

vb.net

Vb.net webbrowser控制中的光学变焦,vb.net,Vb.net,我成功地使用VB.NET中的webbrowser控件来显示和打印文档，但我无法获得我想要应用的缩放功能例如，您可以创建一个新项目，添加一个带有“Webbrowser1”控件和两个按钮“btn_Plus”和“btn_减号”的表单。不要忘记将COM引用添加到“Microsoft Internet控件” 由于延迟绑定MyWeb.ExecWB，Option Strict Off' 进口SHDocVw 公开课表格1 将缩放值设置为整数=50 私有子表单1_Load（ByVal发送方作为System.O

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

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

由于延迟绑定MyWeb.ExecWB，

Option Strict Off'
进口SHDocVw
公开课表格1
将缩放值设置为整数=50
私有子表单1_Load（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
Dim strHtml As String=“Doc…
此处我的html
的作用类似于网页。”
Me.WebBrowser1.Navigate（“关于：”+strHtml）
端接头
私有子缩放（）
尝试
Dim MyWeb As Object=Me.WebBrowser1.ActiveXInstance
MyWeb=Me.WebBrowser1.ActiveXInstance
MyWeb.ExecWB（OLECMDID.OLECMDID_OPTICAL_ZOOM，OLECMDEXECOPT.OLECMDEXECOPT_dontComputser，zoomvalue，IntPtr.Zero）
MyWeb=无
特例
'MessageBox.Show（“错误：&ex.Message”）
结束尝试
端接头
私有子btn_Plus_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btn_Plus.Click
zoomvalue+=5
缩放（）
端接头
私有子btn_减号单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btn_减号单击
zoomvalue-=5
缩放（）
端接头
末级

1）为什么这不起作用，我认为它应该起作用？
2）如何让它工作？
3）如何从实际webbrowser获取当前缩放值

试试MyWeb.ExecWB（oclemdid.oclemdid\u OPTICAL\u ZOOM，oclemdexecopt.oclemdexecopt\u dontprompuser，CObj（zoomvalue），CObj（IntPtr.Zero））

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