Rubrik: CommonDialog | 01.05.02 |
Datei speichern mit dem CommonDialog Steuerelement VB-Version: VB5, VB6 | ||
Views: 24.018 |
Sie möchten, dass Ihr Programm den gewohnten Standard-Dialog zum Speichern von Dokumenten verwendet?
Für unser Beispiel benötigen Sie eine TextBox (Text1), deren MultiLine-Eigenschaft auf True gesetzt ist, einen CommandButton (cmdSave) sowie das CommonDialog Control, das Sie über " Komponenten hinzufügen" auswählen. Dann noch folgenden Code:
Private Sub cmdSave_Click() ' wird im "CommonDialog" auf "Abbrechen" geklickt, ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. Dim F As Integer On Error Resume Next With CommonDialog1 .CancelError = True ' Hinweis, falls Datei bereits vorhanden ' weitere Flags-Eigenschaften finden Sie in der MSDN .Flags = cdlOFNOverwritePrompt ' Filter setzen - hier wird festgelegt, unter welchem ' Format eine Datei gespeichert wird. .Filter = "Textdateien (*.txt)|*.txt" ' Dialogfeld Speichern anzeigen .ShowSave If .FileName <> "" Then F = FreeFile Open .FileName For Output As #F Print #F, Text1.Text Close #F End If End With End Sub
Schreiben Sie einen Text in die TextBox und klicken Sie anschließend auf den CommandButton. Sie können diesen Text jetzt als Textdatei abspeichern.