Excel vba窗体最小化最大化无边框的设置代码

Excel函数 2022-02-12 21:44:06

文章介绍vba窗体最小化最大化无边框的设置代码，并提供excel附件供测试和学习。

　　我们使用excel中VBA制作的窗体，默认是没有最小化、最大化等等命令的。本文就详细介绍一下vba窗体最小化最大化等按钮添加方法。

　　用API实现VBA窗体最小化最大化按钮、无边框等。

　　使用API设置窗体格式，经过简化仅需要两个API函数，省略了常数和GetWindowLong函数。

　　注意：SetWindowLong 的最后一个参数，在窗体显示时和在窗体加载时（UserForm_Initialize事件）调用，其值有差异，但有规律可循。

　　下面语句是在窗体已经显示后调用的，其最后一个参数为 &H16040000，是一个16进制数值。如果要在窗体加载时调用则需要去掉首位的1，为&H6040000。

　　为了方便测试和学习，我们使用excel制作了源文件，大家下载可以查看具体的关于vba窗体最小化最大化无边框的设置代码。