VB.Net中文教程(9) 重新定义(Overriding)程序

Private student_number As Integer
Public Sub New(ByVal na As String, ByVal a As Integer, ByVal no As Integer)
MyBase.New(na, a)
student_number = no
End Sub
Public Overrides Sub Display()
MyBase.Display()
Messagebox.Show("StudNo: " str(student_number))
End Sub
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
End Sub
''''Form overrides dispose to clean up the component list.
Public Overrides Sub Dispose()
MyBase.Dispose()
components.Dispose()
End Sub
#Region " Windows Form Designer generated code "
.......
#End Region
Protected Sub Form1_Click( ByVal sender As Object, ByVal
e As System.EventArgs)
Dim x As New Teacher("Linda", 33, 50500)
Dim y As New Student("Tom", 36, 11138)
x.Display()
y.Display()
End Sub
End Class

此程序输出：
Name: Linda Age: 33
Salary: 50500
Name: Tom Age: 36
StudNo: 11138

Person的Display()不能显示出Teacher的salary资料，所以Teacher必须「修正」Person原有的Display()程序。同样地，Student类别也「修正」Person原有的Display()程序。n

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!