На главную страничку учебника Visual Basic

Стандартные функции VB (N-R)

Описание ф-ций, встроенных в Visual Basic 5, начинающихся с букв N до R

Список функций, описанных в этом разделе:

• Now
• Oct
• QBColor
• RGB
• Right
• Rnd
• RTrim

---N---

Now - Возвращает Variant значение, содержащее текущие системные дату и время.

Пример:

Dim Today
Today = Now ' Today содержит текущие дату и время.

---O---

Oct(number) - Возвращает восьмиричное значение числа number.

Пример:

Dim MyOct
MyOct = Oct(4) ' Возвратит 4.
MyOct = Oct(8) ' Возвратит 10.
MyOct = Oct(459) ' Возвратит 713.

---Q---

QBColor(color) - Возвращает значение Long, содержащее цвет, заданный номером от 0 до 15. Ниже приведена таблица цветов:

Пример:

MyForm.BackColor = QBColor(6)

---R---

RGB(red, green, blue) - Возвращает Long, содержащее цвет, заданный тремя компонентами R, G и B.

Пример:

MyForm.BackColor = RGB(255,0,0) 'цвет формы изменится на красный
MyForm.BackColor = RGB(255,255,255) 'цвет формы изменится на белый

Right(string, length) - возвращает length символов из строки string, начиная справа.

Пример:

Dim AnyString, MyStr
AnyString = "Hello World" ' Определяем строку
MyStr = Right(AnyString, 1) ' Возвратит "d".
MyStr = Right(AnyString, 6) ' Возвратит " World".
MyStr = Right(AnyString, 20) ' Возвратит "Hello World".

Rnd[(number)] - Возвращает Single значение, содержащее случайное число от 0 до 1.

Пример:

Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' Генерирует случайное число от 1 до 6

RTrim(string) - Удаляет пробелы справа от строки.

Пример:

Dim MyString, TrimString
MyString = " <-Trim-> "
'Строка, у которой слева и справа по одному пробелу
TrimString = RTrim(MyString)
'Справа пробела нет, т.е. теперь TrimString = " <-Trim->"

На главную страничку учебника Visual Basic