在 VB.NET 中反转枚举

Question

我需要在 VB.NET (.NET 2) 中对枚举进行 NOT 操作，这可能吗？

  <DefaultValue(0)> _
  Public Enum Orientation
    Descending = -1
    Undefined = 0
    Ascending = 1
  End Enum

通过 ex 定义一个 Not 操作来执行

myObj1.Orientation = Not myObj2.Orientation

规则：

Desceding > Ascending, 
Ascending > Desceding, 
Undefined > Undefined

Answer 1

没有通用的方法可以做到这一点，因为枚举是整型，而整型上的 Not 会执行按位运算，这不是您想要的。但是，在您的情况下，您可以简单地编写一个反转方向的方法：

Module OrientationExtensions

    <Extension()>
    Public Function Invert(ByVal orientation As Orientation) As Orientation
        Return -1 * orientation
    End Function

End Module

用法：

Dim orientation As Orientation
orientation = Module1.Orientation.Ascending
orientation = orientation.Invert()

Answer 2

一般来说，您需要编写特定的方法，因为只有您知道每个枚举值的倒数是什么。

对于简单的枚举可能有更简单的方法，但如果值之间存在复杂的关系，则将其明确化是唯一的方法。

（您必须原谅 C# 风格的伪代码。）

public Orientation invert(Orientation original)
{
    Orientation result;
    switch (original)
    {
        case Orientation.Descending:
            result = Orientation.Ascending;
            break;
        case Orientation.Ascending:
            result = Orientation.Descending;
            break;
        default:
            result = original;
            break;
    }
    return result;
}

Answer 3

您可以创建一个扩展方法：

Imports System.Runtime.CompilerServices

Module OrientationExtensions

  <Extension()>
  Public Function Invert(ByVal orientation As Orientation) As Orientation
    If orientation = Orientation.Ascending Then
      Return Orientation.Descending
    ElseIf orientation = Orientation.Descending Then
      Return Orientation.Ascending
    Else
      Return Orientation.Undefined
    End If
  End Function

End Module

然后您可以像这样使用它：

Dim orientation As Orientation = Orientation.Ascending
Dim inverseOrientation As Orientation = orientation.Invert