[VB] Textbestand in Textbox laden ..

[Verwijderd]

Hey ben ik weer,

Ik ben al een stuk opgeschoten maar nu zit ik nog met een probleem. Ik ben nu bezig om een stuk text te laden en dat dan in een textbox te zetten.

Alleen het probleem is dat ik de text niet in een textbox krijg, ik krijg het wel in een richtextbox maar dat wil ik juist niet

Visual Basic:

Private Sub Command1_Click()
    On Error Goto ErrHandler
    CommonDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
    CommonDialog1.ShowOpen
        If CommonDialog1.Filename <> "" Then
        Richtextbox1.LoadFile CommonDialog1.Filename
        End If
    Exit Sub
ErrHandler:
End Sub

Dat heb ik nu en dan laad hij in een richtextbox .. Maar hoe krijg ik dit in een gewone textbox ?

Visual Basic:

        Richtextbox1.LoadFile CommonDialog1.Filename

Deze regel moet anders maar als je dat verandert naar:

Visual Basic:

        Text1.Text = CommonDialog1.Filename

Dan laat hij de file titel zien. Dus wat moet ik dan precies veranderen wil ik dit laten werken ?

Alvast bedankt

[ Voor 3% gewijzigd door Verwijderd op 06-04-2003 14:26 ]

[gorgi_19]

1. Open een bestand
2. Lees het bestand en stop de inhoudt in een string
3. Sluit het bestand
4. Text1.Text = string

[Verwijderd]

Hmmz zit wat in maar kan ik dat niet gewoon direct doen .. ?

En hoe zorg ik ervoor dat hij het in een string kan zetten .. want naar mijn idee heb je dan nogsteeds een richtextbox nodig om de inhoud te lezen of niet ?

[Verwijderd]

http://www.vbinformation.com/cgi-bin/code.pl?filehandling

[geez]

in mijn eigen notepad-namaak () heb ik het zo gedaan:

Private Sub openfile_Click()
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowOpen
Dim filenameopen As String
Dim commondfilename As String
commondfilename = CommonDialog1.FileName
Open commondfilename For Binary As #1
filenameopen = Input(LOF(1), #1)
Text1.Text = filenameopen
Close #1
End Sub

[Verwijderd]

Ik zal er eens even naar kijken .. Thnx

edit:
He stoer het werkt !! Bedankt !!

[ Voor 39% gewijzigd door Verwijderd op 05-04-2003 19:07 ]

[muba]

hehe, basis-Basic?

[geez]

MUBA schreef op 06 april 2003 @ 16:44:
hehe, basis-Basic?

mja dit is wel redelijk basis te noemen.... maar ik had precies hetzelfde toen ik dit wou doen.. ben er mee bezig gegaan en heb het bovenstaande stuk code uiteindelijk gemaakt