⇢ ВЗ
Валерий Зимин
Программирование в VB 6.0
Задача такая: Нужно в окне программы встасить документ Word bkb PDF c с полосой прокрутки.
В дальнейшем буду добавлять ещё файлы Word или PDF, не хочу каждый раз писать отдельно форму с TextBox.
Погуглив, нашёл такой вариант, но мне выбивает только первую строчку.
Private Sub Command2_Click()
Dim txt As String
Open "H:\text.txt" For Input As #1 ' Открываем файл 1.txt для чтения
Do While Not EOF(1) ' Функция EOF(End Of File) проверяет, достигнут ли конец файла
Line Input #1, txt ' Читаем строку данных
Text1.Text = txt
Loop
Close #1
End Sub
