谁知道怎么把已最小化的窗体用API函数让变成最大化？给例子马上给分！

Question

有个程序。当它最小化时，我想用消息或者其他的方法把它自动弹出来边成最大化！

Answer 1

'首先，在Project中加入一个Module文件；然后，在Module中加入以下代码：    Public Declare Function EnumWindows Lib "user32" _
     (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
    Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
     (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Declare Function ShowWindow Lib "user32" (ByVal _
     hwnd As Long, ByVal nCmdShow As Long) As Long　　Public Const WS_MINIMIZEBOX = &H20000
   
    
　　Public Const WS_VISIBLE = &H10000000
　　Public Const GWL_STYLE = (-16)
　　Public Const SW_MINIMIZE = 6    '该函数是EnumWindows的回调函数，
    'EnumWindows函数将遍历的窗口句柄传递到hwnd参数中
    Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
     Dim l As Long
     Dim ld As Long
     ld = GetWindowLong(hwnd, GWL_STYLE)
     '如果窗口具有最小化按钮并且窗口是可见的就将该窗口最小化
     If ((ld And WS_MINIMIZEBOX) = WS_MINIMIZEBOX) Then
     If ((ld And WS_VISIBLE)) Then
     If ShowWindow(hwnd, SW_MINIMIZE) Then
     End If
     End If
     End If
     EnumWindowsProc = True
    End Function    '然后在Form1中添加一个CommandButton，并在Form1的代码窗口中添加以下代码：    Private Sub Command1_Click()
     Dim l As Long
     '遍历所有的窗口
     l = EnumWindows(AddressOf EnumWindowsProc, 0)
    End Sub    '运行上面的程序，点击CommandButton，桌面上的所有窗口就会被最小化。在上面的例程中，我们首先调用EnumWinodws函数遍历所有的窗口，每当函数遍历到一个窗口，它就调用一次参数lpEnumFunc指定的窗口处理函数并将这个窗口的句柄传递到窗口处理函数中，以便让它处理。那么，我们就只要在窗口处理函数中使用GetwindowLong函数来获得并判断窗口的类型，如果窗口是可见的，并且窗口具有最小化按钮，则将窗口最小化。

Answer 2

将以上例程改为最大化即可，常数定义：
Public Const WS_MAXIMIZEBOX = &H10000  '最大化

Answer 3

'这个简单
Private Sub Form_Resize()
  If Me.WindowState = 1 Then
    Me.WindowState = 2
  End If
End Sub

Answer 4

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long,ByVal nCmdShow As Long) As LongPrivate Const SW_MAXIMIZE As Long = 3Private Sub Form_Load()    ShowWindow Me.hwnd, SW_MAXIMIZE
    
End Sub

Answer 5

正如 yefanqiu(叶帆)所说
根本不需api

Answer 6

GetWindowPlacement判断窗体是否最小化

Answer 7

lilaclone(~~阿九~~) :这样子做得挺好！up!!!!!!!!!!!!!!!

Answer 8

tobeatiger(悦) 和 yefanqiu(叶帆)我觉得你们理解错了，人家说已最小化，不是准备最小化呀。