How to Disable a Windows Close Button

-
 When you try out this sample, you may want to have an alternate way to close your window.
In this example, I will show you how you can disable the 'X' button found on every window. To achieve this, we will make use of several API calls in order to remove the Close item from the windows system menu. By so doing, we will have disabled the close button. In case you do this, then you have to put a code under a button etc so that the user can have an alternative way of closing the form.
Sometimes as a developer, you may find this necessary depending on what you are doing or in order to achieve a certain end. In my case, I do prefer to disable the close button by setting the Forms ControBox property to false.  See example below.





Steps
1. Create a module
2. Insert the code below into the module you created in step 1 above.


Option Explicit

Public Declare Function GetSystemMenu Lib "user32" _
    (ByVal hwnd As Long, _
     ByVal bRevert As Long) As Long

Public Declare Function RemoveMenu Lib "user32" _
    (ByVal hMenu As Long, _
     ByVal nPosition As Long, _
     ByVal wFlags As Long) As Long

Public Const MF_BYPOSITION = &H400&


Public Sub DisableCloseWindowButton(frm As Form)

    Dim hSysMenu As Long

    'Get the handle to this windows
    'system menu
    hSysMenu = GetSystemMenu(frm.hwnd, 0)

    'Remove the Close menu item
    'This will also disable the close button
    RemoveMenu hSysMenu, 6, MF_BYPOSITION

    'Lastly, we remove the seperator bar
    RemoveMenu hSysMenu, 5, MF_BYPOSITION

End Sub
'--end code block
Now call the DisableCloseWindowButton from your forms load event.

3. Put the following code uner Form_Load
   DisableCloseWindowButton Me
Do as shown below.

Private Sub Form_Load()
    DisableCloseWindowButton Me
End Sub
'--end code block

Comments

Post a Comment

Popular posts from this blog

CREATING CRYSTAL REPORTS VB.NET 2012 STEP BY STEP - PART 2

-
Image
Creating A New Report In our part one tutorial ,  we saw how to prepare create a new VB.NET project which we will use in creating and displaying our crystal reports. In this part, we will see how to create the Crystal Report inside VB.NET.  1. Under your project name, right-click and select Add then click New Item. Under Reporting, select Crystal Reports. (Remember we started by installing Crystal Reports for VS 2012 . If you missed this step, please refer to this tutorial here )  2. Give your Report a name and click Add. The diagram below shows the four steps to follow in naming the report and adding it. Once you click Add, you will be taken to Crystal Reports Gallery. 3. In the Crystal Reports Gallery select one of the three options; in our case, we will pick option 2 which is As a Blank Report. So select As a Blank Report. Then under Choose an Expert, select Standard. Finally, click OK button.  4. Back now to your workspace. With...
Read more

How to paste image into picturebox from clipboard with VB.Net

-
Image
How to paste image into picturebox from clipboard with VB.Net If you wish to paste an image into a picturebox from clipboard for your VB.Net project, this is what to do: 1. Add a picturebox to your form. 2. Add a button and copy paste the code below.         Private Sub btnPastePic_Click(sender As Object, e As EventArgs) Handles btnPastePic.Click               'If My.Computer.Clipboard.ContainsImage Then         '    PictureBox1.Image = My.Computer.Clipboard.GetImage         'End If         Dim idata As IDataObject = Clipboard.GetDataObject()         If idata.GetDataPresent("System.Drawing.Bitmap") Then             Dim imgObject As Object = idata.GetData("System.Drawing...
Read more

How to Create Crystal Report using Visual Studio 2012 Part 1

-
Image
How to Create Crystal Report using Visual Studio This tutorial will focus on creation of Crystal Report using Visual Studio 2012.  To accomplish this you will require to have: Microsoft Visual Studio 2012. MySQL. SAP Crystal Reports version for visual studio 2012.  For the purpose of this tutorial, we will be using VB.Net.   To start create a vb.net project Open visual studio (2012) and create a new project.   Creating a new project  2. Select VB.NET then click on Windows Forms Application.  Give it a name as shown in item 3 in the screenshot below.    Finally click OK.  Now your project is set. You can now start the process of integrating it with Crystal Reports. 3.Right click on the name of your project.  Click Add and then New Item. 4. Add New Item dialog box will appear. Under Common items select Data tehn select Dataset.  Give it a name and click Add as shown below. Selecting D...
Read more