在使用vba设计用户窗体时，通常会将其设定为固定的尺寸。然而，通过编程技巧，可以实现类似于调整大小功能的效果。
本文的代码来自exceloffthegrid.com，供有兴趣的读者参考。
本文的代码可以实现以下功能：允许调整用户窗体的大小；在调整窗体大小时，用户窗体的Resize事件会被触发；每次Resize事件后，对象的大小或位置都会随之改变。
首先，在VBE中添加一个标准模块，并输入以下代码：
Public Const GWL_STYLE = -16Public Const WS_CAPTION = &HC00000Public Const WS_THICKFRAME = &H40000#If VBA7 Then Public Declare PtrSafe Function GetWindowLong _ Lib "user32" Alias "GetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong _ Lib "user32" Alias "SetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function DrawMenuBar _ Lib "user32" (ByVal hWnd As Long) As Long Public Declare PtrSafe Function FindWindowA _ Lib "user32" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long#Else Public Declare Function GetWindowLong _ Lib "user32" Alias "GetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong _ Lib "user32" Alias "SetWindowLongA" ( _ ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Declare Function DrawMenuBar _ Lib "user32" (ByVal hWnd As Long) As Long Public Declare Function FindWindowA _ Lib "user32" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long#End IfSub ResizeWindowSettings(frm As Object, show As Boolean) Dim windowStyle As Long Dim windowHandle As Long '获取Windows内存中对窗口和样式位置的引用 windowHandle = FindWindowA(vbNullString, frm.Caption) windowStyle = GetWindowLong(windowHandle, GWL_STYLE) '确定要应用的样式 If show = False Then windowStyle = windowStyle And (Not WS_THICKFRAME) Else windowStyle = windowStyle + (WS_THICKFRAME) End If '应用新样式 SetWindowLong windowHandle, GWL_STYLE, windowStyle '使用新样式重新创建用户窗体窗口 DrawMenuBar windowHandleEnd Sub
上述代码段创建了一个可重用的过程，用于开启或关闭用户窗体的调整大小设置。如果想要启用调整用户窗体大小的功能，可以使用以下代码：
Call ResizeWindowSettings(myUserForm, True)
如果想要关闭调整用户窗体大小的功能，可以使用以下代码：
Call ResizeWindowSettings(myUserForm, False)
其中，myUserForm是需要调整大小的用户窗体的名称。
示例
在VBE中，插入一个用户窗体，如下图1所示。
Gnomic智能体平台
国内首家无需魔法免费无限制使用的ChatGPT4.0，网站内设置了大量智能体供大家免费使用，还有五款语言大模型供大家免费使用~
47 查看详情
图1
可以看到，该用户窗体上包含一个名为“lstListBOx”的列表框和一个名为“cmdClose”的命令按钮。
当调整该用户窗体大小时，这两个元素应该相应地进行调整。lstListBox的大小应改变，但位置不应改变，而cmdClose的位置应改变，但大小不应改变。为此，需要从该用户窗体的底部和右侧了解这些对象的位置。如果与底部和右侧保持相同的距离，则这些元素看起来像是与该用户窗体同步移动。
在该用户窗体的代码窗口中，输入以下代码：
Private lstListBoxBottom As DoublePrivate lstListBoxRight As DoublePrivate cmdCloseBottom As DoublePrivate cmdCloseRight As DoublePrivate Sub UserForm_Initialize() '调用Window API启用调整大小 Call ResizeWindowSettings(Me, True) '获取要调整大小的对象的右下角定位点位置 lstListBoxBottom = Me.Height - lstListBox.Top - lstListBox.Height lstListBoxRight = Me.Width - lstListBox.Left - lstListBox.Width cmdCloseBottom = Me.Height - cmdClose.Top - cmdClose.Height cmdCloseRight = Me.Width - cmdClose.Left - cmdClose.WidthEnd SubPrivate Sub UserForm_Resize() On Error Resume Next '设置对象的新位置 lstListBox.Height = Me.Height - lstListBoxBottom - lstListBox.Top lstListBox.Width = Me.Width - lstListBoxRight - lstListBox.Left cmdClose.Top = Me.Height - cmdCloseBottom - cmdClose.Height cmdClose.Left = Me.Width - cmdCloseRight - cmdClose.Width On Error GoTo 0End Sub
运行用户窗体，效果如下图2所示。
图2
欢迎在评论区留言，帮助完善本文内容，让更多人能够学习到更完善的知识。
以上就是创建可调大小的用户窗体——使用Windows API的详细内容，更多请关注创想鸟其它相关文章！
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 chuangxiangniao@163.com 举报，一经查实，本站将立刻删除。
发布者：程序猿，转转请注明出处：https://www.chuangxiangniao.com/p/406878.html
微信扫一扫 
支付宝扫一扫 
