高分急问:用两个BUTTON控件,代替窗体上的最小化和最大化按钮的功能,如何用程序或其它方法实现?

Question

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

Answer 1

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

Answer 2

Form1.WindowState=0   '正常大小
Form1.WindowState=1   '最小化
Form1.WindowState=2   '最大化
================================================================
共同学习,共同进步
================================================================

Answer 3

Private Sub Command1_Click()
    Form1.WindowState = 1 '最小化
End SubPrivate Sub Command2_Click()
    Form1.WindowState = 2 '最大化
End Sub

Answer 4

可以自己写一个监视程序，API很容易实现的

Answer 5

Private Sub Command1_Click()
  Me.WindowState = 1 '最小化
End SubPrivate Sub Command2_Click()
  Me.WindowState = 2 '最大化
End Sub