VB中输入什么代码能让窗口无法关闭?

就是点右上角的X无法关闭,但是end可以

第1个回答  2009-08-06
你设计一个死循环,它一直在运算中,就关闭不了了.
代码一般是不会这样设计的,因为这样的代码无意义呀:)
第2个回答  2009-08-06
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub本回答被提问者采纳
第3个回答  2019-04-19
企业版可以输入中文,我的就是企业版。
绝对是你系统或者软件的问题。再好好检查一下,肯定可以的。

用VB做个无法强制关闭的窗口
楼上代码不可行,光置顶没用,好像连进程都无法结束,这好像难以实现,就像杀毒软件,一般是没有那个权限的,你到是可以把任务管理器禁止了,或是退出时写入cancel=true,或者是再想想办法,循环检测进程,如果不存在,则立即重新创建。就这些了。

VB中如何做到让窗口无法关闭?
Cancel = True End Sub 这个可以一试,不过世界上没有绝对的事。

求VB代码 如何使窗体不能被关掉最小化
警告 ,最好在窗体中加个command 在里面写个退出的代码 不然你会无法关闭你测试的窗体的

让VB窗口无法关闭
Private Sub Form_Unload(Cancel As Integer)Dim m, n Set ws = CreateObject("wscript.shell")Set say = CreateObject("sapi.spvoice")i = MsgBox("你确定要退出吗?", vbOKCancel, "退出?"If i = vbOK Then For m = 0 To 5 n = 5 - m ws.popup " " & (n) & "秒后关闭程序...

vb禁止窗口关闭命令
1、窗体属性ControlBox=False则不显示关闭、最大化、最小化按钮 2、如果还想保留最大化、最小化按钮,仅仅不允许关窗口,可以 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Cancel = True End Sub

VB有没有不能关闭的代码
再窗口的borderstyle属性选择第一项,0

VB 编程中如何使窗口右上角的关闭按钮(X)失效?
在VB编程中,若要使窗口右上角的关闭按钮(X)失效,仅使用VB自带函数无法实现,需要借助Windows API。实现方法如下:1. 使用`GetSystemMenu`函数获取系统菜单的Menu handle。2. 调用`GetMenuItemInfo`函数读取系统菜单中关闭按钮的消息。3. 利用`SetMenuItemInfo`函数设置关闭按钮的命令,从而达到使其...

VB中输入什么代码能让窗口无法关闭?
你设计一个死循环,它一直在运算中,就关闭不了了.代码一般是不会这样设计的,因为这样的代码无意义呀:)

怎样制作关不掉的窗口?
Path);while(true) alert("哈哈"); 保存为test.hta 若为其他名字则上面要对应的更改..注意:弹死不负责 - -| 我做实验结果弹的只能注销了 - -||| 2、不停弹出窗口的源代码 这是vb代码。。。Private Sub Form_Load()while 1 msgbox "你是猪"wend End Sub 用任务管理器关 ...

VB 怎么阻止别的窗口的关闭
可以截获这个窗口的wm_close消息阻止他关闭,大概流程是 form1.frm Private Sub Form_Load()lpPrevWndProc = SetWindowLong(Me.hwnd, -4, AddressOf WindowProc) '设置消息过滤函数为WindowProc函数,该函数必须位于VB的模块文件内 end sub bas1.bas Function WindowProc(ByVal hwnd2 As Long, ByVal...

相似回答