asp.net 窗体关闭事件_VBA代码将强制执行：你的窗体上必须显示最大、最小化按钮...

大家好，我们今日继续讲解VBA代码解决方案的第102讲内容：如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时，不知你是否注意到：VBA中的窗体标题栏上只有关闭按纽，没有最大最小化按钮的。如下图。

那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢？这时就要利用API函数了，利用API函数在窗体的标题栏上添加最大最小化按钮，是非常可行的。

如下面的代码所示。

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

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) 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 WS_MAXIMIZEBOX = &H10000

Private Const WS_MINIMIZEBOX = &H20000

Private Const GWL_STYLE = (-16)

Private Sub UserForm_Initialize() '注意是在此事件下的加载

Dim hWndForm As Long

Dim iStyle As Long

hWndForm = FindWindow("ThunderDFrame