我想隐藏窗体的关闭按钮（右上角小×）

迹无痕123

我想隐藏窗体的关闭按钮（右上角小×），但是现在只能做到禁用它 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)     If CloseMode = vbFormControlMenu Then Cancel = True End Sub 求助各位大侠，怎么隐藏它

hfwufanhf2006

似乎不能，vba没有提供必要的方法。
可能是微软觉得多余，vba只是继承了窗体一些必要的事情和方法，掩藏按钮这类被他舍弃了。

IVCPC

使用两个API函数便可实现：

1. Private Sub UserForm_Initialize()
   
2.     ' 查找窗口句柄
   
3.     hWindow = FindWindow("ThunderDFrame", Me.Caption)
   
4.     ' 取得窗口样式位
   
5.     style = GetWindowLong(hWindow, GWL_STYLE)
   
6.     ' 窗体样式位: 原样式和无系统菜单
   
7.     style = style And Not WS_SYSMENU
   
8.     ' 重设窗体样式位
   
9.     SetWindowLong hWindow, GWL_STYLE, style
   
10. End Sub

复制代码

迹无痕123

IVCPC 发表于 2021-4-22 16:05
使用两个API函数便可实现：

hWindow = FindWindow("ThunderDFrame", Me.Caption)
提示未定义内容

cutecpu

迹无痕123 发表于 2021-4-22 17:10
hWindow = FindWindow("ThunderDFrame", Me.Caption)
提示未定义内容

最前面加上：

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

祝順心，南無阿彌陀佛！