Question

请问高手，如何在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
'这以上的代码放在窗体代码的底部

Answer 1

DoCmd.Minimize 最小化当前窗口
可以不用调用API函数，最小化，最大化等窗体的所有操作都可以用DOCMD的对象的各种方法来实现的。而且语句都很简单。

追问

但我照此写成代码，则运行错误。我的代码如下：

Private Sub CommandButton1_Click()
DoCmd.Minimize
End Sub
我是在VBA程序编辑器中。
您能写一个完整的VBA运行代码吗？是一段可运行的。我提高奖分

追答

我运行了没有错了 把你的错误描述抄下来看看。
docmd对象时access对象。如果是excel，你用录制宏来记录一下最小化操作的代码，自己看一下吧。
ActiveWindow.WindowState = xlMinimized
这个是excel最小化的代码，它实际上是用的属性来设置的。

追问

你说的是EXCEL窗口，我说的是VBA代码编写的窗体，将窗体最小化。

追答

哦，你有用户窗体useform啊。
具体没有用过，我给你一个迂回的方法，可以间接实现类似功能：
使用useform对象的hide和show方法隐藏和显示窗体吧。

追问

谢谢您解答！专业人士说没有这种功能，做不到。只有access中的VBA能对窗体进行最小化操作，WORD EXCEL CAD等都不行