Печать данных из файла в форму Text1 - VB

Формулировка задачи:

Задача: Нужно взять данные из файла и вывести их в Text1 Ниже приведенный код выводит только первую строчку, как сделать чтобы выводило все строки?

Private Sub Command2_Click()
Dim ati As String
Open "D:\NewFile.txt" For Input As #1
Line Input #1, ati
Close #1
Text1.Text = ati
End Sub

Решение задачи: «Печать данных из файла в форму Text1»

textual
                            Листинг программы 
                        

                            Dim ati As String
Open "D:\NewFile.txt" For Input As #1
Text1.Text = ""
Dim Wrap As String
Wrap = Chr(13) & Chr(10) 'комбинация символов отвечает за перевод курсора на след. строку
While Not EOF(1)
    Line Input #1, ati
    Text1.Text = Text1.Text & ati & Wrap
Wend
Close #1
                        

Оцени полезность:

13 голосов , оценка 3.923 из 5

Похожие ответы