vb使右上角关闭按钮为假

更新时间：2022-03-08 06:46:17 124次访问

 
就是禁用右上角x按钮，如果把controlbox设为假则又所有按钮都消失了。
 
有什么办法吗？

Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, _
  ByVal wFlags As Long) As Long
Private Const MF_REMOVE = &H1000
Private Const SC_CLOSE = &HF060
Private Sub Disabled(a, B)
   Dim hMenu, hwndMenu As Long
   Dim c As Long
   hMenu = GetSystemMenu(a, 0)
   RemoveMenu hMenu, SC_CLOSE, MF_REMOVE
End Sub
Private Sub Form_Load()
Dim a As String
Dim B As Integer
   a = Me.hwnd
   B = 0
   Disabled a, B
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub