VB.Net Tutorial/Class Module/Inherits

Материал из VB Эксперт
Перейти к: навигация, поиск

"Inherits" must be first line. There can be only one

Public Class Person
    Inherits System.Object
    Public Name As String
    Public Birthday As Date
End Class
Public Class Student
    Inherits Person 
    Public Sub New(ByVal StudentName As String, ByVal BirthDate As Date)
        MyBase.Name = StudentName
        MyBase.Birthday = BirthDate
    End Sub
    Public StudentID
    Public Overrides Function ToString() As String
        Return (Me.Name)
    End Function
End Class