【正文】 t Person Customer Employee Programmer Manager 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 21 ?抽象類舉例 MustInherit Class Person Public Name As String Public Address As String Public City As String Public State As String Public ZIP As String Sub Print() (Name) (Address) (City amp。 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 17 Class Customer Public Name As String Public Address As String Public City As String Public State As String Public ZIP As String Public CustomerID As Integer End Class Class Employee Public Name As String Public Address As String Public City As String Public State As String Public ZIP As String Public Salary As Integer End Class Class Person Public Name As String Public Address As String Public City As String Public State As String Public ZIP As String End Class 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 18 Class Customer Inherits Person Public CustomerID As Integer End Class Class Employee Inherits Person Public Salary As Integer End Class 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 19 ? Object在繼承結構的最端。換句話說， MyBase提供對當前類中已經重寫的基類方法的訪問。 – NotInheritable：不允許類用作基類。只可以訪問當前程序和同一個程序集中的其它任何地方。換句話，就是停止繼承過程。 – 私有繼承：用 Private關鍵字修飾。 – 受保護繼承：用 Protected關鍵字修飾。 第四章 Visual 面向對象技術 14 ? 繼承的種類： – 公有繼承：用 Public關鍵字修飾。 屬性和方法 第四章 Visual 面向對象技術 13 封裝、繼承、多態(tài) ? 封裝：就是使其代碼和數(shù)據(jù)變?yōu)閮炔康?，使他們不再供外部對象訪問，除非通過定義良好的接口訪問，也被稱做數(shù)據(jù)隱藏。 ?向 Sub類添加過程或函數(shù)就向類添加了一個新方法。 – 因為屬性可以有返回值，也可以賦值，創(chuàng)建屬性的關鍵就在于如何實現(xiàn)返回屬性值和給屬性賦值，所以分別使用 Get語句和 Set語句實現(xiàn)。 ?與聲明簡單變量不同，需要添加 New關鍵字才能創(chuàng)建新對象。 第四章 Visual 面向對象技術 5 ?類的性質 – 抽象性 – 封裝性 – 繼承性 – 多態(tài)性 類和對象 第四章 Visual 面向對象技術 6 ? 如何創(chuàng)建類？ – 使用 Class語句。 – 它們都有自己的狀態(tài)，如球有自己的質地、顏色和大。 ? 對象是客觀世界中的事物或人們頭腦中的各種概念在計算機程序中的抽象表示，或者說，是現(xiàn)實世界中個體的數(shù)據(jù)抽象模型，是面向對象程序設計的基本元素。Visual (下 ) 東北大學軟件學院 第四章 Visual 面向對象技術 東北大學軟件學院 第四章 Visual 面向對象技術 3 類和對象 屬性和方法 封裝、繼承、多態(tài) 接口 主要內容 第四章 Visual 面向對象技術 4 類和對象 ? 類就是對具有相同數(shù)據(jù)和相同操作的一組相似對象的定義，也即是對具有相同屬性和行為的一組相似對象的抽象。類是用來創(chuàng)建對象的模板，它包含所創(chuàng)建對象的狀態(tài)描述和方法定義，而對象只是類的一個實例。每個對象都有三個共同的特點： – 它們都有自己的名字，以區(qū)別其他對象。 – 它們都有自己的行為，如球可以滾動、停止或旋轉。 [Public | Private | Protected | Friend | Protected Friend _ | Shadows] [MustInherit | NotInheritable] Class 類名 [Inherits基類名 ] [Implements 接口名 ] [語句 ] End Class 類和對象 第四章 Visual 面向對象技術 7 例：聲明只含有公有變量的類 Customer Public Class Customer Public Name As String Public Address As String Public PhoneNumber As String End Class 類和對象 第四章 Visual 面向對象技術 8 ? 在哪創(chuàng)建類呢？ – 放在窗體或模塊文件中 – 放在項目內的單獨文件中 – 放在單獨的項目中 類和對象 第四章 Visual 面向對象技術 9 ?創(chuàng)建對象也稱為實例化對象。 Dim 對象名 As New 類名 Dim 對象名 As 類名 =New 類名 Dim x As New Customer Dim x As Customer=New Customer 類和對象 第四章 Visual 面向對象技術 10 屬性和方法 ? 如何創(chuàng)建屬性？ – 使用 Property語句創(chuàng)建屬性。 [Default] [Public | Private | Protected | Friend _ | Protected Friend] [ReadOnly | WriteOnly] _ Property 屬 性名 ([ByVal 參數(shù) 列表 ]) [As 類 型 ] Get [語 句 塊 ] End Get Set(ByVal Value As 類 型 ) [語 句 塊 ] End Set End Class 第四章 Visual 面向對象技術 11 ? 屬性舉例 Public Class Order Private mCost As Double Public mQuantity As Integer Public Property Cost() As Double Get Return mCost End Get Set(ByVal Value As Double) mCost = Value End Set End Property End Class 屬性和方法 第四章 Visual 面向對象技術 12 ?類和對象包含的內置過程稱為方法。 ?如果用 Public關鍵字修飾就是公有的 ?如果用 Private關鍵字修飾就是私有的，只能在類內部使用。 ?繼承：指從其它類派生新類的功能。在其范圍內沒有任何限制，它可以被程序的任何一部分使用。當基類成員聲明為受保護時，則再該類及其所有派生類中都可以使用它，但再其它地方則不能。它只有在當前類中可以使用，在該類之外則不能訪問它，在該類的任何派生類中也不能。 – 友元繼承：用 Friend關鍵字修飾。 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 15 ?繼承修飾符： – MustInherit：不能直接創(chuàng)建MustInherit類對象，他們只能用作派生類的基類。 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 16 ?MyBase、 MyClass與繼承 – 使用 MyBase可以訪問基類中原來版本的方法。 – 使用 MyClass可以使用其基類中的所有方法，就好像它們是不可重寫的方法一樣 。 ? 如果一個類沒有明確繼承自另一個類，就默認為繼承自 Object。 , amp。 amp。 ? 抽象方法需要使用關鍵字 MustOverride 聲明，并且不提供具體實現(xiàn)。 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 23 MustInherit Class Person Public Name As String Public Address As String Public City As String Public State As String Public ZIP As String MustOverride Sub PrintName() Sub Print() PrintName() (Address) (City amp。 State amp。 ZIP) End Sub End Class Class Employee Inherits Person Overrides Sub PrintName() (Employee) (Name) End Sub Public Salary As Integer End Class 第四章 Visual 面向對象技術 24 ? 覆蓋 –如果派生類中的新方法與基類中方法同名而且參數(shù)列表也相同，則派生類中的新方法將覆蓋（又稱為重寫）基類中同名方法，在這種情況下，當在派生類中或通過派生類的對象直接訪問該方法名時，被訪問的只能是派生類中的同名方法，這稱為同名覆蓋（又叫同名重寫）。 Overrides 重寫基類中定義為 Overridable的屬性或方法。默認情況下， Public方法是NotOverridable 。當使用MustOverride關鍵字時，方法定義時僅由 Sub、 Function或 Property語句組成，不允許有其他語句，特別是不能有 End Sub或 End Function語句。 封裝、繼承、多態(tài) 第一步：建立一個“ Windows應用程序”項目。 第四章 Visual 面向對象技術 27 ? 第三步：執(zhí)行“項目 /添加類”菜單命令，建立一個名為 mySubClass的子類，在其中定義一個與父類完全同名的方法 ShowInfo，它覆蓋基類中的同名方法，代碼如下： 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 28 ? 第四步：在窗體上建立兩個按鈕，并分別編寫單擊事件代碼如下： 封裝、繼承、多態(tài) 第四章 Visual 面向對象技術 29 ? 多態(tài)性：這種功能能夠使相同的代碼操作不同類型的對象。當實現(xiàn)接口時，要編寫每個類成員定義。 ? 具體實現(xiàn)如下： Public Class Neighbor Implements Person Dim InternalName As String Sub SetName(ByVal Name As String) Implements InternalName=Name End Sub Function GetName() As String Implements Return InternalName End Function End Class 接口 第四章 Visual 面向對象技術 33 ? 現(xiàn)在可以創(chuàng)建 Neighbor類對象： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Dim objNeighbor As New Neighbor