窗口最大化

Question

如何调用API函数实现窗口的最大化！！

Answer 1

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongConst SW_MAXIMIZE = 3Private Sub Command1_Click()    ShowWindow Me.hwnd, SW_MAXIMIZEEnd Sub

Answer 2

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongConst SW_MAXIMIZE = 3Private Sub Command1_Click()    ShowWindow Me.hwnd, SW_MAXIMIZEEnd Sub

Answer 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongConst SW_MAXIMIZE = 3Private Sub Command1_Click()ShowWindow Me.hwnd, SW_MAXIMIZEEnd Sub