重金求解（webbrowser控件）

Question

实现环境：vb 6
分辨率：1024*768
问题描述：本人做了一个非常简单的vb程序，简单到只有调用一个webbrowser控件
代码
Private Sub Command1_Click()
          Me.WindowState = vbMinimized
  End SubPrivate Sub Form_Load()
        WebBrowser1.Navigate "www.boyahr.cn"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)End Sub但是出现了一些问题，见下图第一幅是标准形态，我不会用函数，只是用手工拖动web和form边框，才能完全显示（这里有什么函数可以用？可以让网页能够满足浏览器边框，就不用手工调试。望给出源代码）
第二幅图是最大化，最大化以后，网页大小还是没有变，右边一遍没有任何显示（这里应该是有函数，但是我找不到，望达人解答）希望实现的效果：
标准形态时（大小为四分之一的屏幕，位置在屏幕中央）页面缩放为70%，完整显示，不要有滚动条
最大化时，能够完整显示页面
最小化时，能够在右下角有一个（logo）logo已经制作完成在线等，如果发帖不方便可以qq私聊 996985138

Answer 1

看不到图,回答你控制大小问题,加上下面的代码
Private Sub Form_Resize()
    WebBrowser1.Top = 20
    WebBrowser1.Left = 20
    WebBrowser1.Width = Me.Width - 40
    WebBrowser1.Height = Me.Height - 240
End Sub

Answer 2

加了楼上代码，但是还是不行，
WebBrowser1.Width = Me.Width - 20000 
    WebBrowser1.Height = Me.Height - 10000 
窗口就 只有很小的一块在左上方了

Answer 3

我的意思是，整个页面都是我的webbrowser，也就是说，点击这个exe文件，直接就进入首页，比如百度，但是存在的问题是标准形态和最大化，页面大小没有变化，那么，由于浏览器变大了，那么就会多出一部分，为空白，我现在要解决的就是这个问题，这也是我的问题1

Answer 4

'首先添加引用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 SubPrivate Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End SubPrivate Sub Command4_Click()
ZOOMIE 150
End Sub

Answer 5

首先添加控件Microsoft HTML object Library
不是引用，是控件 

Answer 6

谢谢楼上第一个问题解决了，页面缩放问题还没有解决
1：如何打开满足整个页面？
2：标准形态时（大小为四分之一的屏幕，位置在屏幕中央）页面缩放为70%，完整显示，不要有滚动条
3：最小化时，能够在右下角有一个（logo）logo已经制作完成

Answer 7

楼主，你的主页 www.boyahr.cn 不好缩放。我刚才试了一下，傲游、世界之窗都不能正常缩放。

Answer 8

这个代码可以让 WebBrowser1控件 充满整个窗体：
Private Sub Form_Resize()
    WebBrowser1.Width = ScaleWidth
    WebBrowser1.Height = ScaleHeight
End Sub

Answer 9

设计时， Form 的属性：
BorderStyle = 1
MaxButton = True

Answer 10

注意设计时改变的顺序不要搞错了：
先 BorderStyle = 1
后 MaxButton = True

Answer 11

这样设计 Form ：
先 BorderStyle = 1
后 MaxButton = True
   MinButton = Ture这样，用户可以最大化、最小化窗体，但不能用鼠标调整窗体大小。

Answer 12

非常感谢楼上，我换一种思路把这个问题解决了，如果我想在页面最小话的情况下，任务栏出现一个logo，这个应该怎样实现