Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Speichern von mehreren child Forms
Autor: moenchen
Datum: 10.04.06 11:10
Hallo, habe Probleme mit dem Speichern von mehreren child forms. Folgender Code funktioniert, wenn nur ein Fenster geöffnet ist. Sind mehrere Fenster geöffnet, kommt es vor, dass der Inhalt von einer Datei mit dem Inhalt vom anderen überschrieben wird. Findet jemand den Fehler? bin schon voll verzweifelt. Danke im voraus. 'Saves the text with a new filename on disk Public Sub mnuSaveAs_Click() Dim FNum As Integer On Error GoTo ErrHandler 'Open the SaveOpen 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, ActiveForm.ActiveControl.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 'Saves the text on disk Public Sub mnuSaveFile_Click() MDI_Mainframe.ActiveForm.Tag = OpenFile(currentDocument) MDI_Mainframe.ActiveForm.ActiveControl.Tag = "txt" 'If MDI_Mainframe.ActiveForm.Tag <> "OpenFile(currentDocument)" Then ' mnuSaveAs_Click 'Call the SaveAs subroutine because the ' 'dcoument has not been saved yet ' Exit Sub 'End If Open OpenFile(currentDocument) For Output As #1 Print #1, ActiveForm.ActiveControl.Text Close #1 End Sub

Speichern von mehreren child Forms

437

moenchen

10.04.06 11:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen