最小化时出的问题？

Question

Private Sub Form_Resize()
    if me.windowstate=1 then exit sub
    On error resume next
    cboAddress.Width = frmBrowser.ScaleWidth - 100
    brwWebBrowser.Width = frmBrowser.ScaleWidth - 100
    brwWebBrowser.Height = frmBrowser.ScaleHeight - (picAddress.Top + picAddress.Height) - 300
End Sub

Answer 1

If me.WindowState=VbMinimized Then Exit Sub

Answer 2

Private Sub Form_Resize()
    if me.windowstate=1 then   '判断是不是最小化
        exit sub  
    end if
    cboAddress.Width = frmBrowser.ScaleWidth - 100
    brwWebBrowser.Width = frmBrowser.ScaleWidth - 100
    brwWebBrowser.Height = frmBrowser.ScaleHeight - (picAddress.Top + picAddress.Height) - 300
End Sub

Answer 3

WindowState 属性
      返回或设置一个值，该值用来指定在运行时窗体窗口的可视状态。语法object.WindowState [= value]WindowState 属性的语法包含下面部分：部分 描述 
Object 对象表达式，其值是“应用于”列表中的一个对象。 
Value 一个用来指定对象状态的整数，“设置值”中有详细描述。 
设置值value 的设置值为：常数 值 描述 
vbNormal 0 （缺省值）正常 。 
VbMinimized 1 最小化（最小化为一个图标） 
VbMaximized 2 最大化（扩大到最大尺寸） 
说明在窗体被显示之前，WindowState 属性常常被设置为正常 (0)，而不管其初始设置值。这反映在 Height、Left、ScaleHeight、ScaleWidth、Top、和 Width 属性设置值中。如果窗体在它已被显示后被隐藏，那么这些属性将反映以前的状态直到窗体被再次显示，而不管在此期间对 WindowState 属性所作的任何改变。

Answer 4

Private Sub Form_Resize()
    If me.WindowState=VbMinimized Then Exit Sub
    cboAddress.Width = frmBrowser.ScaleWidth - 100
    brwWebBrowser.Width = frmBrowser.ScaleWidth - 100
    brwWebBrowser.Height = frmBrowser.ScaleHeight - (picAddress.Top + picAddress.Height) - 300
End Sub