Быстрый поиск

Реферат: Курс лекций по V B 5.0

События Списка файлов:

События	Описание
Click
DoubleClick
MouseDawn
MouseUp
MouseMove
KeyUp,KeyDawn,KeyPress
DragDrop, DragOver
GotFocus,LostFocus
PathChange	Изменение текущего пути для списка файлов
PatternChange	Изменение шаблона для отображения файлов в списке

Пример события PathChange

Sub File1_PathChange ()

Label1.Caption = "Path: " & Dir1.Path ' Show path in label.

End Sub

Sub Dir1_Change ()

File1.Path = Dir1.Path ' Set file path.

End Sub

Sub Form_Load ()

Label1.Caption = "Path: " & Dir1.Path ' Show path in label.

End Sub

Sub Drive1_Change ()

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 следует имя файла, строковая переменная или строка в двойных кавычках. Если файл не текущем каталоге, нужно указать путь к нему.

Запись информации в файл:

Open “имя файла” for Output as # 1

# 1 - это идентификатор файла - число от 1 до 255 с символом #. Максимальное число одновременно открытых файлов определяются параметром в Config.sys.

По команде Open резервируется файловый буфер в памяти компьютера. По мере заполнения буфера активируются соответствующий диск и весь блок информации посылается непрерывным потоком на диск (количество будет устанавливаться в Config.sys). После окончания работы с файлом он закрывается командой Close # идентификатор файла. Команда Close сбрасывает информацию на диск и очищает буфер. Для сброса содержимого буфера на диск (в критических ситуациях) используется команда Reset. Для ввода информации в файл можно использовать команду Print #

“ Запись в файл

Open “File 1” For Output As #1

Print #1, “1 2 3 4 5 ” или Print #1, txtDisplay.Text

Close #1

Если в текущем каталоге есть файл с таким именем, то этой командой он будет уничтожен.

Close без параметров закрывает все файлы.

Для определения размера открытого файла можно использовать команду LOF (идентификатор файла)

Open “File 1” For Output As #1

Print #1, “1 2 3 4 5 ”

Print LOF(1)

Вместо Print можно использовать Write # идентификатор файла, список переменных.

Чтение из файла