VB NET第7章.pptVIP

面向对象的程序设计 7.1 面向对象的相关概念 7.2 定义类 7.3 对象 7.4 类的继承 7.5 Visual Basic 中的共享成员 7.6 事件 7.7 接口 7.1 面向对象的相关概念 7.2 定义类 7.3 对象 7.4 类的继承 7.5 Visual Basic 中的共享成员 7.6 事件 7.7 接口 第七章 7.4.6 继承和作用域 当通过继承创建一个子类时，新类就从父类中得到了所有的Public（公共）和Friend（友元）方法、属性和字段。当然也有一个例外，就是New方法。构造函数必须在每一个子类中重新编写。派生类的构造函数的第一行必须是对基类构造函数的调用，除非基类有一个可访问的无参数构造函数。 如果在父类中声明一个Private（私有）的方法、属性和字段，那么在新的子类中就不能得到基类的这个方法、属性和字段。 有时，Public和Private关键字并不能满足要求。比如在MerchandiseShelf中定义的数组coll字段，若用Private关键字修饰，则它不能被子类继承；若用Public关键字来修饰，虽然能满足被子类继承的要求，但是却使得该数组能被外部代码所访问。Protected关键字修饰的方法、属性和字段，任何类外部的代码将不能调用，但可以被它的子类继承。因此，这种情况下coll数组需要用Protected关键字进行修饰。 7.4.7 New 和 Finalize 方法在类层次结构中如何工作 当创建派生类的实例时，基类的Sub New构造函数首先执行，然后执行派生类中的构造函数。这是因为Sub New构造函数中的第一行代码使用 第七章 MyBase.New( ) 语句调用直接父类的构造函数，然后再调用间接父类的构造函数，直到到达基类的构造函数。此时，基类构造函数中的代码先执行，接着按照继承顺序执行所有派生类中每个构造函数的代码。析构函数的执行顺序正好与构造函数相反。 7.4.8 面向对象程序设计实例 例7-7：在拥有本章上述的3个类的情况下，例3-1的程序设计如下。 Private Shelf As Merchandiseshelf Private Cart As ShopingCart Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles MyBase.Load Shelf = New Merchandiseshelf(ListBox1.Items) Cart = New ShopingCart(ListBox2.Items) End Sub Private Sub ButAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles ButAdd.Click添加按钮单击事件过程，货物架向购物车添加1件商品 Shelf.DelCount(ListBox1.SelectedIndex) 购物架所选商品数量减1 第七章 Cart.Add(ListBox1.SelectedItem) 购物车商品数量加1 Shelf.RefreshListBox(ListBox1.Items) 刷新购物架 Cart.RefreshListBox(ListBox2.Items) 刷新购物车 TextBox2.Text = Cart.DblMerchandiseSumPrices() 计算购物车商品总价 TextBox3.Text = Val(TextBox1.Text) - Cart.DblMerchandiseSumPrices() 计算找零 End Sub Private Sub ButDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles ButDel.Click 退回按钮单击事件过程,购物车向货物架退回1件商品 Cart.DelCount(ListBox2.SelectedIndex) 购物车商品数量减1 Shelf.Add(ListBox2.SelectedItem) 购物车商品数量加1 Cart.RefreshListBox(ListBox2.Items) 刷新购物车 Shelf.Ref