End Sub. 2.Программа позволяет просматривать текстовые файлы

2.Программа позволяет просматривать текстовые файлы. Окно программы приведено на рисунке 4.2.

Рис.4.2. Окно программы Просмотр текстового файла

Для корректного отображения содержимого текстового файла необходимо свойству MultiLine поля Text2 присвоить значение True. Свойству ScrollBars необходимо присвоить значение 2 - Vertical, тогда у Text2 появится полоса вертикальной прокрутки. Для того, чтобы нельзя было редактировать содержимое файла, свойству Locked нужно присвоить значение True.

Dim FileName As string ‘ путь к открываемому файлу

‘ Выбор каталога в поле Dir1

Private Sub Dir1_Change ()

File1.Path = Dir1.Path ‘ вывод списка файлов,содержащихся в папке

Text1.Text = “ “ ‘ очистка поля вывода содержимого файла