Реферат: Основы Visual Basic 50
Dir1.Path = Drive1.Drive' Set Dir path.
End Sub
Sub Dir1_Change ()
File1.Path = Dir1.Path' Set File path.
End Sub
DirectoryListBox- список каталогов.
Элемент управления DirListBox - отображает дерево каталогов текущего диска. Содержимое списка каталогов обновляется при двойном щелчке мыши. Подкаталоги текущего каталога нумеруются от 0 до ListCount - 1. Сам текущий каталог имеет индекс -1, родительский -2, выше -3 , ...При двойном щелчке мыши вызывается событие Change и меняется значение свойства Path.
Основные свойства Списка каталогов.
| Свойство | Содержание |
| List | Массив членов списка каталогов |
| ListCount | Кол. членов списка каталогов |
| ListIndex | Индекс массива |
| Path | Текущий Путь для списка каталогов |
| Parent | Для доступа к свойствам, событиям и методам родительской формы данного элемента |
События Списка каталогов
| События | Описание |
| Click | |
| MouseUp, MouseUp, MouseMove | |
| KeyUp,KeyDawn,KeyPress | |
| DragDrop, DragOver | |
| GotFocus,LostFocus | |
| Change | Изменение в списке каталогов |
Для того. чтобы изменение в списке каталогов отразилось списке файлов, можно использовать процедуру:
Private Sub dirBox_ Change()
filFile1.Path = dirBox.Path
End Sub
При этом для списка каталогов Path указывает выбранный каталог, а для списка файлов - каталог, файлы которого отражаются в списке.
DriveListBox- список дисков.
В отличии от предыдущих элементов список дисков является выпадающим. Список дисков отображает текущий диск, а когда пользователь щелкает на кнопке со стрелкой, выводит список всех доступных дисков.
Основные свойства Списка дисков
| Свойство | Содержание |
| Drive | Определяет текущий диск |
| ListCount | Кол. членов списка дисков |
| ListIndex | Индекс массива дисков |
| List | Массив членов списка дисков |
| Parent | Для доступа к свойствам, событиям и методам родительской формы данного элемента |
События Списка дисков
| События | Описание |
| KeyUp,KeyDawn,KeyPress | |
| DragDrop, DragOver | |
| GotFocus,LostFocus | |
| Change | Изменение в списке дисков |
Основным свойством является свойство Drive , которое используется для получения и установки текущего диска. Это свойство используется для синхронизации работы списка дисков и списка каталогов. Например,
Private Sub drvBox_ Change()
dirBox.Path = drvBox. Drive
Ch Drive drvBox. Drive ‘ Если нужно изменить текущий диск ОС
End Sub
Файлы последовательного доступа
Используются когда:
а) редко вносятся изменения
б) информация в файле обрабатывается от начала до конца
в) если нужно добавлять информацию в конец файла.
Для совершения операции чтения или записи с файлом его нужно открыть командой Open. После Open следует имя файла, строковая переменная или строка в двойных кавычках. Если файл не текущем каталоге, нужно указать путь к нему.