|
||||||||||||||||||||||
|
||||||||||||||||||||||
|
|||||
| VB.NET的新的面向对象能力 | |||||
| 作者:佚名 教程来源:不详 点击数: 更新时间:2008-6-8 | |||||
|
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的一些方法。 |
|||||
|
|||||
| 教程录入:admin 责任编辑:admin | |||||
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 | |||||
| 最新热点 | 最新推荐 | 相关教程 | ||
| VB.Net查找程序的前一个运行 VB.NET中访问数据方法大全 VB.net 编码规范(也适用于C VB.NET 的新特点:变量,类型 VB.NET:给Visual Basic带来 Visual Basic .NET中的语言创 完整的VB.NET的语法解析程序 创新中的VB.NET 将你的Visual Basic 6.0移植 用VB.NET打造NameSpace |
网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!) |