VB
Allen 2021-11-04 20:57:56 2278 0 0 0 0
VB,如何实现关闭窗体时判断,如果条件符合就中断,就是不让关闭的功能。例如:如果text1.text=0点程序右上叫的X时可以关闭如果大于0,点关闭的时候要提示,并且不关闭窗体。实现很简单:只要在unloa…

如何实现关闭窗体时判断,如果条件符合就中断,就是不让关闭的功能。

例如:

如果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
我也要发一个   ·   返回首页   ·   返回[VB]   ·   前一个   ·   下一个
欢迎评论
未登录,
请先 [ 注册 ] or [ 登录 ]
(一分钟即可完成注册!)
返回首页     ·   返回[VB]   ·   返回顶部