禁用/启用窗体上的关闭按钮

 

主要代码：

Public Class Form1
    Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
    Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
    Public Const SC_CLOSE = &HF060


    '禁用窗口的关闭按钮
    Public Sub DisabledX(ByVal winHandle As Integer)
        Dim menuHandle As Integer
        menuHandle = GetSystemMenu(winHandle, 0)
        Dim result As Integer = RemoveMenu(menuHandle, SC_CLOSE, &H0)
    End Sub

    '启用窗口的关闭按钮
    Public Sub EnabledX(ByVal winHandle As Integer)
        Dim menuHandle As Integer
        menuHandle = GetSystemMenu(winHandle, 1)
        Dim result As Integer = RemoveMenu(menuHandle, SC_CLOSE, &H0)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each pro As Process In Process.GetProcesses
            If pro.ProcessName = "notepad" Then
                Dim lvPro As New ListViewItem(pro.ProcessName)
                lvPro.SubItems.Add(pro.Id)
                lvPro.SubItems.Add(pro.MainWindowHandle)
                ListView1.Items.Add(lvPro)
            End If
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim apphandle As Integer = Integer.Parse(ListView1.SelectedItems(0).SubItems(2).Text)
        DisabledX(apphandle)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim apphandle As Integer = Integer.Parse(ListView1.SelectedItems(0).SubItems(2).Text)
        EnabledX(apphandle)
    End Sub
End Class

运行如下：
禁用X按钮，可以看到X按钮没有了：

启用X按钮：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程 目录