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

[vallan]

我做播放器使用mmcontrol,但是它的输出窗口的maxbutton是无效的！有办法是他变为有效嘛？即按maxbutton以后，全屏播放！

[vallan]

up

分数不够？
我追加到100分！

希望可以有人解决！

[dbcontrols]

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 Sub

Private Sub Command2_Click()
ShowWindow Handle, SW_MAXIMIZE
End Sub

[dbcontrols]

仅供参考，纸牌的最大化

[vallan]

谢谢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 Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Shell "Sol.exe", 1
Handle = FindWindow(vbNullString, "纸牌")
End Sub

Private Sub Command2_Click()
ShowWindow Handle, SW_SHOWMAXIMIZED
End Sub

再次感谢泰山！分已经送出！