反轉在VB.NET

Question

枚舉我需要在VB.NET上枚舉一個NOT操作（.NET 2），這可能嗎？

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

由前爲了定義一個不操做

myObj1.Orientation = Not myObj2.Orientation 

規則：

Desceding > Ascending, 
Ascending > Desceding, 
Undefined > Undefined 

Answer 1

一般來說，你需要爲唯一的代碼了具體的方法，你知道每個枚舉值的倒數是什麼。

有可能是簡單枚舉更容易的方法，但如果有擺明值之間的複雜關係，是唯一的出路。

（你必須原諒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 2

還有就是要做到這一點，因爲所列舉的都是對整型整型和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 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