請問如何可以將自製的記事本按下X(右上角)做到像 WINDOWS 的NOTEPAD一樣可以檢測到修改過未存檔的對話框,用QUERYUNLOAD 是會任何情況都出現對話框‧我在全文搜索找不到答案,請各位幫忙一下,謝謝!
設一個變數記錄是否已存檔,然後在Form_QueryUnload()判斷: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim Ans As Integer If 未存檔 Then Ans = MsgBox("尚未存檔! 是否要存?", vbYesNoCancel + vbQuestion) If Ans = vbYes Then '去做存檔的動作! ElseIf Ans = vbCancel Then Cancel = True '取消不結束了 End If End If End Sub
謝謝你 阿虹 我相信你提供的方法是ok的,問題是我應該怎樣去設一個變數記錄是否已存檔,請恕我笨,有勞繼續指導,感謝!
如果是用TextBox編輯,那可以在_Change()事件內改變該變數的值! 已修改=True ' 然後在存檔後 已修改=False