Создание приложений ОС Windows средствами Visual Basic

Измените свойство Caption формы Cdir на «Проводник»


Создайте в форме элементы управления DriveListBox и DirListBox. Нам подходят все значения свойств этих элементов, установленные по умолчанию.

Создайте элемент FileListBox. Измените его свойство Pattern на «*.*», это позволит отображать в списке все файлы. Можно ввести любую маску, в зависимости от того, какие файлы необходимо включить в список. Свойства ReadOnly, Archive, Hidden и System определяют показывать или нет в списке файлы с соответствующим атрибутом. Поставьте свойству ReadOnly значение True.

Разместите созданные элементы в соответствии с рис. 25.

Щёлкните два раза на списке дисков. В открывшемся окне появится шаблон процедуры. Приведите код в соответствие с нижеследующим:

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

При выборе какого-либо диска из списка, вызывается приведённая процедура. В ней значение свойства Drive списка дисков, содержащее имя выбранного диска, записывается в свойство Path списка директорий Dir1, которое определяет, директории какого диска будут отображаться в списке.

Далее введите следующий код:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Этот код выполняется при выборе какого-либо директория из списка Dir1. Он записывает значение свойства Path списка директорий, содержащее путь выбранной директории, в аналогичное свойство списка файлов File1 определяя тем самым, файлы из какой директории будут отображаться в списке.



Содержание раздела