1 2 3 4 5 6 7 8 9 10 11 12 13 | Private Sub frmSeparar_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing If blnNoneSave = True Then If MsgBox("尚未儲存,是否確定要關閉分組系統?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "詢問") = MsgBoxResult.No Then e.Cancel = True End If End If End Sub |
沒有留言:
張貼留言