String.Equals Method (Object)

' Sample for String.Equals(Object) 
'            String.Equals(String) 
'            String.Equals(String, String) 
Imports System
Imports System.Text

Class Sample
   Public Shared Sub Main()
      Dim sb As New StringBuilder("abcd")
      Dim str1 As [String] = "abcd" 
      Dim str2 As [String] = Nothing 
      Dim o2 As [Object] = Nothing

      Console.WriteLine()
      Console.WriteLine(" *  The value of String str1 is '{0}'.", str1)
      Console.WriteLine(" *  The value of StringBuilder sb is '{0}'.", sb.ToString())

      Console.WriteLine()
      Console.WriteLine("1a) String.Equals(Object). Object is a StringBuilder, not a String.")
      Console.WriteLine("    Is str1 equal to sb?: {0}", str1.Equals(sb))

      Console.WriteLine()
      Console.WriteLine("1b) String.Equals(Object). Object is a String.")
      str2 = sb.ToString()
      o2 = str2
      Console.WriteLine(" *  The value of Object o2 is '{0}'.", o2)
      Console.WriteLine("    Is str1 equal to o2?: {0}", str1.Equals(o2))

      Console.WriteLine()
      Console.WriteLine(" 2) String.Equals(String)")
      Console.WriteLine(" *  The value of String str2 is '{0}'.", str2)
      Console.WriteLine("    Is str1 equal to str2?: {0}", str1.Equals(str2))

      Console.WriteLine()
      Console.WriteLine(" 3) String.Equals(String, String)")
      Console.WriteLine("    Is str1 equal to str2?: {0}", [String].Equals(str1, str2))
   End Sub 'Main
End Class 'Sample
' 
'This example produces the following results: 
' 
' *  The value of String str1 is 'abcd'. 
' *  The value of StringBuilder sb is 'abcd'. 
' 
'1a) String.Equals(Object). Object is a StringBuilder, not a String. 
'    Is str1 equal to sb?: False 
' 
'1b) String.Equals(Object). Object is a String. 
' *  The value of Object o2 is 'abcd'. 
'    Is str1 equal to o2?: True 
' 
' 2) String.Equals(String) 
' *  The value of String str2 is 'abcd'. 
'    Is str1 equal to str2?: True 
' 
' 3) String.Equals(String, String) 
'    Is str1 equal to str2?: True 
'