不能設置「值」的自定義的值類型

Question

我創建了一個自定義的值類型：

Private Structure MyValueType 
    Private _integerValue As Integer 

    Public Sub New(initValue As Integer) 
     _integerValue = initValue 
    End Sub 

    Public Overrides Function ToString() As String 
     Return _integerValue.ToString 
    End Function 
End Structure 

但我不能工作了我如何測試值，如本：

Dim v As New MyValueType(3) 
    Dim x As New MyValueType(4) 

    If v = x Then 'fails compile 
     MessageBox.Show("The values are the same") 
    End If 

錯誤：

Operator '=' is not defined for Types MyValueType and MyValueType 

那麼，如何定義我的值類型（我知道這一定是簡單的，但我找不到任何地方
的一個實例！）操作符？

注意我不想考沿着以下（你需要重載=和<>運營商都）線If v.Equals(x)

Answer 1

東西：

Sub Main 
    Dim v As New MyValueType(3) 
    Dim x As New MyValueType(4) 

    If v <> x Then 'fails compile 
     Console.WriteLine("The values are not the same") 
    End If  
End Sub 

---

Private Structure MyValueType 
    Private _integerValue As Integer 

    Public Sub New(initValue As Integer) 
     _integerValue = initValue 
    End Sub 

    Public Overrides Function ToString() As String 
     Return _integerValue.ToString 
    End Function 

    Public Shared Operator =(
     ByVal left as MyValueType, 
     ByVal right as MyValueType) As Boolean 

     If left.ToString() = right.ToString() 
      Return True 
     End If 

     Return False 
    End Operator 

    Public Shared Operator <>(
     ByVal left as MyValueType, 
     ByVal right as MyValueType) As Boolean   

     Return Not (left = right) 
    End Operator  
End Structure 

Note: You'll probably want to implement IEquatable(Of MyValueType) as you'll gain some benefits from doing this and would be considered a "best practice."