关于属性方面的问题。

Question

请问有没有一个属性能够控制窗体的关闭按扭使它不起作用呢？谢谢了。

Answer 1

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 Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Const MF_ByPosition = &H400&public Sub DisableClose(frm As Form)
    Dim hMenu As Long, nCount As Long
 
    hMenu = GetSystemMenu(frm.hWnd, 0)
    nCount = GetMenuItemCount(hMenu)
    Call RemoveMenu(hMenu, nCount - 3, MF_ByPosition)
    DrawMenuBar frm.hWndEnd Sub

Answer 2

设置form_unload事件的cancel=false

Answer 3

错了吧..是设form_unload事件的cancel=true吧

Answer 4

form_unload事件
cancel=true

Answer 5

:) 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
     cancel=1
End Sub