让对话框窗口限制在最大和最小尺寸之间

发布时间：2026/10/14 13:53:30

让对话框窗口限制在最大和最小尺寸之间
目录1. 效果演示2. 功能介绍3. 实现过程4. 完整源码5. 相关合集1. 效果演示2. 功能介绍按住鼠标左键拖动边框在最大和最小尺寸之间调整窗口大小。3. 实现过程之前发布过一篇这样的文章让对话框窗口支持边框大小调整让对话框窗口支持边框大小调整让对话框窗口支持边框大小调整用户可以使用鼠标左键任意调整窗口大小。今天我们再对它进行一个功能拓展让对话框窗口尺寸永远限制在设定好的最大和最小尺寸之间。这对于VBA列表视图Listview等控件非常友好可以有效避免窗口尺寸过小导致数据显示不完整的情况发生。灵感晚间在搜索Windows通知时偶然发现了WM_GETMINMAXINFO通知简介描述的非常有趣当窗口的大小或位置即将更改时发送到窗口。 应用程序可以使用此消息来替代窗口的默认最大大小和位置或者其默认的最小或最大跟踪大小。这意味着我们可以在窗口大小调整时进行手动限制。于是你现在看的这篇文章诞生了。如何使用WM_GETMINMAXINFO通知要知道子类化窗口过程一共有四个参数分别是hwnd、Msg、wParam和lParam。窗口过程在每次接收到一个通知时也会接收到这四个参数的信息。其中wParam和lParam参数因通知而异比如在接收到WM_GETMINMAXINFO通知时lParam参数包含了专属结构MINMAXINFO的全部信息而wParam参数却没有用到。3.1. 声明该通知的专属结构MINMAXINFOPrivate Type POINTAPI x As Long y As Long End Type Private Type MINMAXINFO ptReserved As POINTAPI ptMaxSize As POINTAPI ptMaxPosition As POINTAPI ptMinTrackSize As POINTAPI ptMaxTrackSize As POINTAPI End Type3.2. 使用RtlMoveMemory函数从内存中复制出专属结构的信息获取专属结构信息 Dim mmmm As MINMAXINFO RtlMoveMemory mmmm, ByVal lParam, LenB(mmmm)3.3. 修改结构中所需的成员值这里修改了结构成员ptMinTrackSize最小跟踪尺寸和ptMaxTrackSize最大跟踪尺寸值也就是在调整窗口大小时限制的最小尺寸和最大尺寸。指定窗口最小尺寸 mmmm.ptMinTrackSize.x 200 mmmm.ptMinTrackSize.y 150 指定窗口最大尺寸 mmmm.ptMaxTrackSize.x 320 mmmm.ptMaxTrackSize.y 2403.4. 调用RtlMoveMemory函数将修改后的结构信息复制回内存中更改内存中的结构信息 RtlMoveMemory ByVal lParam, mmmm, LenB(mmmm)3.5. 添加返回值防止系统默认处理用户已处理 WindowProcfrmMain Nuptr Exit Function4. 完整源码建议大家在了解实现原理之后亲自动手编写代码实操这样才能提升自身能力。• 代码适配32与64位系统• 代码不区分WPS或EXCEL VBA环境你只需要复制代码到一个新模块中就能运行晚间有雨伴人眠202608011619 原创代码转载或二创请标明来源 #If VBA7 And Win64 Then Private Declare PtrSafe Function IsWindow Lib user32 (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function ShowWindow Lib user32 (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long Private Declare PtrSafe Function FindWindowA Lib user32 (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function CreateWindowExA Lib user32 (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal HwndParent As LongPtr, ByVal hMenu As LongPtr, ByVal Hinstance As LongPtr, lpParam As Any) As LongPtr Private Declare PtrSafe Function SetWindowLongA Lib user32 Alias SetWindowLongPtrA (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function SetFocus Lib user32 (ByVal hwnd As LongPtr) As LongPtr Private Declare PtrSafe Function CallWindowProcA Lib user32 (ByVal lpPrevWndFunc As LongPtr, ByVal hwnd As LongPtr, ByVal msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr Private Declare PtrSafe Function DestroyWindow Lib user32 (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function GetWindowLongA Lib user32 Alias GetWindowLongPtrA (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Sub RtlMoveMemory Lib kernel32 (Destination As Any, Source As Any, ByVal Length As LongPtr) #Else Private Declare Function IsWindow Lib user32 (ByVal hwnd As Long) As Long Private Declare Function ShowWindow Lib user32 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindowA Lib user32 (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function CreateWindowExA Lib user32 (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal HwndParent As Long, ByVal hMenu As Long, ByVal Hinstance As Long, lpParam As Any) As Long Private Declare Function SetWindowLongA Lib user32 (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetFocus Lib user32 (ByVal hwnd As Long) As Long Private Declare Function CallWindowProcA Lib user32 (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function DestroyWindow Lib user32 (ByVal hwnd As Long) As Long Private Declare Function GetWindowLongA Lib user32 Alias GetWindowLongPtrA (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Sub RtlMoveMemory Lib kernel32 (Destination As Any, Source As Any, ByVal Length As Long) #End If #If VBA7 And Win64 Then Private Type POINTAPI x As Long y As Long End Type Private Type MINMAXINFO ptReserved As POINTAPI ptMaxSize As POINTAPI ptMaxPosition As POINTAPI ptMinTrackSize As POINTAPI ptMaxTrackSize As POINTAPI End Type #Else Private Type POINTAPI x As Long y As Long End Type Private Type MINMAXINFO ptReserved As POINTAPI ptMaxSize As POINTAPI ptMaxPosition As POINTAPI ptMinTrackSize As POINTAPI ptMaxTrackSize As POINTAPI End Type #End If #If VBA7 And Win64 Then Private Const Nuptr As LongPtr 0 Private Ud As UserDialogType Private Type UserDialogType Dialog As LongPtr DialogProc As LongPtr Editor As LongPtr EditorState As LongPtr End Type #Else Private Const Nuptr As Long 0 Private Ud As UserDialogType Private Type UserDialogType Dialog As Long DialogProc As Long Editor As Long EditorState As Long End Type #End If Private Const SW_SHOW 5 Private Const SW_HIDE 0 Private Const WS_VISIBLE H10000000 Private Const WS_POPUP H80000000 Private Const WS_SYSMENU H80000 Private Const WS_CAPTION HC00000 Private Const WS_EX_DLGMODALFRAME H1 Private Const GWL_WNDPROC -4 Private Const WM_CLOSE H10 Private Const WM_DESTROY H2 Private Const GWL_STYLE -16 Private Const WS_THICKFRAME H40000 Private Const WM_GETMINMAXINFO H24 Public Sub CreateUserDialog() 对话框窗口若已存在则直接显示 If IsWindow(Ud.Dialog) Then ShowWindow Ud.Dialog, SW_SHOW: Exit Sub 获取编辑器句柄并隐藏 Ud.Editor FindWindowA(wndclass_desked_gsk, vbNullString) Ud.EditorState ShowWindow(Ud.Editor, SW_HIDE) 指定对话框初始样式 Dim StyleS: StyleS WS_VISIBLE Or WS_POPUP Or WS_SYSMENU Or WS_CAPTION Dim StyleE: StyleE WS_EX_DLGMODALFRAME 创建对话框主窗口 Ud.Dialog CreateWindowExA(StyleE, #32770, UserDialog, StyleS, 15, 50, 300, 200, Nuptr, Nuptr, Nuptr, Nuptr) 添加窗口样式 SetWindowLongA Ud.Dialog, GWL_STYLE, GetWindowLongA(Ud.Dialog, GWL_STYLE) Or WS_THICKFRAME 设置对话框子类化 Ud.DialogProc SetWindowLongA(Ud.Dialog, GWL_WNDPROC, AddressOf WindowProcUdDialog) 设置焦点 SetFocus Ud.Dialog End Sub #If VBA7 And Win64 Then Private Function WindowProcUdDialog(ByVal hwnd As LongPtr, ByVal msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr #Else Private Function WindowProcUdDialog(ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long #End If Select Case msg 窗口即将关闭时 Case WM_CLOSE 销毁窗口 DestroyWindow Ud.Dialog 用户已处理 WindowProcUdDialog Nuptr Exit Function 窗口销毁后 Case WM_DESTROY 取消子类化 SetWindowLongA Ud.Dialog, GWL_WNDPROC, Ud.DialogProc 还原编辑器的显示状态 If Ud.EditorState Then ShowWindow Ud.Editor, SW_SHOW 清理内存 Dim EmptyUd As UserDialogType: Ud EmptyUd 用户已处理 WindowProcUdDialog Nuptr Exit Function 限制窗口的最大/最小尺寸 Case WM_GETMINMAXINFO 获取专属结构信息 Dim mmmm As MINMAXINFO RtlMoveMemory mmmm, ByVal lParam, LenB(mmmm) 指定窗口最小尺寸 mmmm.ptMinTrackSize.x 200 mmmm.ptMinTrackSize.y 150 指定窗口最大尺寸 mmmm.ptMaxTrackSize.x 320 mmmm.ptMaxTrackSize.y 240 更改内存中的结构信息 RtlMoveMemory ByVal lParam, mmmm, LenB(mmmm) 用户已处理 WindowProcUdDialog Nuptr Exit Function End Select 调用默认通知处理 WindowProcUdDialog CallWindowProcA(Ud.DialogProc, hwnd, msg, wParam, lParam) End Function5. 相关合集关于#32770对话框窗口的专项开发计划

