tyedyejenn
Programmer
I want to disable the X (close button) on a form. I see in the properties for a form you can disable the min and max buttons but I only want to disable the X(close button)<br><br>Thanks Jenn
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
disabling close button (X) on form
- Thread starter tyedyejenn
- Start date
- Status
tyedyejenn,<br><br>I do not know of a way to disable the (X) button. But I do know how to cancel the Form_Unload(Cancel as Integer).<br><br>Change "Cancel" to a 1.<br><br>Ex:<br>Private Sub Form_Unload(Cancel as Integer)<br> If(bCondition = True) then<br> Cancel = 1 ' Do not Close/Unload form<br> Exit Sub<br> End If<br> ' Insert your Unload code here<br><br>End Sub<br><br>Note: The user would be able to press the (X) Button but it does not do anything.<br><br>good luck,<br><br>Leaf<br>
Karl Blessing
Programmer
There is also the 'ControlBox' property, that makes up for the 'X' and the menu under the icon on the leftside. <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href= </a><br>Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)<br>
Below is some code I found, but unfortunately I do not have record of the author. I just wanted to say that I did not write this. One drawback is that the close menu item is not disabled, but made invisible. The X is just disabled. I hope this helps you.<br><br><FONT FACE=monospace>Option Explicit<br><br>' Used to Remove the Close Button.<br><br>Const MAXIMIXE_BUTTON = &HFFFEFFFF<br>Const MINIMIZE_BUTTON = &HFFFDFFFF<br>Const MF_BYPOSITION = &H400<br><br>' Used when calling RemoveClose<br>Enum RemoveMenuEnum<br> rmMove = 1<br> rmSize = 2<br> rmMinimize = 3<br> rmMaximize = 4<br> rmClose = 6<br>End Enum<br><br>Private Declare Function GetSystemMenu Lib "User32" _<br> (ByVal hWnd As Long, ByVal bRevert As Long) As Long<br><br>Private Declare Function RemoveMenu Lib "User32" _<br> (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long<br><br>Private Sub RemoveClose(ByVal hWNDForm As Long)<br> Dim lSysMenu As Long<br> Dim lStyle As Long<br> lSysMenu = GetSystemMenu(hWNDForm, 0&)<br> ' Remove Close button<br> Call RemoveMenu(lSysMenu, rmClose, MF_BYPOSITION)<br> ' Remove separator above it<br> Call RemoveMenu(lSysMenu, rmClose - 1, MF_BYPOSITION)<br>End Sub<br><br>Private Sub Form_Load()<br> RemoveClose hWnd<br>End Sub</font> <p>Phil Hunt<br><a href=mailto
hilh@dqc.com>philh@dqc.com</a><br><a href= > </a><br>
hilh@dqc.com>philh@dqc.com</a><br><a href= > </a><br>
Karl Blessing
Programmer
hmm that looks interesting, if you find the author tell him thanks( maybe I can use it to make a flashing close button ) <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href= </a><br>Experienced in : C++(both VC++ and Borland),VB1(dos) thru VB6, Delphi 3 pro, HTML, Visual InterDev 6(ASP(WebProgramming/Vbscript)<br>
From what I understand, tyedyejenn wants the Min and/or Max buttons to still exist, but the close button (X) to just be disabled. If you set ControlBox = False, none will not appear at all.<br><br>P.S. - the code above is not really that complex. It's just a couple API calls and some constants. <p>Phil Hunt<br><a href=mailtohilh@dqc.com>philh@dqc.com</a><br><a href= > </a><br>
hilh@dqc.com>philh@dqc.com</a><br><a href= > </a><br>- Status
Similar threads
- Locked
- Question
