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


         

Класс


String

Последний пример в этом разделе — это очень простой класс, который реализует несколько полезных операций со строками. Класс String предусматривает три метода, реализованных в виде общедоступных функций.

•  Integer2Binary(number As Long). Преобразует свой числовой аргумент в двоичное число и возвращает двоичное значение в виде строки.

•  Number2String(number As integer). Преобразует свой числовой аргумент в строку и возвращает ее. Если число 395 передать этому методу в качестве аргумента, то возвращаемым значением будет строка "триста девяносто пять".

•  LowerCaps(str As String). Преобразует свой аргумент в нижний регистр, причем первые буквы всех слов становятся заглавными, и возвращает новую строку. Если значение "триста девяносто пять" передать в качестве аргумента этому методу, то возвращаемым значением будет строка "Триста Девяносто Пять".

Члены класса String довольно просты, но они могут служить в качестве отправной точки при создании класса с функциями для манипуляции строками и числами, которые часто используются, но не реализованы в Visual Basic в чистом виде.

Три метода класса String реализованы в виде общедоступных функций, и показаны ниже.

Программа 15.17. Методы класса String

Public Function Number2String(Number)

Dim tenth As Integer

Dim leftover As Integer

Dim hundred As Integer

Dim thousand As Integer

If Number < 20 Then ' Чтение чисел меньших 20

NumString = ReadSingle(Number)

Elself Number < 100 Then   ' Чтение чисел меньших 100

tenth = Fix(Number / 10)

NumString   ReadTenths(tenth * 10)

leftover = Number   (tenth * 10)

If leftover > 0 Then

NumString = NumString & " " & ReadSingle(leftover)

End If

Elself Number < 1000 Then   ' Чтение чисел между 100 и 999

hundred = Fix(Number / 100)

NumString =

ReadSingle(hundred) & " hundred"

leftover = Number - (hundred * 100)

If leftover > 0 Then

tenth = Fix(leftover / 10)

If tenth > 0 Then NumString = _




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