지식저장소

Sub DisplayCjar(ByVal theChar As Cahr)
....

Sub DisplayInt(ByVal theInteger As Integer)
....

Overloads Sub Display(ByVal theChar As Char)
....

Overloads Sub Display(ByVal theInteger As Integer)
....

Class test1

Overridable Function testFunc(ByVal X as integer)
testFunction = X + 2
End function

End Class



Class test2

Inherits test1

Overridable Function testFunc(ByVal X as integer)
testFunction = X * 2
End function

End Class

Class Test1

Private itest as Integer

Sub New(iVal as integer)
MyBase.New
itest = iVal
End Sub

Sub Destruct()
'자원해제 코드
End Sub

....

End Class

Class Test
Public Shared Load As Integer

Private strDesc As String

Property descript() As String
Get
descript = strDesc
End Get
Set(ByVal Value As String)
strDesc = Value
End Set
End Property

End Class


Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
Dim x As Test = New Test
Dim y As Test = New Test

x.descript = "Idle"
x.Load = 80

Console.WriteLine("X.Descript = " & x.descript)
Console.WriteLine("X.Load = " & x.Load)

y.descript = "Active"
y.Load = 540

Console.WriteLine("Y.Descript = " & y.descript)
Console.WriteLine("Y.Load = " & y.Load)

Console.WriteLine("Then X.Descript = " & x.descript)
Console.WriteLine("Then X.Load = " & x.Load)

Console.WriteLine("Then Y.Descript = " & y.descript)
Console.WriteLine("Then Y.Load = " & y.Load)


End Sub

X.Descript = Idle
X.Load = 80
Y.Descript = Active
Y.Load = 540
Then X.Descript = Idle
Then X.Load = 540
Then Y.Descript = Active
Then Y.Load = 540