VB6 代码管家-设某窗体最大化最小化
发表于 2024年12月8日 22:37
返回列表'代码出处:http://baike.baidu.com/view/1013883.htm
Private Declare Function ShowWindow Lib "user32" (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0 '隐藏
Private Const SW_SHOW = 5 '显示
Private Const SW_SHOWMINIMIZED = 2 '最小化
Private Const SW_SHOWMAXIMIZED = 3 '最大化
Private Sub Command1_Click()
ShowWindow 2359932, SW_HIDE
End Sub
Private Sub Command2_Click()
ShowWindow 2359932, SW_SHOW
End Sub