Allen
2021-11-04
20:57:56
3179
0
0
0
0
网站名称：关于VB窗体关闭时根据条件中断
网站地址：
如何实现关闭窗体时判断，如果条件符合就中断，就是不让关闭的功能。例如：如果text1.text=0点程序右上叫的X时可以关闭如果大于0，点关闭的时候要提示，并且不关闭窗体。实现很简单：只要在unloa…
[SEO信息] [Alexa信息]
-->>直达网站
如何实现关闭窗体时判断，如果条件符合就中断，就是不让关闭的功能。
例如：
如果text1.text=0
点程序右上叫的X时可以关闭
如果大于0，点关闭的时候要提示，并且不关闭窗体。
实现很简单：只要在unload事件中，添加cancel=-1，即可。
代码如下：
Private Sub Form_Unload(Cancel As Integer)
If Val(Text1.Text) > 0 Then
MsgBox "不许关闭！", vbCritical, "温馨提示"
Cancel = -1
Exit Sub
End If
End Sub
end
Tag: VB
评论
相关内容
YYH-20200918-离婚前挽回沟通-02.mp3
2021-11-04
关于射雕，很经典的比较
2021-11-04艺考-20220717-赛奥咨询.mp3
2021-11-04