Disable Close Button 4

[jonatan]

Is there anyway to disable the X button (close button) in the top of the form? I want to avoid that the form be closed this way.

Tks

---
Jonatan Schroeder
Medisoft Ltda. - Brazil
System Development
Project Coordination

 

[gpalmer711]

If you do not need the Minimise and Maximise buttons either then you can change the CONTROLBOX property of the form to False.

Greg Palmer

----------------------------------------
Any feed back is appreciated.

 

[zemp]

The .controlbox property will remove all the buttons on the right of the title bar, not just disable them.

Thanks and Good Luck!

zemp

 

[gpalmer711]

If you want to disable just the x button the check out
thread222-523899


Greg Palmer

----------------------------------------
Any feed back is appreciated.

 

[zemp]

Also the .controlbox is not available at runtime.

Here is code that will disable the 'x'

Const MF_BYPOSITION = &H400 
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 Sub Form_Load() 
RemoveMenu GetSystemMenu(Me.hWnd, 0), 6, MF_BYPOSITION 
End Sub

Thanks and Good Luck!

zemp

 

[zemp]

Here is some code that I just found. It will allow you to disable and enable the close button on a form at runtime.

http://www.codeguru.com/vb/articles/1800.shtml

Thanks and Good Luck!

zemp

 

[zemp]

This link is better. Same author, but the code is upgraded to include the min, max and close buttons.

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=4669

Thanks and Good Luck!

zemp

 

[SUnderwood]

For supplying so many links to really useful code, you deserve a star!

Business and Data Analyst
Database & Web Applications
International Applications Development
VB,VBA,ASP,SQL,Java,Pascal,ADA,SSADM,UML
Interested parties please email: seanunderwood1@hotmail.com

 

[JAG14]

I second that.

[tt]"Very funny, Scotty... Now Beam down my clothes."[/tt]

 

[Sprowler]

I third it! I've been looking for just this code for yonks!! You are a star zemp!

 

[zemp]

Thanks for the kind words! Glad to be of help.

Take Care,

zemp

"Show me someone with both feet on the ground and I will show you someone who can't put their pants on."

 

[SUnderwood]

JAG14

I lov you tag!!! Its the only one thats ever made me laugh!!! (sorry off topic)

Business and Data Analyst
Database & Web Applications
International Applications Development
VB,VBA,ASP,SQL,Java,Pascal,ADA,SSADM,UML
Interested parties please email: seanunderwood1@hotmail.com

 

[LPlates]

You can also use this method, which will enable you to call other functions from the Form_Unload event, try this in that event...

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Ha ha, wont close", vbOKOnly, "Help"
Cancel = 1
End Sub

 

[LPlates]

Here's a better example..

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Really want to close?", vbYesNo, "Close App?&quot = vbNo Then
Cancel = 1
End If
End Sub