Private DocChanged As Boolean
 
Private Sub Text()
 
  Dim DateiNr%
 
  If Trim$(DateiName) = "" Then Exit Sub
  If Dir$(DateiName) = "" Then Exit Sub
 
  On Error Resume Next
  DateiNr = FreeFile
  Open DateiName For Input As #DateiNr
    Text1.Text = Input(LOF(DateiNr), #DateiNr)
  Close #DateiNr
  On Error GoTo 0
 
  DocChanged = False
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
  ' Checks to see if document has changed since last save,
  ' and if it has gives a message box with a chance to save.
 
  If DocChanged = True Then
 
    Select Case MsgBox("The file has changed." & vbCr & vbCr & _
      " Do you wish to save your changes?", _
      vbExclamation + vbYesNoCancel, Me.Caption)
 
      Case vbYes
        mnuFileSave_Click
 
      Case vbNo
        ' Unload Form
 
      Case vbCancel
        Cancel = True
 
    End Select
 
  Else
 
    MsgBox "Nothing changed.", vbInformation + vbOKOnly
 
  End If
 
End Sub
 
Private Sub Text1_Change()
 
  DocChanged = True
 
End Sub

Gruss,

Zardoz

Beitrag wurde zuletzt am 16.01.14 um 13:49:57 editiert.