Пятница, 17.05.2024, 10:21
Всего понемногу...
Меню сайта
Категории
Функции [9]
Операторы [9]
Разное [10]
Переменные [1]
Числа [1]
Строки [2]
Трюки [0]
Примеры [0]
Поиск
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Ваши данные:
 
Главная » Статьи » Visual Basic » Операторы

Операторы VB5 (F...G)

---F---


FileCopy source, destination - копирует файл source в файл destination.

FileCopy "C:\Windows\Win.ini", "C:\Backups\Win.bak"

For Each...Next

Эта специфическая форма цикла For предназначена для выполнения некоторой операции с каждым объектом, входящим в состав некоторой коллекции объектов (такой операцией, например, может быть вызов метода или присваивание значения свойству). Синтаксис оператора:

For Each ИмяОбъекта In ИмяКоллекции
Операции над объектами
Next ИмяОбъекта

В этом примере показано, как изменить свойство BackColor у всех этикеток (Label), лежащих на форме

Dim x As Object
For Each x In Me.Controls
If TypeName(x) = "Label" Then
x.BackColor = 0
End If
Next
x

For...Next

Этот оператор цикла используют в том случае, когда заранее известно стартовое и конечное значение счётчика. Синтаксис выглядит следующим образом:

For Счётчик_цикла = Старт To Стоп Step Шаг
Группа операторов
Next [Счётчик_цикла]

Роль счётчика цикла может играть только ранее объявленная переменная целочисленного типа. Шаг задаёт приращение счётчика цикла при каждом проходе. Умолчательно значение шага равно 1. После слова Next счётчик можно опустить.

В этом примере всем элементам массива iArray присваивается значение 5.

Dim c As Integer
Dim iArray(10) As Integer
For c = 0 To 10
iArray(c) = 5
Next c

Function

[Public | Private | Friend] [Static] Function name [(arglist)] [As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function

Этот оператор объявляет функцию с именем name и параметрами arglist.

Function CalculateSquareRoot(NumberArg As Double) As Double
If NumberArg < 0 Then ' проверяем аргумент
Exit Function ' Выходим из функции (возвращаясь на то место,
' откуда она была вызвана)

Else
CalculateSquareRoot = Sqr(NumberArg)
' Возвращает квадратный корень аргумента

End If
End Function

---G---


Get [#]filenumber, [recnumber], varname - Читает данные из открытого файла с номером filenumber в переменную varname. recnumber - задаёт позицию начала чтения.

' Тип, определяемый пользователем (должен находится в модуле).
Type Record
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record, Position ' Объявляем переменные
' Открываем файл с произвольным доступом (Random)
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Position = 3 ' Устанавливаем позицию начала чтения
Get #1, Position, MyRecord ' Читаем одну запись
Close #1 ' Закрываем файл


GoSub line
...
line
...
Return

Это устаревший оператор перехода в псевдо-подпрограмму с возвращением по Return.
Я категорически НЕ рекомендую его использовать! Это избавит вас от ошибок и плохой читабельности кода. Вполне можно обойтись стандартной процедурой.


GoTo line - оператор для перехода на определённую метку. Пользуйтесь им только в крайних случаях.

Dim a, b As Integer
b = 5
a = 1
If a = 1 Then GoTo METKA
b = 10 ' Этот участок никогда не выполнится
METKA:
Debug.Print b ' Выведет цифру 5
Категория: Операторы | Добавил: adelay (26.04.2013) | Автор: Funbit
Просмотров: 1102 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
ADelay © 2024
Конструктор сайтов - uCoz