WindowState 属性
返回或设置一个值,该值用来指定在运行时窗体窗口的可视状态。语法object.WindowState [= value]WindowState 属性的语法包含下面部分:部分 描述
Object 对象表达式,其值是“应用于”列表中的一个对象。
Value 一个用来指定对象状态的整数,“设置值”中有详细描述。
设置值value 的设置值为:常数 值 描述
vbNormal 0 (缺省值)正常 。
VbMinimized 1 最小化(最小化为一个图标)
VbMaximized 2 最大化(扩大到最大尺寸)
说明在窗体被显示之前,WindowState 属性常常被设置为正常 (0),而不管其初始设置值。这反映在 Height、Left、ScaleHeight、ScaleWidth、Top、和 Width 属性设置值中。如果窗体在它已被显示后被隐藏,那么这些属性将反映以前的状态直到窗体被再次显示,而不管在此期间对 WindowState 属性所作的任何改变。
if me.WindowState<>VbMinimized then '当form不是最小化时
给分吧!
本例在父窗体 (Form1) 被最小化时隐藏对话框 (Form2),并在父窗体被还原为原来的状态或被最大化时重新显示对话框。要试用此例,将下面的代码粘贴到包含两个窗体的应用程序的 Form1 的声明部分。按 F5 键 以启动这个例子。移动 Form1 以使能够看到两个窗体,然后最小化或最大化窗体并观察 Form2 的行为。Private Sub Form_Load ()
Form2.Show ' 显示 Form2。
End SubPrivate Sub Form_Resize ()
' 如果父窗体被最小化...
If Form1.WindowState = vbMinimized Then
' ...隐藏 Form2。
Form2.Visible = False
' 如果父窗体不再是最小化...
Else
' ...恢复 Form2。
Form2.Visible = True
End If
End Sub
VB接收到后,会设置windowstate属性,并触发窗口的ReSize事件