P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 08:53 AM Post subject: Enable/Disable the "X" of a form |
 |
|
| Code: | Option Explicit
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 Const MF_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060&
Private Sub Form_Click()
EnableX Me
End Sub
Private Sub Form_Load()
DisableX
End Sub
Public Sub EnableX(frm As Form)
Call GetSystemMenu(frm.hwnd, True)
Call DrawMenuBar(frm.hwnd)
End Sub
Private Sub DisableX(frm As Form)
Dim hMenu As Long
hMenu = GetSystemMenu(frm.hwnd, False)
Call RemoveMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
Call DrawMenuBar(frm.hwnd)
End Sub |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
