"X" button clicked

• • Reply

  18 years ago

  by Da_Retina

  Da_Retina

  , United States

  Joined 19 years ago

  Salute..
  How can I know if the user closed the form using the "X" button?..
  Thanks

  Report abuse
• • Reply

  18 years ago

  by musician

  Brian O'Connell

  Dublin, Ireland, Ireland

  Joined 19 years ago

  The easiest way I can come up with is to have a form boolean variable, NotX, say initialised to false. Then when someone closes your form using a button you have provided you can set it to true:-
  

  
  NotX = True
  Me.Close
  

  
  You can then use the form's closing event to check this:-
  

  
  If NotX = False then
     MsgBox("You Pressed the X button to close this form!")
  End If

  Report abuse
• • Reply

  18 years ago

  by Da_Retina

  Da_Retina

  , United States

  Joined 19 years ago

  well I think that thier is an EASIER WAY!..
  
  I found it after I posted..I think I am posting prematurely !!...
  U can do the following:
  In the FORM's CLOSING event handler u can insert the following code :
         If DialogResult = DialogResult.Cancel Then
             e.Cancel = True
         End If
  This will disable closing the form using the X button
  Salute..

  Report abuse
• • Reply

  18 years ago

  by Thushan Fernando

  Thushan Fernando

  Australia :: Melbourne, Australia

  Joined 19 years ago

  Da_Retina> well heres an 'even' better way of stopping ppl clicking on the X :
  

  
  

  Code:

  
  Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  Public Sub RemoveCloseItem(lHwnd As Long)
     Dim lMenu As Long
     lMenu = GetSystemMenu(lHwnd, False)
     DeleteMenu lMenu, 6, &H400&
  End Sub
  

  
  

  
  just call like this in the Form_Load:
  

  
  RemoveCloseItem me.hwnd
  

  
  Hope that helps!
  

  
  Good Luck!
  

  Report abuse
• • Reply

  18 years ago

  by James Crowley

  James Crowley

  London, United Kingdom

  Joined 20 years ago

  websoftware: that looks suspiciously like VB code to me... this is the VB.net forum!!!
  

  
  ... and also, Da_Retina didn't actually say he wanted to stop people clicking the X... he just wanted to know when they did

  Report abuse
• • Reply

  18 years ago

  by Thushan Fernando

  Thushan Fernando

  Australia :: Melbourne, Australia

  Joined 19 years ago

  dammnation
  

  
  I'm going blinder every day!
  

  
  Whooops! I'll look@the top b4 posting.
  

  
  My apologies,
  

  
  Thanks Chap
  

  Report abuse
• • Reply

  18 years ago

  by musician

  Brian O'Connell

  Dublin, Ireland, Ireland

  Joined 19 years ago

  Strange I tried the DialogResult and it returned false no matter how the form was closing. I don't consider my solution that difficult anyway

  Report abuse
• • Reply

  18 years ago

  by _aLfa_

  João Dias (_aLfa_)

  Aveiro - Portugal, Portugal

  Joined 19 years ago

  i agree with musician!!

  Report abuse
• • Reply

  18 years ago

  by Michael H

  Michael H

  Chicago, USA, United States

  Joined 19 years ago

  
  Everyone should feel fine about posting VB6 code in
  the .NET forum, since VB6 code is easily convertable by hand
  like so:
  

  
  Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  Public Sub RemoveCloseItem(lHwnd As Long)
    Dim lMenu As Long
    lMenu = GetSystemMenu(lHwnd, False)
    DeleteMenu lMenu, 6, &H400&
  End Sub
  

  
  to:
  

  
  Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
  Public Sub RemoveCloseItem(Byval lHwnd As Integer)
    Dim lMenu As Integer
    lMenu = GetSystemMenu(lHwnd, False)
    DeleteMenu(lMenu, 6, &H400I)
  End Sub
  

  
  no biggie
  

  
  
  

  
  Just my thoughts
  

  
  Mike
  

  Report abuse