相关新闻

最小二乘问题详解22：抗差估计与增量式SFM的工程稳健实现

最小二乘问题详解22：抗差估计与增量式SFM的工程稳健实现

最小二乘问题详解22：抗差估计与增量式SFM的工程稳健实现 大家好，欢迎来到《最小二乘问题详解》系列的第22篇。前几篇我们聊了标准最小二乘（LS）的推导、QR分解、Cholesky分解，还有非线性优化的高斯牛顿和LM算法。但今天…

2026/10/8 3:09:22 阅读更多 →
Python实现高效相似性检索：FAISS实战指南

Python实现高效相似性检索：FAISS实战指南

1. 项目概述在数据密集型应用中，相似性检索是一个常见但极具挑战性的需求。想象一下，你手头有数百万条文本、图片或商品数据，如何快速找到与目标最相似的几条记录？这就是相似性检索要解决的核心问题。Python作为数据科学领域的主流…

2026/10/9 8:10:03 阅读更多 →
2026涉密项目投标缺资质怎么补救？3类缺口的应急判断与行动清单

2026涉密项目投标缺资质怎么补救？3类缺口的应急判断与行动清单

周一上午，一家做安防工程的企业接到消息：某单位涉密安防监控项目正在招标，投标截止周五下午。负责人让投标专员赶紧准备，专员翻完招标公告的资格要求，发现一条——"供应商须具备涉密信息系统集成资质（…

