Question

vBA中怎么隐藏窗体关闭按钮？？

我想在窗体运行的时候，没有关闭那个叉按钮，而且填满我电脑窗体的怎么设置啊

Answer 1

准备工作新建一个窗体窗体上建一个按钮新建一个模块窗体代码为Private Sub CommandButton1_Click()
UserForm1.Hide
End SubPrivate Sub UserForm_Click()
aa = FindWindow("ThunderDFrame", Me.Caption)
bb = GetWindowLong(aa, GWL_STYLE)
bb = bb And Not WS_CAPTION
SetWindowLong aa, GWL_STYLE, bb
DrawMenuBar aa
Me.Width = Application.Width + 5
Me.Height = Application.Height + 5
Me.Top = 0
Me.Left = 0
End Sub模块代码为Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Public Const GWL_STYLE As Long = (-16)
Public Const WS_CAPTION As Long = &HC00000
窗体单击达到你的要求按钮单击窗体退出