Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Практическая работа 48. Использование Windows АPI
|
|
Использовать функцию Windows АPI копирование файла; для этого выполнить следующее:
1. Создать на форме (рис. 7.3):
o элементы управления DriveListBox, DirListBox, FileListBox; синхронизировать их работу, обеспечить вывод содержимого каталога после его маркировки и нажатия клавиши Enter,
o две командные кнопки, четыре поля метки, см. код процедур,
2. ввести код, данный ниже, пояснения даны под комментариями,
3. стартовать проект, выбрать для копирования файл в дереве файлов, выведенном в поля элементов DriveListBox, DirListBox, FileListBox (здесь - файл Net14.ICO на дискете), маркировать файл. Сделать щелчок на кнопках Command2 и (последровательно несколько раз) на Command1 (Function:) - в поля меток выводятся: имя дискового устройства, имя каталога, путь и имя файла, сообщение о числе копирований файла, рис. 7.3
' объявление функцииPrivate Declare Function CopyFile Lib " kernel32" Alias " CopyFileA" _(ByVal lpExistingFileName As String, ByVal lpNewFileName _As String, ByVal bFailIfExists As Long) As Long ' описание переменной для хранения возвращаемого функцией значенияDim RetVal As Long Private Sub Command1_Click() ' процедура копирования файла' переменная описана как Static для обеспечения ' многократного копирования файла последовательным' нажатием командной кнопкиStatic i As Integer RetVal = CopyFile(File1, " lpNewFileName", 1) ' копированиеPrint File1 ' вывод имени копируемого файла на форме' вывод имени файла и числа копированийLabel1 = File1 & " Copy " & i + 1 i = i + 1End Sub' синхронизация работы элементов управления Dir1 и Drive1; ' обеспечение вывода содержимого каталога при его ' маркировке и нажатии клавиши EnterPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Dir1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Dir1.Path = Dir1.List(Dir1.ListIndex)End Sub' вывод в поля меток имени дискового устройства, каталога, ' пути и имени файлаPrivate Sub Command2_Click() Label2 = Drive1: Label3 = Dir1: Label4 = File1End Sub
Рис. 7.3. Пример использования Windows API
Лекция 8:
|
|