2026/9/28 11:01:42 阅读更多 →

最新新闻

深入理解C++多态性：虚函数与设计模式应用

深入理解C++多态性：虚函数与设计模式应用

1. 理解C多态性的本质在面向对象编程中，多态性是最具威力的特性之一。它允许我们通过统一的接口操作不同类型的对象，而具体执行哪个实现则由运行时对象的实际类型决定。这种特性在C中主要通过虚函数机制实现。想象你正在开发一个图形编辑器程序。你需要处…

2026/10/14 13:53:01 阅读更多 →
TCP/IP与HTTP协议深度解析：从设计哲学到故障排查

TCP/IP与HTTP协议深度解析：从设计哲学到故障排查

1. 这不是背题手册，而是一张网络协议的“解剖图谱” 你打开任何一家中大型科技公司的校招/社招岗位JD，只要带“后端”“运维”“测试开发”“SRE”“网络工程师”这些字眼，几乎必然在“技术要求”里看到这一行： 熟悉TCP/IP协议栈…

2026/10/14 13:53:01 阅读更多 →
SOFC十字型流道设计与COMSOL多物理场仿真实践

SOFC十字型流道设计与COMSOL多物理场仿真实践

1. 项目背景与核心目标这个SOFC仿真模型项目聚焦于直接甲醇固体氧化物燃料电池的十字型流道设计优化。作为一名长期从事燃料电池仿真研究的工程师，我深知流道结构对电池性能的关键影响。十字型流道因其独特的流体分布特性，在提升燃料利用率和电流密度均匀…

2026/10/14 13:53:01 阅读更多 →
智驾量产潜力审计：智能驾驶评测体系全解析

智驾量产潜力审计：智能驾驶评测体系全解析

这些年做智驾测试和量产项目评估，我最大的感受是：方案好不好，不能光看发布会上的演示视频，也不能只看测试场的通过率。真正决定一个智驾系统能不能上车、能不能持续迭代的，是一整套关于“量产潜力”的判断。这个判断如…

2026/10/14 13:53:01 阅读更多 →
C++ Qt词法分析器实战：状态机+GUI工程化实现

C++ Qt词法分析器实战：状态机+GUI工程化实现

简介：本资源是一份面向计算机专业本科生、编译原理课程学习者及Java初学者的词法分析实践项目，聚焦编译器前端核心环节——词法扫描的完整实现与可视化验证。项目基于Java语言开发，采用Swing构建图形界面，支持在MyEclipse环境中一…

2026/10/14 13:53:01 阅读更多 →
Advanced Installer 15.2汉化完全指南：版本匹配、覆盖验证与避坑

Advanced Installer 15.2汉化完全指南：版本匹配、覆盖验证与避坑

简介：Advanced Installer（高级安装程序）15.2汉化版是一款面向Windows应用开发者和系统管理员的专业打包部署工具，基于MSI技术，可快速生成符合Windows Installer标准的安装包，并支持自定义安装向导界面、编写…

2026/10/14 13:52:00 阅读更多 →

日新闻

AnyPS5通用适配层设计：兼容性与性能的工程取舍

AnyPS5通用适配层设计：兼容性与性能的工程取舍

