Visual Basic 6. Руководство разработчика


         

Компоненты-члены элемента управления


Rates

Rates имеет много стандартных компонентов-членов.

BackColor

ForeColor

MouseMove

Click

Key Down

MouseUp

DblClick

KeyPress

Refresh

Enabled

KeyUp

Font

Mouse Down

Эти компоненты добавлены в элемент управления с помощью мастера. Все они соответствуют эквивалентным элементам управления ListBox.

В дополнение к стандартным, элемент управления

Rates реализует следующие пользовательские компоненты.

Метод DownloadRates (Загрузить курсы обмена). Метод DownloadRates соединяется с сервером и загружает документ, содержащий курсы валюты. Ниже приведен синтаксис этого метода.

DownloadRates (RatesURL As String)

RatesURL - это URL текстового файла, имеющий следующую структуру.

<date>

<currency>, <rate>

<currency>, <rate>

<currency>, <rate>

Первая строка содержит дату последней модификации файла, чтобы       клиент знал, когда изменялись данные по курсам. Следующие строки содержат обозначения валюты и курса, отделяемые запятыми. Так выглядит файл, содержимое которого приведено в виде списка (см. рис. 21.12).

"5:31 РМ 5/18/96"

US$, 1.00

С$, 1.483

ВР, 0.867

FFr, 2.143

ECU, 1.103

DM, 1.780

ESP, 13.203

YEN, 143.300

LIR, 2340.500

GDr, 328.405

BFR, 25.403

Так как код использует запятую, чтобы отделить два элемента каждой строки, нельзя использовать тот же самый символ как разделитель тысяч. Значение 2340.500 не может быть представлено в Rates.txt файле как 2,340.500. Его не пропустит код, который анализирует файл и заполняет элемент управления ListBox.

Событие RatesRead (Чтение курсов). Инициируется, как только данные разгружены.

Свойство LastUpdate (Последняя модификация).

Возвращает дату и время последней модификации курсов. Значение свойства считывается с сервера вместе с курсами валюты.

Свойства Count (Счетчик). Возвращает число различных типов валют, загру­женных с сервера.

GetCurrencyValue (Получить курс). Возвращает обменный курс определенной валюты. Чтобы узнать обменный курс, например, для немецкой марки, вызовите метод GetCurrencyValue.

DMRate = GetCurrencyValue("DM") ,

Аргумент метода должен иметь тип String

Метод GetCurrencyName (Получить имя валюты). Возвращает имя валюты в поле index элемента управления ListBox.

Событие DLoadError (ErrNumber As Long, ErrDescription As String). Вызывается из события AsyncReadComplete, чтобы сообщить приложению, что произошла ошибка. Главное приложение может узнать номер и описание ошибки, чтобы предпринять соответствующие действия.




Содержание  Назад  Вперед