0

VB.NET の Web ブラウザー コントロールを使用してドキュメントを表示および印刷することに成功しましたが、適用したいズーム機能を取得できません。

たとえば、新しいプロジェクトを作成し、「Webbrowser1」コントロールと 2 つのボタン「btn_Plus」および「btn_Minus」を含むフォームを追加できます。
「Microsoft Internet Controls」への COM 参照を追加することを忘れないでください。

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 ブラウザから現在のズーム値を取得する方法は?

4

1 に答える 1