1. 从"AnyPS5"这个名字说起：它到底想解决什么问题第一次看到"AnyPS5"这个标题，我脑子里冒出来的第一个念头是：这大概率是一个围绕"跨平台运行"或者"通用适配"做文章的项目。名字里的"Any"…

2026/10/14 0:00:41 阅读更多 →
Flutter跨平台开发实战：二手交易应用与HarmonyOS适配

Flutter跨平台开发实战：二手交易应用与HarmonyOS适配

1. 项目概述：Flutter跨平台二手交易应用开发作为一名长期从事移动应用开发的工程师，我最近完成了一个基于Flutter框架的二手物品交易平台项目。这个项目最吸引我的地方在于它完美结合了Flutter的跨平台优势与HarmonyOS的生态特性，实现了"…

2026/10/14 0:00:41 阅读更多 →
DFS算法解决飞机降落调度问题实战

DFS算法解决飞机降落调度问题实战

1. 项目背景与核心思路飞机降落问题是一个经典的调度优化场景，也是算法竞赛和面试中的高频题目。这个题目要求我们合理安排多架飞机的降落顺序和时间，确保所有飞机都能安全着陆而不发生冲突。在实际航空管制中，这类问题直接关系到飞行安全和机…

2026/10/14 0:00:41 阅读更多 →

周新闻

流感时间序列预测实战：ARIMA/LSTM全流程拆解与避坑指南

流感时间序列预测实战：ARIMA/LSTM全流程拆解与避坑指南

简介：基于 ARIMA、LSTM、Transformer 等模型的流感时间序列预测 Python 源码，面向计算机相关专业课程设计与期末大作业学生，以及项目实战学习者。内容覆盖预处理、平稳性检验、定阶、残差分析、多模型对比预测的完整时序建模流程，…

2026/10/14 3:30:28 阅读更多 →
影刀RPA新手教程：键盘模拟输入实战——输入文本与模拟按键的区别

影刀RPA新手教程：键盘模拟输入实战——输入文本与模拟按键的区别

影刀RPA新手教程：键盘模拟输入实战——输入文本与模拟按键的区别 做影刀RPA自动化，十个新手有八个栽在"往输入框里填东西"这件事上：要么填不进去，要么填了一半，要么直接把原来内容追加在后面。这背后的根因&…

2026/10/13 16:22:04 阅读更多 →
影刀RPA新手教程：阅文起点小说数据采集实战——书籍信息与章节内容

影刀RPA新手教程：阅文起点小说数据采集实战——书籍信息与章节内容

影刀RPA新手教程：阅文起点小说数据采集实战——书籍信息与章节内容 1. 认识影刀：什么场景该用RPA采小说数据 起点中文网的页面结构相对稳定——分类榜单、书籍详情、章节内容三块独立页面，跳转链路清晰。这种场景非常适合影刀自动化&#x…

2026/10/14 3:29:58 阅读更多 →

月新闻

我发现了一个新思路：用 Remotion + Claude Code 像写代码一样自动化生成短视频

我发现了一个新思路：用 Remotion + Claude Code 像写代码一样自动化生成短视频

/* MD / 富文本中的 .toc（含博客园搬家等嵌套结构）；.toc-box 在侧栏，不受影响 */#content_views .toc,/* 编辑器常在目录前后插入空 p（:empty 仍占 20px），一并去掉避免顶空隙 */#content_views.markdown_views > p:empty:has(+ .toc),#content_views.markdown_views …

2026/10/13 22:01:27 阅读更多 →
Windows下 Codex 中 Chrome 和 Computer Use 插件不可用问题排查及解决参考方式：TaoToken 统一 Key 配置与验证

Windows下 Codex 中 Chrome 和 Computer Use 插件不可用问题排查及解决参考方式：TaoToken 统一 Key 配置与验证

/* MD / 富文本中的 .toc（含博客园搬家等嵌套结构）；.toc-box 在侧栏，不受影响 */#content_views .toc,/* 编辑器常在目录前后插入空 p（:empty 仍占 20px），一并去掉避免顶空隙 */#content_views.markdown_views > p:empty:has(+ .toc),#content_views.markdown_views …

2026/10/13 14:57:39 阅读更多 →
黑夜航拍船只数据集训练YOLOV5模型全流程解析

黑夜航拍船只数据集训练YOLOV5模型全流程解析

/* MD / 富文本中的 .toc（含博客园搬家等嵌套结构）；.toc-box 在侧栏，不受影响 */#content_views .toc,/* 编辑器常在目录前后插入空 p（:empty 仍占 20px），一并去掉避免顶空隙 */#content_views.markdown_views > p:empty:has(+ .toc),#content_views.markdown_views …

2026/10/14 7:53:34 阅读更多 →