Rubrik: CommonDialog | 01.05.02 |
Datei öffnen mit dem CommonDialog Steuerelement VB-Version: VB5, VB6 | ||
Views: 32.826 |
Sie möchten eine Datei mit dem Standard-Dialogfeld öffnen?
Für unser Beispiel benötigen Sie eine TextBox (Text1), deren MultiLine-Eigenschaft auf True gesetzt ist, einen CommandButton (cmdOpen) sowie das CommonDialog Control, das Sie über " Komponenten hinzufügen" auswählen. Dann noch folgenden Code:
Private Sub cmdOpen_Click() ' wird im "CommonDialog" auf "Abbrechen" geklickt, ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. Dim F As Integer Dim AllText As String Dim LineOfText As String On Error Resume Next With CommonDialog1 .CancelError = True ' Filter setzen - hier wird festgelegt, mit welchem Format ' eine Datei geöffnet wird. .Filter = "Textdateien (*.txt)|*.txt" ' Dialogfeld Öffnen anzeigen .ShowOpen If .FileName <> "" Then F = FreeFile Open .FileName For Input As #F ' Zeilen aus Textdatei einlesen und in Variable AllText speichern Do Until EOF(F) Line Input #F, LineOfText AllText = AllText & LineOfText & vbCrLf Loop Close #F ' Inhalt der Variable AllText im Textfeld ausgeben Text1.Text = AllText End If End With End Sub
Starten Sie Ihr Programm, klicken Sie auf den CommandButton und öffnen Sie eine Textdatei.