如何用API隐藏窗体的关闭按钮

作者：绿色风分类：时间：2022-08-17 浏览：75

楼主 amulee	Q：如何用API隐藏窗体的关闭按钮? A：在ldy的贴中，我们学会了如何增加最大化、最小化按钮。其实ldy的方法中，我们还可以做些补充，用API来隐藏关闭按钮。 ldy原贴如下： http://www.exceltip.net/thread-1518-1-1.html 引用API部分不变 Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 窗体加载时的代码 Private Sub UserForm_Initialize() SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H6C10000 End Sub 如果在窗体加载后改变设置，在第三个参数前面加个1即可 SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H16C10000 代码在2003下测试成功，请2007的朋友自己测试一下。
2楼 laoyebin	正好在找这段API，呵呵，谢谢阿童木了
3楼 paul001	刚开始接触感觉VBA好复杂
4楼 yf_home	2010下测试也通过，精简！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表