vb.net禁止程序窗口的“关闭”按钮（转载+亲自实践）

2024-07-10 10:54| 来源: 网络整理| 查看: 265

vb.net写程序，生成的窗口默认右上角都有最大化，最小化和关闭按钮

其中最大化和最小化按钮可以通过窗口的属性直接删除

有时候需要将“关闭”按钮禁止，

可以通过编写简单程序实现。

具体方法如下：

新建一个名叫common.vb的文件，将以下内容写入其中，

方便其他窗口调用

Public Class Common Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Integer, ByVal bRevert As Long) As Integer Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Integer) As Integer Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Integer) As Integer Private Const MF_BYPOSITION = &H400& Private Const MF_DISABLED = &H2& '禁用窗口右上角的“关闭”按钮 Public Sub DisableCloseButton(ByVal wnd As Form) Dim hMenu As Integer, nCount As Integer '得到系统Menu hMenu = GetSystemMenu(wnd.Handle.ToInt32, 0) '得到系统Menu的个数 nCount = GetMenuItemCount(hMenu) '去除系统Menu Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION Or MF_DISABLED) '重画MenuBar DrawMenuBar(wnd.Handle.ToInt32) End Sub End Class

然后在需要该功能的窗口的Load方法中调用DisableCloseButton方法

Public Sub FormChangePassWord_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Visible = True common.DisableCloseButton(Me) End Sub

【本文地址】

公司简介

联系我们