VB.NET之旅(五)—类的继承

前端之家收集整理的这篇文章主要介绍了VB.NET之旅(五)—类的继承前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
“类的继承?”大李点点头,“以前很多人批评VB的功能不完善时,都会加上这个条件。但是现在VB.NET中已经是比较完善的面向对象编程方法了。刚才我们也提到过,类与 VB.NET 的结构类似,让我们可以定义封装一组相关项的数据类型。然而与结构的一个重要区别就是,VB.NET 类可以继承和扩展其他类的特性。作为新类的基础的类称为‘基类’。从基类派生的类称为‘派生类’。派生类继承基类中定义的所有字段、属性方法和事件。你看,我们只要对类进行一次开发和调试,就可以将其作为其他类的基础重复使用。”

  “类的继承的概念我学过的,在VB.NET中是如何来实际演练呢?”我还是坚持着问。

  “我写段代码给你看一下吧,俗话不是说,百闻不如一见吗?”大李调侃了两句,噼噼啪啪地开始敲打起键盘来:

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public   Class  CBaseHenry 
 
   Private  x  As   Integer  = 10 
 
   Protected  y  As   Integer  
 
   Sub   New () 
 
    Console.WriteLine( "基类的构造" ) 
 
   End   Sub  
 
   Protected   Overrides   Sub  Finalize() 
 
    Console.WriteLine( "基类的析构" ) 
 
    MyBase .Finalize() 
 
   End   Sub  
 
Public   Overridable   Function  GetY( ByVal  x  As   Integer )  As   Integer  
 
   Me .y = me.x + x ‘private类型的me.x只能在基类中使用 
 
    Console.WriteLine( "基类的GetY方法,结果为:"  &  Me .y) 
 
     Return   Me .y 
 
   End   Function  
 
   Public   Sub  OldY() 
 
    Console.WriteLine( "基类的OldY方法" ) 
 
End   Sub  
 
End   Class  

  “你看,这是一个基类,我再给你写个继承自该类的派生类。”他一边说一边继续写:

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public   Class  CDerivedHenry 
 
   Inherits  CBaseHenry 
 
   Sub   New () 
 
     MyBase . New () ‘注意:这句话要放在sub内的第一句 
 
    Console.WriteLine( "派生类的构造" ) 
 
   End   Sub  
 
   Protected   Overrides   Sub  Finalize() 
 
    Console.WriteLine( "派生类的析构" ) 
 
     MyBase .Finalize() 
 
   End   Sub  
 
   Public   Overrides   Function  GetY( ByVal  x  As   Integer )  As   Integer  
 
     Me .y = x * 10 ‘protected类型的me.y却可以在派生类中使用 
 
    Console.WriteLine( "派生类的GetY方法,结果为:"  &  Me .y) 
 
     Return   Me .y 
 
   End   Function  
 
   Public   Sub  NewY() 
 
    Console.WriteLine( "派生类的新方法" ) 
 
   End   Sub  
 
End   Class  

  “你看清了吧,我们通过声明Inherits关键字,来标识该类的基类是谁,如果没有标识的类,比如CBaseHenry,VB.Net就会视其为派生自Object基类,这是种隐式继承,和结构是隐式继承自ValueType 类的方式是一样的。”大李指着屏幕跟我解说着。

  “那这些overrides与overload标识是什么意思呀?”我隐隐感觉到它们的意义,却没法清楚地说出来。

  “我们使用继承,也要允许派生类中的某些属性方法有与基类不同的行为,我们想‘重写’它,但基类也得要同意你才能重写呀,否则不就会发生命名冲突了吗?因为派生类的对象是可以使用基类的公用成员的,那怎么知道哪些基类的方法属性是被派生类重写了呢?所以就必须有一个约定:我们在基类中用Overridable修饰符来标识允许基类中的属性方法在其派生类中被重写,没有标识的其实就是默认为有NotOverridable修饰符来隐式地标识,用于提醒编译器该属性方法不可被重写;然后在派生类重写时,我们就用Overrides修饰符来标识哪些是重写自基类中定义的 Overridable 属性方法。”大李娓娓道来,“我们来演练一下对派生类的操作吧。”

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
Public   Sub  Main() 
 
   Dim  obj  As  CDerivedHenry =  New  CDerivedHenry() 
 
  obj.GetY(4)   '调用派生类的GetY方法 
 
  obj.OldY()    '调用基类的oldY方法 
 
  obj.NewY()    '调用派生类的NewY方法 
 
End   Sub  

  然后大李按了一下F5键,在“输出”窗口中就出现了如下的运行结果:

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
  基类的构造          ‘开始运行 New  CDerivedHenry() 
 
  派生类的构造 
 
  派生类的GetY方法,结果为:40  ‘obj.GetY(4)的运行结果=4*10,不等于基类的(4+10) 
 
  基类的OldY方法        ‘obj.OldY()的运行结果 
 
  派生类的新方法        ‘obj.NewY()的运行结果 
 
  派生类的析构 
 
  基类的析构 

  “你看,你只在Main中实例化了一个派生类的对象,为什么先会出现‘基类的构造’?”大李问。

  “这个么,”我开始在代码中查看起来,“是这句了。”我手指着派生类里的这段代码

双击代码全选
1
2
3
4
5
6
7
Sub   New () 
 
     MyBase . New () ‘注意:这句话要放在sub内的第一句 
 
    Console.WriteLine( "派生类的构造" ) 
 
End   Sub  

  “没错,我们必须要注意这一点,就是派生类的构造函数与析构函数都必须重新编写。New 构造函数一般用于打开文件、连接到数据库、初始化变量以及处理任何需要在可使用对象前完成的其他任务。我们必须在Sub New 构造函数中的第一行代码使用语句 MyBase.New(),来调用类层次结构中该类的基类的构造函数,以获得基类的性质。析构则是在Sub Finalize中执行完对派生类的的清理任务,如保存状态信息、关闭文件和与数据库的连接,以及执行在释放对象前必须完成的其他任务之后,在析构函数的最后一句使用语句 MyBase.Finalize() 显式调用其基类的 Sub Finalize 方法,以析构MyBase.New()构造的内容。所以你从程序运行结果中也可以很清楚的看出这一顺序。”大李敲击着屏幕,象是给我提个醒。

  “明白了,我会记着的。”我诚恳地点头回应着。

  大李突然想起了什么,抬头对我说:“讲到类的继承,我们还得看一下重载与隐藏的问题。”

原文链接:https://www.f2er.com/vb/260751.html

猜你在找的VB相关文章