Практическая работа 17. Элементы управления DriveListBox, DirListBox и FileListBox

Date: 2015-10-07; view: 406.

Для приобретения навыков работы с файловой системой выполнить следующее:

1. Создать на форме элементы управления DriveListBox, DirListBox и FileListBox, , синхронизировать работу объектов, см. соответствующие процедуры, приведенные выше,

2. создать на форме командные кнопки:

o Path для процедуры вывода пути и меню в поля меток, см. код и

o Copy NET14.ICO для процедуры копирования файла (здесь - файла NET14.ICO) с заданием имени файла в процедуре и выводом данных в поле метки, см. код и

o Copy File1 для процедуры копирования файла (здесь - файла File1) с заданием файла путем маркировки его имени в списке файлов FileListBox и выводом данных в поле метки, см. код и,

o Make Directory для создания каталогов, см. код и

3. ввести код данный ниже:

' синхронизация работы элементов управления и

' обеспечение вывода содержимого каталогов при

' нажатии клавиши Enter

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Dir1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then Dir1.Path = Dir1.List(Dir1.ListIndex)

End Sub

Private Sub Command1_Click() ' вывод пути и имени файла

Label1 = Drive1: Label2 = Dir1: Label3 = File1

End Sub

' процедура многократного копирования файла

' последовательным нажатием командной кнопки

Private Sub Command3_Click()

Static i As Integer

FileCopy "A:\Net14.ICO", "A:\FileN"

' вывод имени копируемого файла и числа копирований

Label4 = File1 & " Copy " & i +1

i = i + 1

End Sub

' процедура копирования файла путём маркировки файла в

' списке FileListBox и последующего старта

' соответствующей процедуры

Private Sub Command4_Click()

Static i As Integer

Print File1: FileCopy File1, "FileN": Label5 = File1 & " Copy " & i + 1

i = i + 1

End Sub

' создание каталогов

Private Sub Command2_Click()

MkDir а1: MkDir а2

End Sub

4. стартовать проект и затем:

o в списке DriveListBox выбрать, например, дисковое устройство А:. Маркировкой имени каталога и последовательным нажатием клавиши Enter вывести на экран содержимое. Маркировать некоторый файл (здесь - NET14.ICO), сделать щелчок на кнопке Path,

o сделать щелчок на кнопке Copy NET14.ICO,

o сделать щелчок на кнопке Copy File1,

o сделать щелчок на кнопке Make Directory.