5.2.2. Индикатор процесса

Индикатор процесса (ProgressBar) предназначен для отображения медленно протекающих процессов. Этот элемент управления загружается на панель элементов управления в одной группе со строкой состояния.

Основными свойствами этого элемента управления являются:

Max и Min – дла устаноки диапазона изменения контролируемого параметра. Если необходимо выводить результат в процентах, то свойству Min надо присвоить значение 0, а свойству Max – 100;

Value – возвращает текущее значение. Определение значения этого свойства предоставляется разработчику, так как сам элемент управления не имеет возможности отслеживать продвижение процесса:

‘пример для загрузки нескольких файлов

Sub LoadFiles()

Progress1.Min=0

Progress1.Max=nFiles

For i=1 To nFiles

Call LoadFile(i)

Progress1.Value=i

Next i

End Sub

5.2.3. Списки устройств, каталогов и файлов

Visual Basic 6 имеет три элемента управления, предназначенные для работы с файлами и каталогами: DriveListBox (Список устройств), DirectoryListBox (Список каталогов), FileListBox (Список файлов). Все эти элементы используются, как правило, совместно. Взаимодействие между ними осуществляется через событие Change. Большинство их свойств совпадают со свойствами поля со списком.

Список устройств

Этот элемент управления предназначен для отображения списка всех доступных дисков и устройств системы и обеспечивает возможность их выбора.

Основным свойством элемента DriveBox является свойство Drive, которое возвращает выбранный диск или устройство, например, “C:\”.

Список каталогов

Данный элемент управления предназначен для выбора каталогов. Он отображает структуру каталогов выбранного диска и позволяет осуществлять выбор и смену каталогов. Основным свойством списка каталогов является свойство Path. Оно возвращает полный путь к выбранному каталогу, включая имя диска (например, C:\Windows\Word).

Список файлов

Список файлов отображает файлы текущего каталога и обеспечивает их выбор.

Основными свойствами данного элемента управления являются свойства FileName и Pattern.

Свойство FileName содержит имя выбранного файла (например, Bock.doc).

Свойство Pattern позволяет установить типы файлов, которые должны отображаться в списке. Для установки типов файлов допускается использование маски: *.ICO, *.BMP и т.д.

Например:

File. Pattern=”*.ICO;*.BMP

Здесь File – имя элемента управления FileListBox. Для организации совместного использования списков необходимо написать следующие тексты программ:

а) для списка устройств:

Private Sub Drive1_Change( )

Dir1.Path=Drive1.Drive

End Sub

б) для списка каталогов:

Private Sub Dir1_Change( )

File1.Path=Dir1.Path

End Sub

в) для списка файлов:

• для отображение полного маршрута выбранного файла напишем команду:

lblPath.Caption=File1.Path & “\” & File1.FileName.

Чтобы избежать отображения в маршруте излишнего количества символов “\” рекомендуется применять следующий код:

Private Sub File1_Click ( )

If Right (File1.Path,1)= “\” Then

lblPath.Caption=File1.Path & File1.FileName

Else

lblPath.Caption=File1.Path & “\” & File1. FileName.

End If

End Sub

Пример использования данных списков приведен на рис. 5.10.

Рассмотренные элементы управления позволяют создать, при необходимости, средства интерфейса для открытия файлов и их сохранения. Однако для этих целей VB 6 имеет более мощные средства. Это стандартные диалоговые окна Windows.