kqyz.net
当前位置:首页 >> vB unloAD CAnCEl >>

vB unloAD CAnCEl

Form_Unoad 里面使用 Exit sub 并不能阻止一个窗口的关闭,要用 Cancel=True 比如: Private Sub Form_Unload(Cancel As Integer) Cancel=True '阻止一个窗口的关闭 End Sub 这样就取消了一个窗口的关闭。

Private Sub Form_Unload(Cancel As Integer) If MsgBox("确认退出?", vbQuestion + vbYesnNo, "退出程序") = vbNo Then Cancel = 1 End If End Sub Cancel 设为 1 即可。

End 语句 结束一个过程或块。 语法 End End Function End If End Property End Select End Sub End Type End With 注意 End 语句不调用 Unload、QueryUnload、或 Terminate 事件或任何其它 Visual Basic 代码,只是生硬地终止代码执行。 Unload ...

Private Sub Form_Unload(Cancel As Integer) If MsgBox("您确定要退出吗?", vbExclamation + vbOKCancel) = vbCancel Then Cancel = 1 End If End Sub

1、QueryUnload发生在Unload之前 2、QueryUnload和Unload都可以阻止窗体卸载 3、QueryUnload可以检测窗体的卸载方式(比如是点击窗体右上角的X卸载,还是在软件代码中用Unload Me命令卸载),Unload则无此功能 4、当程序有多个窗体时,任何一个...

Private Sub Form_Unload(Cancel As Integer) Cancel = IIf(MsgBox("确定退出?", vbYesNo) = vbYes, 0, 1) End End Sub 效果图:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim IntR As Integer IntR = MsgBox("确认要退出程序吗?", vbYesNo, "退出确认") If IntR = vbNo Then Cancel = -1 End Sub 改为 Private Sub Form_QueryUnload(Cance...

把窗体载入,显示出来Unload把窗体卸载,图形界面从内存中清除Terminate

在那里加上 cancel=-1即可,给你个VB帮助里的例子,你多看看帮助就知道了,这个问题不用问的 Private Sub Form_Unload(Cancel As Integer) Dim Msg, Response ' 声明变量。 Msg = "Save Data before closing?" Response = MsgBox(Msg, vbQuestio...

msgbox 是个消息框函数 返回的是固定几个常数 如下:常数值按钮vbOK1确定vbCancel2取消vbAbort3放弃vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否 至于括号时 第一个参数是提示字符串 第二个是类型及按键 那也是几个常数值 可查的表如下: 第三个就...

网站首页 | 网站地图
All rights reserved Powered by www.kqyz.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com