Udskrive fils indhold i textarea

Jeg mener det er noget med:

Open \"project.fun\" For Output As #1
\' Her indlæses koden i tekstfeltet
Close #1

Output = Input

Open \"project.fun\" For Input As #1
txtTekstfelt.Text = Input(LOF(1), 1)
Close #1

hvorfor kalde filen *.fun? og hvorfor ikke bare bruge ganske almindelig FileSystem Object til at håndterer filer???

Sub PrintText(txtBox As TextBox)
\'Start printning (Command2)
  Printer.ScaleMode = vbCentimeters
  Printer.CurrentX = 0
  Printer.CurrentY = 0
  Printer.FontTransparent = True
  Printer.FontName = \"Times New Roman\"
  Printer.FontSize = 12
  Printer.Print txtBox.Text
  Printer.EndDoc
End Sub

Private Sub Command1_Click()
\'Load tekst filen
Dim MyUrl As String
Dim txtMyUrl As String
  Open \"C:\\Dokumenter\\Test.txt\" For Input As #1
    Do Until EOF(1)
      Input #1, MyUrl
      txtMyUrl = txtMyUrl & MyUrl & vbNewLine
    Loop
  Close #1
Text1.Text = txtMyUrl
End Sub

Private Sub Command2_Click()
\'Print Teksten ud
  PrintText Text1
End Sub

Private Sub Form_Load()
  Command1.Caption = \"Load txt\"
  Command2.Caption = \"Print txt\"
  Text1.Text = \"\"
End Sub

Ok... Så langt, så godt

Nu er der bare et problem!

Der kommer bare to tykke lodrette streger, der hvor der skulle være linjeskift

Ved nærmere eftertanke... Kan I ikke hellere putte det ind i en combobox???

phillip > det der med to lodrette streger; Du skal sætte multiline-propertien på din tekstboks til true ;o)

/Jennemaan

Jeg mente LISTBOX.... IKKE COMBOBOX

jennemann > Det virker :-)

.