vb.net - visual - operador andalso

Y también/OrElse en VBA

Question

Estoy tratando de obtener una evaluación perezosa con ''Y'' en mi macro de Excel haciendo lo siguiente:

If Not myObject Is Nothing *And* myObject.test() Then
    ''do something''
Else
    ''do something else''
End If

Sé que existe una evaluación AndAlso en VB.NET como AndAlso y OrElse pero no puedo encontrar nada similar en VBA. Si no existe evaluación diferida en VBA, ¿cuál es la mejor manera de estructurar el código para que se evalúe de la manera que espero?

Answer 1

Dado que la siguiente sintaxis funciona

If myObject.test() Then do something

Tu podrías intentar

If Not myObject Is Nothing Then If myObject.test() Then
    ''do something''
Else
    ''do something else''
End If

Por supuesto, si quiere ''hacer otra cosa'' si myObject Is Nothing, entonces esto puede no funcionar.

Answer 2

El único cortocircuito (de un tipo) está dentro de Case evaluación de la expresión de Case , por lo que la siguiente afirmación desgarbada hace lo que creo que estás preguntando;

Select Case True
    Case (myObject Is Nothing), Not myObject.test()
        MsgBox "no instance or test == false"
    Case Else
        MsgBox "got instance & test == true"
    End Select
End Sub

Answer 3

Esta es una vieja pregunta, pero este problema todavía está vivo y bien. Una solución que he usado:

Dim success As Boolean       '' False by default.

If myObj Is Nothing Then     '' Object is nothing, success = False already, do nothing.
ElseIf Not myObj.test() Then '' Test failed, success = False already, do nothing.
Else: success = True         '' Object is not nothing and test passed.
End If

If success Then
    '' Do stuff...
Else
    '' Do other stuff...
End If

Esto básicamente invierte la lógica en la pregunta original, pero obtienes el mismo resultado. Creo que es una solución más limpia que las otras aquí que solo usan sentencias If . La solución que utiliza una instrucción Select es inteligente, pero si desea una alternativa que solo use sentencias If , creo que esta es la que debe usar.

Answer 4

O puede crear una función que tome su objeto como parámetro y devuelva booleano para cualquier caso. A eso es a lo que suelo acostumbrarme.

es decir

if Proceed(objMyAwesomeObject) then
       ''do some really neat stuff here
else
       ''do something else, eh
end if
...
end sub

private function Proceed(objMyAwesomeObject as Object)
     if not objMyAweseomeObject is nothing then
            Proceed = true
     elseif objMyAwesomeObject.SomeProperty = SomeValue then
            Proceed = true
     else
            Proceed = false
     endif
end function

Answer 5

If Not myObject Is Nothing Then
    If myObject.test() Then
        ''do something''
    End If
Else
   ''do something else''
End If

Creo que esa es la forma en que debes hacerlo.

Editar

Quizás así

Dim bTestsFailed as Boolean
bTestsFailed = False

If Not myObject Is Nothing Then
    If myObject.test() Then
        ''do something''
    Else
        bTestsFailed = True
    End If
Else
   bTestsFailed = True
End If

If bTestsFailed Then
    ''do something else
End If

¿No es genial VBA?