Antworten

Hallo Leute,
ich hab da ein kleines Problem,
und zwar lade ich einen Text aus einer Text-Datei,
welches auch super funktioniert.
Nur ich habe das Problem,
das der Text immer in die Titelleiste und in TextBox1 eingefügt wird.
Der Text soll nach dem laden aber nur in TextBox1 stehn und
nicht auch als Fensterüberschrift.
Kann mir jemand sagen wie sich das Problem beheben läst,
so das der Text nicht mehr als Fensterüberschrift gesetzt wird,
sondern nur in TextBox1 angezeigt wird?

Hie der Code:

Code:

    Private Sub CmdEinlesen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEinlesen.Click
        On Error GoTo fehler
        'Öffnet "Datei1" zum Einlesen auf Datenkanal 1
        FileOpen(1, "vordatei.txt", OpenMode.Input)
        'Bis das Dateiende erreicht ist wird der Dateiinhalt der Variablen "Text" zugewiesen
        'der in die Textbox "Text1" ausgegeben wird
        Do While Not EOF(1)
            Input(1, Text)
            TextBox1.Text = Text
        Loop
        'Schließt alle offenen Dateien
        FileClose()
        Exit Sub
        'Fehlerbehandlung, wenn die Datei nicht gefunden wird
fehler:
        MsgBox(Err.Description, 16, "Fehler")
    End Sub

Danke schon mal für euer Hilfe.
Mfg Sneap