[VB.NET]OrElse文で条件を判定するサンプル

2021年10月4日

書式

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
If 条件式1 OrElse 条件式2 Then
処理コード1
Else
処理コード2
End If
If 条件式1 OrElse 条件式2 Then 処理コード1 Else 処理コード2 End If
If 条件式1 OrElse 条件式2 Then
 処理コード1
Else
 処理コード2
End If

OrElseの場合この時点でTrue確認なので、Trueの処理へ進みます。
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Sub Main()
Dim cftLst As New List(Of String)
cftLst.Add("A01")
cftLst.Add("B02")
'AndAlsoを使用
If cftLst.Count > 0 OrElse cftLst.Item(0) = "A03" Then
Console.WriteLine("result1:AA000")
Else
Console.WriteLine("result2:BB111")
End If
Console.ReadKey()
End Sub
End Module
Module Module1 Sub Main() Dim cftLst As New List(Of String) cftLst.Add("A01") cftLst.Add("B02") 'AndAlsoを使用 If cftLst.Count > 0 OrElse cftLst.Item(0) = "A03" Then Console.WriteLine("result1:AA000") Else Console.WriteLine("result2:BB111") End If Console.ReadKey() End Sub End Module
Module Module1

    Sub Main()

        Dim cftLst As New List(Of String)
        cftLst.Add("A01")
        cftLst.Add("B02")
        'AndAlsoを使用
        If cftLst.Count > 0 OrElse cftLst.Item(0) = "A03" Then
            Console.WriteLine("result1:AA000")
        Else
            Console.WriteLine("result2:BB111")
        End If

        Console.ReadKey()
    End Sub
End Module

実行結果
result1:AA000

VB.net

Posted by arkgame