VB.NET的新的面向对象能力

　　Option Strict On
　　Imports System.Windows.Forms
　　Public Class Employee
　　Protected Count As Int32 ' available to descendants but not public
　　Public Overridable Sub funct1 ()
　　Count += 1
　　MessageBox.Show ("Employee funct1: " & Count.ToString, "Employee.funct1", MessageBoxButtons.OK)
　　End Sub
　　Public Overridable Sub funct2()
　　Count += 1
　　MessageBox.Show ("Employee funct2: " & Count.ToString, "Employee.funct2", MessageBoxButtons.OK)
　　End Sub
　　End Class
　　Public Class Officer
　　Inherits Employee
　　Public Overrides Sub funct2 ()
　　Count += 1
　　MessageBox.Show ("Officer: " & Count.ToString, "Officer.funct2", MessageBoxButtons.OK)
　　End Sub
　　Public Sub special () 'The function only for Officer.
　　Count += 1
　　MessageBox.Show ("Officer's special: " & Count.ToString, "Officer.special", 　MessageBoxButtons.OK)
　End Sub
　　End Class
　　Module Module1
　　Sub Main()
　　Dim arun As officer
　　arun = New officer()
　　officer.funct2 ' will call the method defined in Officer
　　officer.funct1 ' will call the method defined in Employee
　　End Sub
　　End Module

　　防止继承:

　　我们创建的类默认的可以被作为基类使用。有时我想创建一个类，但是不能被继承。我们可以在类的声明时添加“NotInheritable”关键字：

　　Public NotInheritable Class arungg
　　……
　　End Class 　

　　当使用这个类时，没有别的代码可以使用Inherits关键字创建一个我们类的子类。　

　　结论：

　　在VB.NET中，VB语言终于完整的转变为彻底的OO语言。我们现在有完整的inheritance，以及其他的特性。VB.NET不止是提供给我们完整的面向对象的特性，也改变我们以往使用VB6的一些方法。

查看本文来源