Allen 2021-11-04 20:57:56 4179 0 0 0 0

---

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

例如：

如果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

【版權聲明】
本文爲原創，遵循CC 4.0 BY-SA版權協議！轉載時請附上原文鏈接及本聲明。
原文鏈接：https://tdlib.com/am.php?t=nrLK9pX7F3m2 Tag: VB

評論

相關內容

歡迎評論