Ответ 1

Используйте оператор If() с двумя аргументами (документация Microsoft):

' Variable first is a nullable type.
Dim first? As Integer = 3
Dim second As Integer = 6

' Variable first <> Nothing, so its value, 3, is returned.
Console.WriteLine(If(first, second))

second = Nothing
' Variable first <> Nothing, so the value of first is returned again. 
Console.WriteLine(If(first, second))

first = Nothing second = 6
' Variable first = Nothing, so 6 is returned.
Console.WriteLine(If(first, second))

Ответ 2

Оператор IF() должен сделать трюк для вас:

value = If(nullable, defaultValueIfNull)

http://visualstudiomagazine.com/listings/list.aspx?id=252

Ответ 3

Принятый ответ не имеет никакого объяснения и просто является ссылкой.
Поэтому я думал, что оставлю ответ, объясняющий, как оператор If работает с MSDN:

Если оператор (Visual Basic)

Использует оценку короткого замыкания, чтобы условно вернуть один из двух значения. Оператор If может быть вызван тремя аргументами или двумя Аргументы.

If( [argument1,] argument2, argument3 )

Если оператор вызывается с двумя аргументами

Первый аргумент If может быть опущен. Это позволяет оператору вызывается с использованием только двух аргументов. Приведен следующий список только когда оператор If вызывается с двумя аргументами.

Детали

Term         Definition
----         ----------

argument2    Required. Object. Must be a reference or nullable type. 
             Evaluated and returned when it evaluates to anything 
             other than Nothing.

argument3    Required. Object.
             Evaluated and returned if argument2 evaluates to Nothing.

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

VB

' Variable first is a nullable type. 
Dim first? As Integer = 3
Dim second As Integer = 6

' Variable first <> Nothing, so its value, 3, is returned.
Console.WriteLine(If(first, second))

second = Nothing 
' Variable first <> Nothing, so the value of first is returned again.
Console.WriteLine(If(first, second))

first = Nothing
second = 6
' Variable first = Nothing, so 6 is returned.
Console.WriteLine(If(first, second))

Пример того, как обрабатывать более двух значений (вложенные If s):

Dim first? As Integer = Nothing
Dim second? As Integer = Nothing
Dim third? As Integer = 6
' The LAST parameter doesn't have to be nullable.
'Alternative: Dim third As Integer = 6

' Writes "6", because the first two values are "Nothing".
Console.WriteLine(If(first, If(second, third)))

Ответ 4

Вы можете использовать метод расширения. Это работает как SQL COALESCE и, вероятно, слишком велико для того, что вы пытаетесь протестировать, но оно работает.

    ''' <summary>
    ''' Returns the first non-null T based on a collection of the root object and the args.
    ''' </summary>
    ''' <param name="obj"></param>
    ''' <param name="args"></param>
    ''' <returns></returns>
    ''' <remarks>Usage
    ''' Dim val as String = "MyVal"
    ''' Dim result as String = val.Coalesce(String.Empty)
    ''' *** returns "MyVal"
    '''
    ''' val = Nothing
    ''' result = val.Coalesce(String.Empty, "MyVal", "YourVal")
    ''' *** returns String.Empty
    '''
    ''' </remarks>
    <System.Runtime.CompilerServices.Extension()> _
    Public Function Coalesce(Of T)(ByVal obj As T, ByVal ParamArray args() As T) As T

        If obj IsNot Nothing Then
            Return obj
        End If

        Dim arg As T
        For Each arg In args
            If arg IsNot Nothing Then
                Return arg
            End If
        Next

        Return Nothing

    End Function

Встроенный If(nullable, secondChoice) может обрабатывать только два варианта с нулевым значением. Здесь можно COALESCE указать столько параметров, сколько необходимо. Первый ненулевой будет возвращен, а остальные параметры не будут оценены после этого (закорочены коротко, например AndAlso/&& и OrElse/||)

Ответ 5

Единственным существенным ограничением большинства этих решений является то, что они не будут замыкаться. Поэтому они фактически не эквивалентны

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

Следующие утверждения эквивалентны.

С#

var value = expression1 ?? expression2 ?? expression3 ?? expression4;

VB

dim value = if(exression1,if(expression2,if(expression3,expression4)))

Это будет работать во всех случаях, когда "??" работает. Любые другие решения должны использоваться с особой осторожностью, поскольку они могут легко вводить ошибки времени выполнения.

Ответ 6

Ознакомьтесь с документацией Microsoft о том, есть ли здесь Operator (Visual Basic): https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/operators/if-operator

If( [argument1,] argument2, argument3 )

Вот несколько примеров (VB.Net)

' This statement prints TruePart, because the first argument is true.
Console.WriteLine(If(True, "TruePart", "FalsePart"))

' This statement prints FalsePart, because the first argument is false.
Console.WriteLine(If(False, "TruePart", "FalsePart"))

Dim number = 3
' With number set to 3, this statement prints Positive.
Console.WriteLine(If(number >= 0, "Positive", "Negative"))

number = -1
' With number set to -1, this statement prints Negative.
Console.WriteLine(If(number >= 0, "Positive", "Negative"))