VB.Net/Language Basics/OrElse — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Версия 16:40, 26 мая 2010

Or and OrElse

Imports System
Imports System.Data
Imports System.Collections
public class MainClass
   Shared Sub Main()
        Dim testvar As New A()
        Console.WriteLine("Before IsTrue Or IsTrue")
        If testvar.IsTrue Or testvar.IsTrue Then
        End If
        Console.WriteLine("Before IsTrue OrElse IsTrue")
        If testvar.IsTrue OrElse testvar.IsTrue Then
        End If
   End Sub
End Class
    Class A
        Public ReadOnly Property IsTrue() As Boolean
            Get
                Console.WriteLine("IsTrue was called")
                Return True
            End Get
        End Property
        Public ReadOnly Property IsFalse() As Boolean
            Get
                Console.WriteLine("IsFalse was called")
                Return False
            End Get
        End Property
    End Class


Truth table for OrElse

Imports System
Public Class MainClass
    Shared Sub Main(ByVal args As String())
      " create truth table for OrElse
      Console.Write("OrElse" & vbCrLf & "False OrElse False: " & _
         (False OrElse False) & vbCrLf & "False OrElse True: " & _
         (False OrElse True) & vbCrLf & "True OrElse False: " & _
         (True OrElse False) & vbCrLf & "True OrElse True: " & _
         (True OrElse True) & vbCrLf & vbCrLf)

    End Sub
End Class