Zoom factor webbrowser

[bn2vs]

Ik heb hier al wat op gegoogled, en een aantal scripts voor C# .net gevonden, maar nix voor vb.net. Iemand die me hiermee kan helpen?

 

[That Guy]

zoom factor voor browser?...

dat word bitblt-en voor jou. Je moet maar wat site's checken op de API 'bitblt'

 

[bn2vs]

ok, thnx

 

[eeyk]

Zoom Zoom

Private Sub mnuZoom_Click(Index As Integer)
    With WebBrowser1
        Select Case Index
            Case Is = 0: .ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(0), vbNull
            Case Is = 1: .ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(1), vbNull
            Case Is = 2: .ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(2), vbNull
            Case Is = 3: .ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(3), vbNull
            Case Is = 4: .ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(4), vbNull
        End Select
    End With
End Sub

deze gebruik ik ook

 

[bn2vs]

Is dat vb 6.0?

waarom doe je niet gewoon
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(index), vbNull
?

 

[That Guy]

ja, dat is vb6 (van eeyk)

err, is je vraag opgelost? Het lijkt er iig wel op . Was het nou bitblt dat je gebruikt? ....
(wtn is ExecWB ?)

 

[bn2vs]

Nee, ik heb het met de style property opgelost (vond ik toch iets eenvoudiger)

    Public Sub setWinZoom()
        Dim zoomLvl As Integer = My.Settings.save_zoom

        With frmBrowser
            .tmiZoomIn.Enabled = zoomLvl < 1000
            .tmiZoomOut.Enabled = zoomLvl > 10
            .splitBtnZoom.Text = zoomLvl.ToString & "%"
        End With

        getWebWin().Document.Body.Style = "zoom: " & zoomLvl.ToString & "%"
    End Sub