重载“And”的示例是什么？ VB.NET 中的运算符？

Question

因此，对于查找“And”或“Or”等重载运算符的示例，Google 并不是一个好的选择，因为它会尝试将它们解析为搜索查询本身的运算符。 MSDN 也没有提供如何实现重载 And 运算符的示例，因此我不确定如何为我的项目正确重载它。

有人至少有一个“和”的例子吗？ “或”或“异或”（或任何其他）将是一个奖励。我不确定是否需要在我的对象中重载这些运算符，因为我仍在构建它们并且还没有计划。但是，拥有可能被谷歌索引的例子可能会帮助很多人保持理智......

Answer 1

以与重载一元或算术运算符相同的方式重载逻辑运算符。

我实际上无法想到目前这会很有用的情况，但为了举例，下面是一个覆盖 And 和 Or 运算符的示例结构：

Public Structure Foo

    Public Shared Operator And(ByVal val1 as Foo, ByVal val2 as Foo) As Foo
        ''#(calculate the logical And of the two specified values here)
        Return New Foo(val1.Bar And val2.Bar, val1.Baz And val2.Baz)
    End Operator

    Public Shared Operator Or(ByVal val1 as Foo, ByVal val2 as Foo) As Foo
        ''#(calculate the logical Or of the two specified values here)
        Return New Foo(val1.Bar Or val2.Bar, val1.Baz Or val2.Baz)
    End Operator

End Structure

此 MSDN 页面 给出了一些其他示例和进一步的解释。

Answer 2

这里是 MSDN 上的一篇文章，解释运算符重载在 VB.NET 2005 中，这应该仍然与 2010 相关。

文章中的 Add 示例（使用文章中定义的 ComplexNumber 类）：

Public Shared Operator +(cn1 As ComplexNumber, _
            cn2 As ComplexNumber) As ComplexNumber

   Dim Result As New ComplexNumber( _
                        cn1.Real() + cn2.Real(), _
                       cn1.Imaginary() + cn2.Imaginary())

   Return Result

End Operator