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

Операторы VB (R)

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

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

• RaiseEvent
• Randomize
• ReDim
• Rem
• Reset
• Resume
• RmDir
• RSet

---R---

RaiseEvent eventname [(argumentlist)] - Запускает событие, определённое в компоненте, форме или документе.

Пример:

' В этом примере при нажатии на UserControl будет
' генерироваться нажатие клавиши с кодом 101

Event Click()
Event KeyPress(KeyAscii As Integer)

Private Sub UserControl_Click()
RaiseEvent KeyPress(101) ' Вместо щелчка будет происходить KeyPress
End Sub

Private Sub UserControl_KeyPress(KeyAscii As Integer)
RaiseEvent KeyPress(KeyAscii) ' Обычный KeyPress
End Sub

' Теперь поместите этот код в форму, на которой расположен UserControl

Private Sub UserControl1_KeyPress(KeyAscii As Integer)
MsgBox "Hello World " & KeyAscii
End Sub

' Запустите проект и щёлкните по UserControl'у.

Randomize [number] - Инициализирует генератор случайных чисел. Если этот оператор не поместить перед функцией Rnd, то при каждом запуске приложения будут генерироваться одни и те же случайные числа.

Пример:

Dim MyValue
Randomize ' Инициализирует генератор случайных чисел

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

ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .

Изменяет размер динамического массива. Замечание: Для этого оператора Option Base установлен в единицу!

Пример:

Dim MyArray() As Integer ' Объявляем динамический массив
Redim MyArray(5) ' Выделяем место для ПЯТИ элементов
For I = 1 To 5 ' Циклимся 5 раз
MyArray(I) = I ' Присваиваем значения компонентам массива
Next I

' Следующий оператор изменяет размер массива и очищает его

Redim MyArray(10) ' Теперь размер массива = 10
For I = 1 To 10 ' Циклимся 10 раз
MyArray(I) = I ' Присваиваем значения компонентам массива
Next I

' А этот оператор изменяет размер, но не очищает его

Redim Preserve MyArray(15) ' Теперь размер = 15

Rem comment - старый оператор для создания комментариев в тексте программы. Лучше использовать новый аналог - ' (апостроф).

Пример:

Dim MyStr1, MyStr2
MyStr1 = "Hello": Rem Здесь ваш комментарий
MyStr2 = "Goodbye" ' Это тоже комментарий, только без двоеточия

Reset - закрывает все файлы, открытые оператором Open.

Пример:

Dim FileNumber
For FileNumber = 1 To 5 ' Циклимся 5 раз
'Откроем файл для записи с номером FileNumber и к имени прибавим номер
Open "TEST" & FileNumber For Output As #FileNumber
Write #FileNumber, "Hello World" ' Записываем данные в файл
Next FileNumber
' Закрываем все открытые файлы и записываем их содержимое на диск
Reset

Resume [0]
Resume Next
Resume line

Возобновляет выполнение программы после обработки ошибки.

Пример:

Sub ResumeStatementDemo()
On Error GoTo ErrorHandler ' Включаем обработчик ошибок
Open "TESTFILE" For Output As #1 ' Открываем файл
Kill "TESTFILE" ' Пытаемся удалить открытый файл
Exit Sub ' Выходим из процедуры, чтобы обойти обработчик ошибки
ErrorHandler: ' Начало обработчика
Select Case Err.Number ' Проверяем номер ошибки
Case 55 ' Ошибка "Файл уже открыт"
Close #1 ' Закрываем открытый файл
Case Else
' Здесь обрабатываем другие ситуации...

End Select
Resume ' Продолжаем выполнение программы с той же строки,
' в которой произошла ошибка
End Sub

RmDir path - удаляет директорию с диска.

Пример:

RmDir "C:\Temp" ' Удаляет директорию Temp с корневого диска

RSet stringvar = string - Выравнивает строку по правой стороне при присваивании ей значения, меньшего по размеру, чем исходная строка. Вместо строк могут использоваться определённые пользователем типы.

Пример:

Dim MyString
MyString = "0123456789" ' Инициализируем строку
Rset MyString = "Right->" ' MyString содержит "     Right->"

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