VB.Net中文教程(4) 类别继承(Inheritance)关系

Public Class Person

Private name As String

Private age As Integer

Public Sub SetValue(ByVal na As String, ByVal a As Integer)

name = na

age = a

End Sub

Public Function birthYear() As Integer

birthYear = 2001 - age

End Function

Public Sub Display()

Messagebox.Show("Name: " + name + " Age: " + str(age))

End Sub

End Class

Public Class Teacher

Inherits Person

End Class

@#-----------------------------------------------------------------------------------------

Public Class Form1

Inherits System.WinForms.Form

Public Sub New()

MyBase.New()

Form1 = Me

@#This call is required by the Win Form Designer.

InitializeComponent()

@#TODO: Add any initialization after the InitializeComponent() call