不能设置“值”的自定义的值类型

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."