vba窗体 点击增加减少_VBA 窗体之添加最大最小化按钮 | ExcelFans

'****************************************

'---此模块演示了给窗体添加最大最小化按钮---

'****************************************

Option Explicit

'以下声明API函数

#If Win64 Then '64位

Private Declare PtrSafe Function FindWindow _

Lib "user32" _

Alias "FindWindowA" ( _

ByVal lpClassName As String, _

ByVal lpWindowName As String) _

As LongPtr

Private Declare PtrSafe Function GetWindowLong _

Lib "user32" _

Alias "GetWindowLongPtrA" ( _

ByVal hwnd As LongPtr, _

ByVal nIndex As Long) _

As LongPtr

Private Declare PtrSafe Function SetWindowLong _

Lib "user32" _

Alias "SetWindowLongPtrA" ( _

ByVal hwnd As LongPtr, _

ByVal nIndex As Long, _

ByVal dwNewLong As LongPtr) _

As LongPtr

Private Declare PtrSafe Function DrawMenuBar _

Lib "user32" ( _

ByVal hwnd As LongPtr) _

As Long

#Else '32位

'查找窗口

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 Declare Function DrawMenuBar _

Lib "User32" ( _

ByVal Hwnd As Long) _

As Long

#End If

#If Win64 Then '64位

Private FHwnd As LongPtr

Private FIstype As LongPtr

#Else

Private FHwnd As Long

Private FIstype As Long

#End If

'以下定义常数

Private Const GWL_STYLE = (-16) '窗口样式

Private Const WS_MAXIMIZEBOX = &H10000 '最大化按钮

Private Const WS_MINIMIZEBOX = &H20000 '最小化按钮

'**************************************

'---------------主程序-----------------

'**************************************

Private Sub UserForm_Initialize()

'查找窗口句柄

FHwnd = FindWindow("ThunderDFrame", Me.Caption)

'取得窗口样式位

FIstype = GetWindowLong(FHwnd, GWL_STYLE)

'窗体样式位: 原样式和最大化、最小化按钮

FIstype = FIstype Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX

'重设窗体样式位

SetWindowLong FHwnd, GWL_STYLE, FIstype

'重绘窗体标题栏

DrawMenuBar FHwnd

End Sub

'****************************************

'---此模块演示了给窗体添加最大最小化按钮---

'****************************************

Option Explicit

'以下声明API函数

#If Win64 Then '64位

Private Declare PtrSafe Function FindWindow _

Lib "user32" _

Alias "FindWindowA" ( _

ByVal lpClassName As String, _

ByVal lpWindowName As String) _

As LongPtr

Private Declare PtrSafe Function GetWindowLong _

Lib "user32" _

Alias "GetWindowLongPtrA" ( _

ByVal hwnd As LongPtr, _

ByVal nIndex As Long) _

As LongPtr

Private Declare PtrSafe Function SetWindowLong _

Lib "user32" _

Alias "SetWindowLongPtrA" ( _

ByVal hwnd As LongPtr, _

ByVal nIndex As Long, _

ByVal dwNewLong As LongPtr) _

As LongPtr

Private Declare PtrSafe Function DrawMenuBar _

Lib "user32" ( _

ByVal hwnd As LongPtr) _

As Long

#Else '32位

'查找窗口

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 Declare Function DrawMenuBar _

Lib "User32" ( _

ByVal Hwnd As Long) _

As Long

#End If

#If Win64 Then '64位

Private FHwnd As LongPtr

Private FIstype As LongPtr

#Else

Private FHwnd As Long

Private FIstype As Long

#End If

'以下定义常数

Private Const GWL_STYLE = (-16) '窗口样式

Private Const WS_MAXIMIZEBOX = &H10000 '最大化按钮

Private Const WS_MINIMIZEBOX = &H20000 '最小化按钮

'**************************************

'---------------主程序-----------------

'**************************************

Private Sub UserForm_Initialize()

'查找窗口句柄

FHwnd = FindWindow("ThunderDFrame", Me.Caption)

'取得窗口样式位

FIstype = GetWindowLong(FHwnd, GWL_STYLE)

'窗体样式位: 原样式和最大化、最小化按钮

FIstype = FIstype Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX

'重设窗体样式位

SetWindowLong FHwnd, GWL_STYLE, FIstype

'重绘窗体标题栏

DrawMenuBar FHwnd

End Sub