作者markart (桂子)
看板Visual_Basic
标题Re: [VBA ] 请问如何中止表单的close事件？
时间Tue Jun 10 19:32:56 2008
※ 引述《mindscold ()》之铭言：
: 请问一下，我希望当使用者按下「X」钮，VBA即开始对表单上的资料做检查，检查不通过
: 即跳出警告视窗并停止、不要关闭表单了，因此我这样写：
: Private Sub Form_Close()
: If 判断式 = TRUE Then
: MsgBox "错误：金额错误"
: Exit sub
: End If
: End Sub
: 但是这样当判断式为真时，虽然依然会跳出视窗显示字串，但却还是关闭了表单，
: 请问该怎麽做才能让表单不要被关闭而停留在现状呢？
: 谢谢
在事件中
我是这样写的
'======================================================================
'表单载出
'======================================================================
Private Sub Form_Unload(Cancel As Integer)
Check_Close = MsgBox("确认是否要离开本程式？", 36, "确认视窗")
Select Case Check_Close
Case vbYes
Unload Form_RegEXP
End
Case Else
Cancel = 1
Exit Sub
End Select
End Sub
重点在於那个Cancel = 1
--
别人笑我痴、众人骂我疯
我笑他人看不穿
冷眼看世人戴面具
耳里听着众人装圣人
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.134.224.116
1F：推 mindscold:谢谢您！已完成了 *^^* 06/12 09:02
2F：→ MOONRAKER:这招在VB.NET改成e.cancel=true可以照用 XD 06/14 23:03