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

gait1030

刚好用上，还想屏幕自适应。该如何做呢？

excellearnning

楼主的唯一缺点就是，后面的代码不能再使用userform.caption功能，否则最大化最小化按钮就没有了~
我完全按上面的代码来执行，为什么没有出现最大最小按钮呢？
64位系统，把Private Declare Function改成Private Declare  ptrsafe Function

excellearnning

Option Explicit
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe 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 UserForm1_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
按这个代码运行，没有出现最大最小按钮，请问是怎么回事呢！

excellearnning

原因找到了，hWndForm = FindWindow("ThunderDFrame", Me.Caption)，这个地方不能用me.caption。FindWindow函数返回的是窗体的句柄，句柄由窗体的类和名称两个参数确定，如果一个表有多个窗体，类是一样的，但是名称不一样，此时用me.caption ,可能会导致不知道是哪个窗体。个人理解，不知道对不对

cqx888625

好东西，值得收藏

ltj6407

窗体中最小化后怎么还原，不知窗体到那里去了？

大灰狼1976

松叶落 发表于 2018-3-21 09:59
楼主的唯一缺点就是，后面的代码不能再使用userform.caption功能，否则最大化最小化按钮就没有了~

修改caption的语句下面加一行就行了。
    SetWindowLong FindWindow("ThunderDFrame", Me.Caption), -16, _
GetWindowLong(FindWindow("ThunderDFrame", Me.Caption), -16) Or &H40000 Or &H20000 Or &H10000

大灰狼1976

ltj6407 发表于 2024-3-3 14:33
窗体中最小化后怎么还原，不知窗体到那里去了？

我的是在左下角，你找找，在win开始图标上面

tanglf188

松叶落 发表于 2018-3-21 09:59
楼主的唯一缺点就是，后面的代码不能再使用userform.caption功能，否则最大化最小化按钮就没有了~

caption赋值代码写在初始化时间一开始，也就是楼主代码之前就可以了

tanglf188

excellearnning 发表于 2022-11-1 21:49
原因找到了，hWndForm = FindWindow("ThunderDFrame", Me.Caption)，这个地方不能用me.caption。FindWindow ...

me.caption用在最前面就没问题了