Private Sub cmdOpen_Click() CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then _
FileNameX = CommonDialog1.FileName Text1.Text ="" ' sletter boksen hvis der er noget i den Open FileNameX For Input As #1 Do While EOF(1) = False Line Input #1, linie Text1.Text = Text1.Text & Line Loop Close #1 End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.