正文
vb.net禁用关闭按钮 vb退出按钮的代码
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
在vb里,如何将窗口右上方的“关闭”按钮设为禁用??
复制以下代码就可以实现将窗口右上方的“关闭”按钮设为禁用
Option Explicit
Private Declare Function GetSystemMenu Lib "user32"_
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32"_
(ByVal hMenu 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 Declare Function DrawMenuBar Lib "user32"_
(ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = H400
Private Const MF_REMOVE = H1000
Private Sub DisableX()
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Me.hWnd, 0)
nCount = GetMenuItemCount(hMenu)
'Get rid of the Close menu and its separator
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
'Make sure the screen updates
'our change DrawMenuBar Me.hWnd
End Sub
Private Sub Form_Load()
DisableX
End Sub
Private Sub Form_Click()
'We need a way out, since the X button'doesn't work :-)
Unload Me
End Sub
vb.net中 如何将窗体上的关闭按钮禁用 也就是变灰啊?
FormBorderStyle选为None,没有标题栏
form 的 controlbox 属性为false
vb 如何禁止关掉窗口
第一种办法:切断所有可能关闭程序的途径,
例如:禁用任务管理器,在任务管理器中隐藏进程,隐藏窗口的标题栏(就是隐藏关闭按钮)。当然360这种伟大的让人无可奈何的软件可能就隐藏不了了。
第二种办法:在关闭的同时再打开这个程序。
Shell
App.Path
"\程序名.exe"
不会的话你再问吧
关于vb.net禁用关闭按钮和vb退出按钮的代码的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。