请问高手，如何在VBA代码中最小化当前窗体

清风明月九

请问高手，如何在VBA代码中最小化当前窗体？一般最小化是自己去点击，我希望用代码去实现。
下面这些代码只是能让窗体出现最小化、最大化按钮，但如何写代码执行某窗体最小化我却不知道
'这以下的代码放在窗体代码的顶部
'注意下面还有放在底部的代码
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME As Long = &H40000 '(恢复大小)
Private Const WS_MINIMIZEBOX As Long = &H20000 '(最小化)
Private Const WS_MAXIMIZEBOX As Long = &H10000 '(最大化)         
'这以上的代码放在窗体代码的顶部



'这以下的代码放在窗体代码的底部
'窗体UserForm的初始化
Private Sub UserForm_Initialize()
Dim hWndForm As Long
Dim IStyle As Long
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
IStyle = GetWindowLong(hWndForm, GWL_STYLE)
IStyle = IStyle Or WS_THICKFRAME '还原
IStyle = IStyle Or WS_MINIMIZEBOX '最小化
IStyle = IStyle Or WS_MAXIMIZEBOX '最大化
SetWindowLong hWndForm, GWL_STYLE, IStyle
End Sub
'这以上的代码放在窗体代码的底部

不屑一顾

都没高手出来教下啊{:soso_e127:}快换接头

413191246se

试过录制宏没有？

sqhsqhli

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME As Long = &H40000 '(恢复大小)
Private Const WS_MINIMIZEBOX As Long = &H20000 '(最小化)
Private Const WS_MAXIMIZEBOX As Long = &H10000 '(最大化)
'这以上的代码放在窗体代码的顶部

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MINIMIZE = &HF020&

Private Sub UserForm_Activate()
Dim hWndForm As Long
Dim IStyle As Long
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
IStyle = GetWindowLong(hWndForm, GWL_STYLE)
IStyle = IStyle Or WS_THICKFRAME '还原
IStyle = IStyle Or WS_MINIMIZEBOX '最小化
IStyle = IStyle Or WS_MAXIMIZEBOX '最大化
SetWindowLong hWndForm, GWL_STYLE, IStyle
SendMessage hWndForm, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0& '注释：使窗体最小化
End Sub

413191246se

我录制的最小化 WORD 窗口（不知道是不是楼主想要的，最小化当前文档窗口需要再录）

' 最小化当前窗口 Macro
    Application.WindowState = wdWindowStateMinimize

jlhao

1. Application.ActiveWindow.WindowState = wdWindowStateMinimize

复制代码

清风明月九

5楼6楼说的是应用软件窗口最小化，我说的是VBA窗体最小化
4楼的意思不知道是什么，好象是说打开窗体就最小化，是吗？
SendMessage hWndForm, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0& '注释：使窗体最小化
问题是，能不能将它分别放在各个宏中呢？
我试试

清风明月九

谢谢四楼的sqhsqhli，你的代码解决了我的问题。我在你的代码基础上最后做成这样的代码就可以实现我的目标:


Private Sub CommandButton14_Click()
Me.Hide
Me.Show 0
Dim hWndForm As Long
Dim IStyle As Long
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
IStyle = GetWindowLong(hWndForm, GWL_STYLE)
IStyle = IStyle Or WS_THICKFRAME '还原
IStyle = IStyle Or WS_MINIMIZEBOX '最小化
IStyle = IStyle Or WS_MAXIMIZEBOX '最大化
SetWindowLong hWndForm, GWL_STYLE, IStyle
SendMessage hWndForm, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0& '注释：使窗体最小化
End Sub

清风明月九

谢谢四楼sqhsqhli，您解决了我的将窗体最小化的难题。
Private Const SC_MINIMIZE = &HF020& '最小化窗体
Private Const SC_CLOSE = &HF060& '关闭窗体
Private Const SC_MAXIMIZE = &HF030& '最大化窗体
Private Const SC_RESTORE = &HF120& '恢复窗体大小
Private Const WM_SETTEXT = &HC '设置窗体的Caption
Private Const WM_GETTEXT = &HD '取得窗体的caption
再定义这些公共宏，就可以执行关闭、最大化、恢复窗体等

再次谢谢四楼sqhsqhli

没玩没了的漂泊

您好，楼主。非常想看一看您编译通过的窗口最小化的代码