内容提要:文章介绍vba窗体最小化最大化无边框的设置代码,并提供excel附件供测试和学习。
我们使用excel中VBA制作的窗体,默认是没有最小化、最大化等等命令的。本文就详细介绍一下vba窗体最小化最大化等按钮添加方法。
用API实现VBA窗体最小化最大化按钮、无边框等。
使用API设置窗体格式,经过简化仅需要两个API函数,省略了常数和GetWindowLong函数。
注意:SetWindowLong 的最后一个参数,在窗体显示时和在窗体加载时(UserForm_Initialize事件)调用,其值有差异,但有规律可循。
下面语句是在窗体已经显示后调用的,其最后一个参数为 &H16040000,是一个16进制数值。如果要在窗体加载时调用则需要去掉首位的1, 为&H6040000。
为了方便测试和学习,我们使用excel制作了源文件,大家下载可以查看具体的关于vba窗体最小化最大化无边框的设置代码。