IsMissing

[drronnie]

Господа, как проверить были ли переданы в функцию аргументы ByRef? Например ситуация: в функцию передаются два из трёх параметров (x, y, z). В зависимости от переданных параметров функция определяет третий и пишет его в аргумент....
IsMissing работает только с Variant
Шо робить?

[tyomitch]

Проверить, был ли передан параметр, возможно только для типа Variant.

[Ruslan Demidow]

Проверить, был ли передан параметр, возможно только для типа Variant.

Жаль. А то у меня в редакторе есть одна процедура с одним обязательным параметром и тремя опцональными. И я долго думал почему же при опускании опциональных параметров проверка IsMissing всё равно даёт результат False и параметр воспринимается как полученный.
Т.е. с опциональными параметрами других типов (кроме Variant) IsMissing не пойдёт. Так?

Как тогда поступать? Ведь работа с Variant не всегда удобна (тем более в скорости).

[Andrey Fedorov]

Т.е. с опциональными параметрами других типов (кроме Variant) IsMissing не пойдёт. Так?

Так, но можно значением по умолчанию для параметра задать то число, которое этот параметр в реале не может получить, например, для hWnd это 0. И обрабатывать это дело...

Как тогда поступать? Ведь работа с Variant не всегда удобна (тем более в скорости).

Ну если ты вызываешь свою функцию миллион раз в цикле, то разницу в скорости заметишь. А вообще - см выше или передавай параметр...

[alibek]

Для строк можно указывать Optional ByRef Arg1 As String = vbNullChar и сравнивать его с нулл-символом. Для чисел -- использовать 0 или -1, в зависимости от условий работы. Т.е. как сказал Andrey Fedorov.

[Ruslan Demidow]

Andrey Fedorov, alibek - а если булево?
Например процедура (чисто теоретическая)

Код: Выделить всё


Sub CreateMessage(ByVal sText, Optional blnNew as Boolean, _
            Optional blnCrossPost as Boolean, Optional Forward as Boolean)
   If IsMissing(blnNew) then
      If Not IsMissing(blnCrossPost)
         '... Делаем действия при кросспосте сообщения
      End If
      If Not IsMissing(blnForward)
         '... Делаем действия при форварде сообщения
      End If
   Else
      '... Делаем действия при сохранении отредактированного сообщения
   End If
End sub


Задавать по умолчанию явно не присущие булеву значения?

[uhm]

Ну, во-первых, не совсем правильно для ситуации, когда нужно делать выбор из трех альтернатив, использовать Boolean-переменную. Во-вторых, в данном случае явно ничего не изменится, если ты этот параметр объявишь как Variant.

[Ruslan Demidow]

uhm, ясно.
Просто я хотел обойтись без кучи вложенных условий (у себя в проекте) только одной проверкой на наличие или отсутсвие переданного параметра.
Видимо не судьба. Буду переделывать..

[Andrey Fedorov]

Andrey Fedorov, alibek - а если булево?

Значит сделай его Integer.

[Ruslan Demidow]

Andrey Fedorov, alibek - а если булево?

Значит сделай его Integer.

Ок. Попробую. Спасибо.

[drronnie]

Ага а можно ещё сделать булевские неопциональные аргументы соответственно для каждого опционального, и в них писать ИСТИНА, если мы передали аргумент, а ЛОЖЬ если не передали

Код: Выделить всё

Private Function ExampleFunction (ByVal blnFirstArgument as Boolean, ByVal blnSecondArgument as Boolean, ByVal blnThirdArgument as Boolean, Optional ByVal intFirstArgument as Integer, Optional ByVal intSecondArgument as Integer, Optional ByVal intThirdArgument as Integer)
End if


А такой вопрос.... можно в VB объявить функцию с произвольным количеством аргументов? Не передавать ей массив, а именно с произвольным количеством аргументов?

[tyomitch]

Ищи в хелпе ParamArray