Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Compare Structure and Class

Imports System Public Class MainClass          Shared Sub Main(ByVal args As String())         Dim cperson1 As New ClassPerson         Dim cperson2 As ClassPerson         cperson1.FirstName = "A"         cperson2 = cperson1         cperson2.FirstName = "B"         Console.WriteLine(cperson1.FirstName & ", " & cperson2.FirstName)         Dim sperson1 As New StructurePerson         Dim sperson2 As StructurePerson         sperson1.FirstName = "A"         sperson2 = sperson1         sperson2.FirstName = "B"         Console.WriteLine(sperson1.FirstName & ", " & sperson2.FirstName)     End Sub End Class    Public Class ClassPerson     Public FirstName As String     Public LastName As String End Class Public Structure StructurePerson     Public FirstName As String     Public LastName As String End Structure