nxzd.net
当前位置:首页 >> vB quEryunloAD >>

vB quEryunloAD

意思是从内存中卸载窗体或控件。 在卸载窗体前,会发生 Query_Unload 事件过程,然后是 Form_Unload 事件过程。在其中任一过程中设置 cancel 参数为 True 可防止窗体被卸载。 若为 MDIForm 对象,先发生 MDIForm 对象的 Query_Unload 事件过程,...

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...

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

unloadmode 参数返回下列值: 常数 值 描述 vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。 vbFormCode 1 Unload 语句被代码调用。 vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。 vbAppTaskManager 3 Microsoft ...

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = 1 a = MsgBox("您真的要退出么?", vbQuestion + vbYesNo) If a = vbYes Then End End Sub

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_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = True Timer_Load.Interval = 1 End Sub Private Sub Timer_Load_Timer() Form1.Width = Form1.Width - 15 Form1.Height = Form1.Height - 15 If Form1.Width

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = 1 a = MsgBox("您真的要退出么?", vbQuestion + vbYesNo) If a = vbYes Then End End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = 1 End Sub 私有代码 窗体关闭事件(消息 类型 整数型,结束信息 类型 整数型) 消息 = 1 '1取消 0默认 结束代码

Form_QueryUnload的UnloadMode参数可以让你知道该Form是为什么被关闭的包括是自己调用了关闭、其它form关闭了这个form还是你点了右上角的叉等等。通过判断这个参数的值你可以决定是否真的要关闭这个form,和关闭前还要做什么

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