关于属性方面的问题。

[lxzh8416]

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

[Daniel0318]

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.hWnd

End Sub

[网络老男孩了]

设置form_unload事件的cancel=false

[towar]

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

[skywolfY]

UnloadQuery中

[南方的他]

form_unload事件
cancel=true

[hansong_ll]

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