Компоненты-члены элемента управления
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, чтобы сообщить приложению, что произошла ошибка. Главное приложение может узнать номер и описание ошибки, чтобы предпринять соответствующие действия.
