title image


Smiley Speichern von mehreren Fenstern
Hallo,

ich brauch dringend eure Hilfe. In meinem Programm soll es möglich sein mit mehreren Fenstern (MDI Childs) zu arbeiten. Mein Problem ist, wenn ich die Fenster abspeichern möchte, überschreibt er mir den Inhalt vom letzt geöffnetem Fenster mit dem Inhalt vom erst geöffnetem. Den Code habe ich im Child Form geschrieben. Komisch ist, dass das Abspeichern mit "Save as..." funktioniert. Ich komme einfach nicht auf den Fehler.

Hoffe ihr könnt mir helfen.

Hier folgender Code:

Public Sub mnuSaveFile_Click()

Dim FNum As Integer



FNum = FreeFile

Open OpenFile(currentDocument) For Output As #1

Print #FNum, Editor.Text

Close #FNum



Exit Sub

End Sub





'Saves the text with a new filename on disk

Public Sub mnuSaveAs_Click()

Dim FNum As Integer



On Error GoTo ErrHandler

'Opens the Save common dialog box

CoD_SaveFile.CancelError = True

CoD_SaveFile.Filter = "Text file (*.txt)|*.txt"

CoD_SaveFile.FilterIndex = 2

CoD_SaveFile.Flags = cdlOFNOverwritePrompt

CoD_SaveFile.ShowSave

OpenFile(currentDocument) = CoD_SaveFile.filename



FNum = FreeFile

Open OpenFile(currentDocument) For Output As #1

Print #FNum, Editor.Text

Close #FNum



Exit Sub



ErrHandler:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "Unknown error in saving file " & OpenFile(currentDocument)

End If

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: