VBA中窗体的设置（隐藏关闭按钮）

huazai688

感谢分享,收藏

jesonchu

好东西，找了好久，现在终于可以隐藏了，谢谢分享！

whx20747

向高手学习

whx20747

用了,真的管用,谢谢

小小小看

请教！！！关不掉还怎么继续编辑？？？

05050818

感谢分享,顶起

qinyu0745

非常全面的，非常感谢！！！

yumidoujiangji

感谢，API的申明需要放在窗体代码的最前面。

imonior

这个是32位软件用的，64位的在这里：
Private Declare PtrSafe Function FindWindow _
        Lib "user32" _
        Alias "FindWindowA" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) _
    As LongPtr
    '取得窗体系统菜单
    Private Declare PtrSafe Function GetSystemMenu _
        Lib "user32" ( _
            ByVal hwnd As LongPtr, _
            ByVal bRevert As Long) _
    As LongPtr
    '删除菜单项
    Private Declare PtrSafe Function DeleteMenu _
        Lib "user32" ( _
            ByVal hMenu As LongPtr, _
            ByVal nPosition As Long, _
            ByVal wFlags As Long) _
    As Long
    '重绘窗体标题栏
    Private Declare PtrSafe Function DrawMenuBar _
        Lib "user32" ( _
            ByVal hwnd As LongPtr) _
    As Long

参考：http://www.excelfans.com/2014/08/14/vba-not-enabled-close-icon.html

charki

imonior 发表于 2020-10-21 22:56
这个是32位软件用的，64位的在这里：
Private Declare PtrSafe Function FindWindow _
        Lib "user ...

感谢。。。。。