مثال در مورد override

[adabyron]

سلام . من تعریف override رو میدونم و میدونم که چه مواقعی ازش استفاده میشه فقط اگه میشه لطف کنید یه مثال ساده در این مورد برام بزارین . میخوام بدونم روالی که قراره توی کلاس پدر باشه و در کلاس فرزند override بشه باید از نوع خاصی باشه یا اینکه مثل بقیه روالها تعریف میشه . ممنون میشم راهنماییم کنین .

[adabyron]

فقط یه کد ساده ؟؟

[ghafoori]

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim c1 As New class1
Dim c2 As New class2
c1.sub1()
c2.sub1()
End Sub
End Class

Public Class class1

Public Overridable Sub sub1()
MsgBox("class1")
End Sub

Public Overridable ReadOnly Property name() As String
Get
Return "class1"
End Get
End Property

End Class

Public Class class2
Inherits class1

Public Overrides Sub sub1()
MsgBox("class2")
End Sub

Public Overrides ReadOnly Property name() As String
Get
Return "class2"
End Get
End Property

End Class

[CodeMasterX]

Public Override Function ToString() As String
Dim Result As String
Result = "You have reached ToString overrided function: " & MyBase.ToString

Return Result
End Function