如何让网页自动适应分辨率

我做了一个exe文件嵌入网页，但在不同分辨率的环境下，网页就打开的不完整了，如下图
http://b26.photo.store.qq.com/http_imgload.cgi?/rurl4_b=b6310bcdfb4a52fb636d12a3b2716c8dc7610b4a04aea78da94ee2e55bbbaea8bbcbcf4119b8194fbb140278e65ee709843f68659fc0112b354953ff352609a930c349b829f698eb9f4c47cb1d5fbdb5bf04e6de&a=27&b=26
还有请问我如何将网页固定，只能最大化


在线等！

7 个解决方案

#1

不知道图片为什么挂了，就是分辨率变了，图片的右边一半就到屏幕的右边外面去了

#2

webbrowser 不是会自动出现滚动条吗？

#3

不是，我的代码如下
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

Private Sub Form_Load()
        WebBrowser1.Navigate "www.boyahr.cn"
End Sub

#4

或者说，把这个页面缩放成90%，也行的

#5

求达人解答，在线等

#6

'首先添加引用Microsoft HTML object Library
Private Sub ZOOMIE(v As Integer)
Dim webdoc As HTMLDocument
    Set webdoc = WebBrowser1.Document
    webdoc.parentWindow.execScript "document.body.style.zoom='" & v & "%'"
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub Command4_Click()
ZOOMIE 150
End Sub

#7

谢谢楼上，我结贴吧