请问如何用代码使最小化的窗口恢复原样

来源：百度知道 编辑：UC知道 时间：2024/05/05 10:27:16
我想编段代码，在按下某键后，最小化的程序能立即弹出恢复成原来的窗口大小，请问用哪个语句呢？谢谢

'你说的是系统热键吧
'添加窗体Form1,然后添加如下代码:
Private Sub Form_Load()
    setHotKey Me.hwnd, MOD_ALT + MOD_CONTROL, vbKeyQ '注册热键Alt+Ctrl+Q
    Me.AutoRedraw = True
    Print "最小化后按 Alt+Ctrl+Q 恢复窗口"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    delHotKey Me.hwnd
End Sub

'以下放到Module1中
=============================================================
Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA