load tekstfil

Jeg har lige set at jeg har dummet mig i mit ovenstående svar det gik vist lidt for hurtigt!!!!

her er mine ændringer så!!!!

text1.multiline = true
text1.scrollbar = 2
filnavn = "text.txt"
nl$ = chr$(13) & chr$(10)
Fri = Freefile
open filnavn for input as fri
while not EOF(fri)
line input #fri, ind$
text1.text = text1.text & ind
wend

close fri



Suveræn Kodning Er Vejen Til Suveræne Programmer!!!

Med Venlig Hilsen Kent.

<quote>hvordan loader man en tekstfil så den kommer til at stå inde i en textbox, med et billede skriver man:
CommonDialog1.FileName = "*.bmp"
CommonDialog1.ShowOpen
picture1.Picture = LoadPicture(CommonDialog1.FileName)
men kan man gøre noget lignenene med en tekst fil ?

</quote>
Det ved jeg faktisk ikke men du kan gøre det på en lidt mere besværglig måde,kan ikke lige huske koden!

mvh.
Thomas Christensen

text1.multiline = true
text1.scrollbar = 2

nl$ = chr$(13) & chr$(10)
Fri = Freefile
open comdia1.filename for input as fri
while until EOF(fri)
line input ind, #fri
text1.text = text1.text & ind
wend

close fri