VBA窗体中最小化和最大化按钮的显示

halfzx

在插入的用户窗体中双击鼠标，打开窗体的代码窗口，删除其中的默认事件（UserForm_Click()事件）代码，然后输入下面的API系统调用程序：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
完成后运行用户窗体就可以观察到如图所示的效果了。

1433552050

好东西订一下

lujkhua

1. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _
   
2. ByVal nIndex As Long) As Long
   
3. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
   
4. ByVal lpWindowName As String) As Long
   
5. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, _
   
6. ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
7. 
   
8. Private Sub UserForm_Initialize()
   
9.     SetWindowLong FindWindow("ThunderDFrame", Me.Caption), -16, _
   
10. GetWindowLong(FindWindow("ThunderDFrame", Me.Caption), -16) Or &H40000 Or &H20000 Or &H10000
    
11. End Sub

复制代码

这样也可以哟！

aman1516

哎哟，不错，学习一下

松叶落

楼主的唯一缺点就是，后面的代码不能再使用userform.caption功能，否则最大化最小化按钮就没有了~

qinyu0745

做个记号，以后学习

gyqynufe

伴生出一个问题：窗体能最大化后，窗体内的控件貌似没有啥改变，这使得最大化好像貌似一只花瓶。

lucasmnp

留个脚步，以后学习。谢谢

leolee82

gyqynufe 发表于 2022-1-31 09:33
伴生出一个问题：窗体能最大化后，窗体内的控件貌似没有啥改变，这使得最大化好像貌似一只花瓶。

这个是布局的问题，VBA没有提供，自己想怎么写就怎么写

hqlin65

好东西订一下