【正文】 類實例是一個引用類型的變量。 類定義 ? 在面向?qū)ο蟪绦蛟O(shè)計中，類被作為一種數(shù)據(jù)結(jié)構(gòu)，是數(shù)據(jù)和對數(shù)據(jù)操作的集合體。例如： – Dim p As Employee –p = new Employee(“l(fā)i”, 23, 2020) 字段與屬性 1. 字段 字段表示與對象或類相關(guān)聯(lián)的變量。 動手做： %page LANGUAGE = vb% script language=vb runat =server Class Window Private pWidth As Double = 30 Private pHeight As Double = 20 Public Property width() As Double Get Return pWidth End Get Set(ByVal value As Double) pWidth = value End Set End Property Public ReadOnly Property height As Double Get Return pHeight End Get End Property End Class [例 43]()使用屬性 /script HTML HEAD titleTest Property/title /HEAD BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果/font/TD/TR TR bgcolor=whiteTD % Dim y As new Window() =200 (The width of window is amp。它與普通的過程和函數(shù)語法格式基本是一樣的。 直接用類名調(diào)用共享方法 (The Value of Shared field is amp。但不能得到在父類中聲明為 Private（私有）的方法、屬性和字段。與其他的類不同，委托類具有一個簽名，并且它只能對與其簽名匹配的方法進行引用。引發(fā)（觸發(fā)）事件的對象叫做事件發(fā)送方。 BR) ? AddHandler , AddressOf ? (Hello) ? () ? % ? /TD ? /TR ? /TABLE ? /BODY ? /HTML 程序的輸出如圖 46所示： 點評： 程序的第 7行聲明一個事件 TimeEventHandler，其具體格式為： Dim 修飾符 event 事件名 As 委托類型 程序在 MyTime類中聲明了一個事件TimeEventHandler，在 ProcessTime類中聲明了事件處理程序 GenerateTime，在 TestTime類中使用事件。其中，教師信息包括教師編號、教師姓名、工資和所屬教研室；學(xué)生信息包括學(xué)號、學(xué)生姓名、所屬班級和總成績。定義名稱空間的語法為： Namespace 名稱空間名 End Namespace 習(xí)題： 1. 比較以下程序： （ 1） Class Test Private age As Integer Public Function GetAge() As Integer Return age。 ! The time is amp。 委托聲明 Class MyTime Public mTime As String public Sub HelloTime(ByVal s As String) mTime = s amp。默認情況下， Public 方法為 NotOverridable。新類從既有類中繼承類成員，同時為了賦予新類以新的特性，可以重新定義或加進新的成員，從而形成類的層次或等級。 共享方法，為共享字段的值增一 f += 1 End Sub End Class /script HTML HEAD titleTest Property/title /HEAD [例 44]()使用共享方法 BODY TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果/font/TD/TR TR bgcolor=whiteTD % Dim s As TestMethod 39。例如： ? Class TestSharedField ? Public Shared ss As Integer ? End Class ? Sub TestShared ? Dim T As TestSharedField 39。然而，也可以使用 ReadOnly 或 WriteOnly 修飾符來限制對屬性的讀取或修改，產(chǎn)生只讀和只寫屬性。同時，聲明了兩個不同的構(gòu)造函數(shù)，一個給兩個字段賦初值為 0，一個給兩個字段賦初值為特定值。是生產(chǎn)實例對象的模板，是對同一類對象的抽象。原則上，字段應(yīng)該作為類的私有成員，用于封裝類的數(shù)據(jù)。 amp。比如，前面講過的構(gòu)造函數(shù)和析構(gòu)函數(shù)就是方法，只不過他們是兩類特殊的方法。 ) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 43所示： 3. 方法重載 方法重載允許一個類中有同名的方法存在，即一個類中可以有兩個以上的方法取相同的名字。有一個例外，就是構(gòu)造函數(shù)，它須在每一個子類中重新編寫。這樣，委托就等效于一個類型安全函數(shù)指針或一個回調(diào)，可用于事件處理功能。捕獲事件并對其做出響應(yīng)的對象叫做事件接收方。 對于 ，其事件處理要簡單得多，只需要把事件處理程序綁定到相應(yīng)事件上即可。然后，嘗試引人一個基類，并使用繼承來簡化設(shè)計。 在程序中不但可以使用已有的名稱空間，還可以自定義名稱空間，以便把程序按邏輯分組。 事件處理 mTime =s amp。 動手做： [例 47]()使用委托 % Import Namespace=% %page LANGUAGE = vb% script language=vb runat =server Public Delegate Sub TimeDelegate(ByVal s As String) 39。 NotOverridable — 防止某個屬性或方法在繼承類中被重寫。 繼承 –繼承是面向?qū)ο蟪绦蛟O(shè)計的一個重要特征，它允許在既有類的基礎(chǔ)上創(chuàng)建新類，從而使創(chuàng)建新類的工作變得更加容易。 共享字段 Shared Sub SharedMethod() 39。只需要在類名和方法名中間加上句點即可。 對于大多數(shù)屬性來說，都有 Get