Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Reference Equality

Imports System Module Test   Sub Main()     Dim f as New Class1("A", 1)     Dim f2 as New Class1("A", 1)     Console.WriteLine(f2.Equals(f))        f = f2     Console.WriteLine(f2.Equals(f))      End Sub End Module Public Class Class1   Private Name as String   Private Value as Integer   Public Sub New(Name as String, Value as Integer)     Me.Name = Name     Me.Value = Value   End Sub   Public Overrides Function ToString() as String     Return(Name & " has the value " & Value)   End Function End Class False True