有没有办法让mmcontrol的输出窗口的maxbutton变为有效！

Question

Private Const SW_MAXIMIZE = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim Handle As Long
Private Sub Command1_Click()
Shell "Sol.exe", 1
Handle = FindWindow(vbNullString, "纸牌")
End SubPrivate Sub Command2_Click()
ShowWindow Handle, SW_MAXIMIZE
End Sub

Answer 1

谢谢dbcontrols(泰山__抛砖引玉) 的点拨！我试验过了！现在问题解决了！
但是你的代码有点问题！我已经修正了！代码如下：Private Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim Handle As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Command1_Click()
Shell "Sol.exe", 1
Handle = FindWindow(vbNullString, "纸牌")
End SubPrivate Sub Command2_Click()
ShowWindow Handle, SW_SHOWMAXIMIZED
End Sub再次感谢泰山！分已经送出！