vb System.Windows.Vector.Y类(方法)实例源码

' Checks if two Vectors are equal using the overloaded equality operator.
Private Function vectorEqualityExample() As Boolean

    ' Declaring vecto1 and initializing x,y values
    Dim vector1 As New Vector(20, 30)

    ' Declaring vector2 without initializing x,y values
    Dim vector2 As New Vector()

    ' Boolean to hold the result of the comparison
    Dim areEqual As Boolean

    ' assigning values to vector2
    vector2.X = 45
    vector2.Y = 70

    ' Comparing Vectors for equality
    ' areEqual is False
    areEqual = (vector1 = vector2)

    Return areEqual

End Function