webbrowser实现网页缩放的问题

[三楼の郎]

网上搜了一遍，大体两种方法，
其一是通过样式表设置zoom属性来控制，实际测试发现通过设置Body标签的zoom样式不能实现缩放，但是通过设置div标签的zoom样式可以对某个div标签进行缩放，无法达到想要的效果，猜测可能和POSITION：absolute这个样式有关。
其二是通过Com控件AxWebBrowser的ExeWB方法实现，代码如下：

Dim pvaIn As Integer = 100
            Dim pvaOut As Object = Nothing
            Try
                AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_ZOOM, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, CObj(pvaIn), IntPtr.Zero)
            Catch ex As Exception
                Debug.Print(ex.Message)
            End Try

运行是会抛出错误，“试图吊销一个未注册的拖放目标 (异常来自 HRESULT:0x80040100 (DRAGDROP_E_NOTREGISTERED))”
在C#里面调用

object pvaIn=50;
this.axIWebBrowser2.ExecWB(OLECMDID.OLECMDID_OPTICAL_ZOOM,
                   OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER,
                   ref pvaIn, IntPtr.Zero);

这样的写法貌似却可以，谁做过类似的东西，能不能告诉我在vb.net里面调用ExeWB的时候参数怎么传

[三楼の郎]

dim pvaOut as object=nothing
AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_GETZOOMRANGE, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, IntPtr.Zero, pvaOut)
Debug.Print(pvaOut)

使用这段代码读取缩放率的时候，返回的值是262144，这是什么鬼，难道是个地址？

[三楼の郎]

C#底下做了一个自定义控件，居然就可以了 害我愁了一天了