zooming - Access 2010 Web 浏览器控件缩放图像

Question

我的表单上有一个 Web 浏览器，它显示 Internet 上的 JPEG 图像。每条记录都有不同的图像。

有没有办法使用 URL 或 Web 浏览器控件本身设置缩放？

我需要显示完整图像的缩略图版本。

Answer 1

试试这个，它在 Access 2010 中对我有用。

Private Sub Command1_Click()
''Zoom to 25%
    Me.WebBrowser0.Object.ExecWB OLECMDID_OPTICAL_ZOOM, _
        OLECMDEXECOPT_DONTPROMPTUSER, CLng(25), vbNull
End Sub

Private Sub Form_Current()
''Navigate image
    Me.WebBrowser0.Object.Navigate "http://www.ibiblio.org/wm/rh/img/january.jpg"
End Sub