Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("是否保存", vbYesNo) = vbOK Then
'处理保存
'Cancel=1则取消
End If
End Sub
If MsgBox("是否保存", vbYesNo) = vbOK Then
'处理保存
'Cancel=1则取消
End If
End Sub
调试欢乐多
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货