16,721
社区成员




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
object pvaIn=50;
this.axIWebBrowser2.ExecWB(OLECMDID.OLECMDID_OPTICAL_ZOOM,
OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER,
ref pvaIn, IntPtr.Zero);
dim pvaOut as object=nothing
AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_GETZOOMRANGE, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, IntPtr.Zero, pvaOut)
Debug.Print(pvaOut)
使用这段代码读取缩放率的时候,返回的值是262144,这是什么鬼,难道是个地址?