vb中如何让webbrowser控件大小随窗体变化？

[yin0377]

最大化窗体后webbrowser控件仍然是原始大小。

[嗷嗷叫的老马]

Option Explicit
'*************************************************************************
'**模 块 名：ModAutoSize
'**说    明：自动调整窗体控件大小及位置
'**创 建 人：马大哈 紫水晶工作室 版权所有
'**日    期：2003年12月17日
'**备    注: 摘于网络
'**版    本：V1.0
'*************************************************************************
''   在Form_Load里面调用:
''               ControlAutoSize Me,0
''   在Form_Resize里面调用:
''               ControlAutoSize Me,1
''**********************************

Private Type cP
  Wp As Single
  Hp As Single
  Tp As Single
  Lp As Single
End Type
Dim Ap() As cP

Private Sub Ai(ByRef mForm As Form)
    On Error Resume Next
    Dim I As Integer
    For I = 0 To mForm.Controls.Count - 1
          With Ap(I)
                .Wp = mForm.Controls(I).Width / mForm.Width
                .Hp = mForm.Controls(I).Height / mForm.Height
                .Lp = mForm.Controls(I).Left / mForm.Width
                .Tp = mForm.Controls(I).Top / mForm.Height
          End With
    Next I
End Sub

Public Function ControlAutoSize(ByRef mForm As Form, ByVal OptIndex As Long)
    Select Case OptIndex
        Case 0
            mForm.Height = mForm.ScaleHeight
            ReDim Ap(0 To mForm.Controls.Count - 1)
            Call Ai(mForm)
        Case Else
            Dim I As Integer
            
            On Error Resume Next
            With mForm
                For I = 0 To .Controls.Count - 1
                    .Controls(I).Move Ap(I).Lp * .ScaleWidth, _
                                     Ap(I).Tp * .ScaleHeight, _
                                     Ap(I).Wp * .ScaleWidth, _
                                     Ap(I).Hp * .ScaleHeight
                Next I
            End With
    End Select
End Function

注意错误处理.

[zenter]

还有办法
窗体最大化会触发窗体的_Resize 事件
在这个事件下 webbrowser 可根据 窗体的大小 进行调整
比如

webbrowser.top = me.top -200
webbrowser.left = me.left - 200
webbrowser.width = me.width - 400
webbrowser.height = me.height

[mwjw258]

谢谢了，超级实用，好用。

[无·法]

我一般都是用 webbrowser1.move 0,0,me.scalewidth,me.scaleheight