VB.Net Tutorial/Class Module/Object

Assign string value to an Object variable

<source lang="vbnet">public class Test

  public Shared Sub Main
       Dim objMyModemSpeed As Object
       objMyModemSpeed = "28.8"
       Console.WriteLine(objMyModemSpeed)
       Console.WriteLine(objMyModemSpeed * 1000 / 8)
       objMyModemSpeed = Nothing

  End Sub

End class</source>

28.8
3600

Object lifetime

<source lang="vbnet">Imports System Imports Microsoft.VisualBasic Module MyModule

 Sub Main()
   Dim object1 As New MyClass1(1)
   object1. CheckDisposal ()
   object1.Dispose()
   object1.CheckDisposal()
   object1.Dispose()
   Dim object2 As New MyClass1(2)
 End Sub

End Module

Class MyClass1

 Implements IDisposable
 Private name As String
 Private disposed As Boolean
 Public Sub New(ByVal n As String)
   name = n
   disposed = False
   Console.WriteLine("Constructor for {0}", name)
 End Sub
 Public Sub CheckDisposal()
   If Not disposed
      Console.WriteLine("{0} still in use", name)
   End If
 End Sub
 Public Sub Dispose() Implements IDisposable.Dispose
   If Not disposed Then
     Console.WriteLine("Dispose for {0}" & vbCrLf, name)
     disposed = True
     GC.SuppressFinalize(Me)
   End If
 End Sub
 Protected Overrides Sub Finalize()
   Console.WriteLine("Destructor for {0}", name)
   Dispose()
 End Sub

End Class</source>

Constructor for 1
1 still in use
Dispose for 1
Constructor for 2
Destructor for 2
Dispose for 2

Reference Equality

<source lang="vbnet">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</source>

False
True