Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert 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 Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Sub Form_Load()
Dim hMenu As Long, nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub
Cancel=1
vb一个无法退出的程序的代码 要求不能使win按键 alt tab按键 ctrl alt...
没有不可退出的程序，除非是系统核心进程。只能是增加些退出的难度而已。一、禁用任务管理器，因为处于修改状态的程序是无法启动的。Open "C:\\WINDOWS\\system32\\taskmgr.exe" For Append As #1 二、使alt+f4失效，因为每次关闭都被取消。Private Sub Form_Unload(Cancel As Integer)Cancel = True End...
不能关闭vb程序
因为打开了多个窗体,而只关闭了一个,其他窗体在后台,所以程序没有退出 运行以下代码就可以了 dim f as form for each f in forms unload f next
VB有没有不能关闭的代码
再窗口的borderstyle属性选择第一项，0
怎样用vb编写一个无法关闭的程序
VB下简单的不让人关闭的程序请照：Private Sub Form_Unload(Cancel As Integer)Cancel = True End Sub 做。也就是在Unload事件中加个代码就是。想不让人点窗体上的关闭按扭最简单的就是不含标题的窗。此外，可以搞个热键去捕获Alt+F4，以使用户不能这样关窗。如果想高级一点，比如使任务管理器也...
求禁止关闭某程序的vb代码?
Cancel = 1 '＝0时就可以关闭程序了。End Sub 如果是按关闭按钮实现最小化的话要用API了，如下 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)I = Show...
VB中输入什么代码能让窗口无法关闭?
你设计一个死循环,它一直在运算中,就关闭不了了.代码一般是不会这样设计的,因为这样的代码无意义呀:)
VB中如何做到让窗口无法关闭?
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Cancel = True End Sub 这个可以一试，不过世界上没有绝对的事。
怎么用VB编一个无法关闭的程序
1)在form的unload事件中添加代码cancel=1，但是能被ctrl+alt+del关闭。2)使用wsh或者API将注册表中HKCU\\Software\\Microsoft\\Currentversion\\Policies\\System\\DisableRegistryTools 的值改为1，这样任务管理器就失效了，但是仍能被高级点的软件关掉（比如超级兔子之类）3)隐藏进程，比较正统的方法 4)即时改变...
请问VB如何使窗体上的关闭(叉叉)按钮无效,最大,最小化按钮无效化我会...
关闭按钮无效的代码：Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert 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 Const MF_REMOVE...
求VB代码 如何使窗体不能被关掉最小化
如果你想恶搞的话，上面老兄的代码窗口不会始终在最前面，比如任务管理器就可以显示出来。我来补充两句 ， 在新建个timer 控件 把它的Internet设为1 然后把 Form_Load() 下面 的 SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 Me.WindowState = 2 这两句一到timer1_time 里面就行了 警告...
