РАССЫЛКА САЙТА WWW.IGORYKSOFT.NAROD.RU

ВЫПУСК 6

     Всем привет!

Сегодня в выпуске:

• Обновления на сайте;

• Несколько малоизвестных функций в VB 6.0

• Как передать функции неопределенное количество данных?

• Вопрос-Ответ.

Обновления на сайте:

    Добавлены скриншоты на программы сайта.

Несколько малоизвестных функций в VB 6.0

1. Функция IIf(Expr, truepart, falsepart)

    где Expr - логическое выражение (например, Value<>1);

    truepart - возвращаемое значение если Expr=True;

    falsepart - возвращаемое значение если Expr=False.

    Эта функция возвращает одно из двух значений (truepart  или falsepart) в зависимости от истинности expr.

   Примеры:

   1. Следующий пример возвратит значение "Число равно 10":

  Value = 10
  MsgBox IIf(Value = 10, "Число равно 10", "Число не равно 10")
   2. А следующий пример возвратит значение "Число не равно 10"

  Value = 5
  MsgBox IIf(Value = 10, "Число равно 10", "Число не равно 10")
   Но следует учитывать, что эта функция проверяет на истинность и truepart, и falsepart, т.е. если выражение истинно, а falsepart = , например, 15\0, то будет выдано сообщение об ошибке.

2. Функция Join(SourceArray,[Delemeter])

   где SourceArray - исходный массив;

   Delemeter - символ между данными массива, если не указан, то замещается " ".

   Эта функция служит для перемещения в одну строковую переменную всех значений массива.

   Примеры:

   1. Следующий пример возвратит "0 1 2 3 4":

     ReDim A(0 To 5) As String
   For i = 0 To 4
   A(i) = i
   Next
   MsgBox Join(A)
   2. Следующий пример возвратит "01234":

     ReDim A(0 To 5) As String
   For i = 0 To 4
   A(i) = i
   Next
   MsgBox Join(A, "")

   3. Следующий пример возвратит "0-1-2-3-4-":

     ReDim A(0 To 5) As String
   For i = 0 To 4
   A(i) = i
   Next
   MsgBox Join(A, "-")

Как передать функции неопределенное количество данных?

    Иногда требуется передать в функцию несколько значений, для этого используется следующий код. Все параметры будут переданы в массив A

Private Function Func1(ParamArray A() As Variant)
MsgBox "Общее количество аргументов " & UBound(A) + 1

'К верхней границе массива нужно прибавить 1, т.к. нижняя граница - 0,

'следовательно и первый аргумент будет с индексом 0.
MsgBox Join(A, " ") 'передаем весь массив в строку
End Function

Private Sub Form_Load()
Func1 "IgorykSoft", "VB", "сайт"
End Sub

    При данных значениях, функция возвратит Количество аргументов=3, Аргументы = "IgorykSoft VB сайт"

Вопрос-Ответ

    Как всегда жду... igoryksoft@yandex.ru 

    На этом все.

Пишите на почту: igoryksoft@yandex.ru. Заходите на сайт: www.igoryksoft.narod.ru

При копировании представленных здесь материалов, обязательно делать ссылку на www.igoryksoft.narod.ru!