【正文】 x(10,20) ? () ? % ? /TD ? /TR ? /TABLE ? /BODY ? /HTML 程序輸出結(jié)果如圖 41所示： ? 點(diǎn)評(píng)： 程序中，定義了一個(gè)復(fù)數(shù)類(lèi) plex。其語(yǔ)法格式為： ? 類(lèi)修飾符 Class 類(lèi)名 ? 類(lèi)體 ? End Class ? 其中，關(guān)鍵字 Class、類(lèi)名、 End Class和類(lèi)體是必須項(xiàng)，其他項(xiàng)是可選項(xiàng)。類(lèi)修飾符見(jiàn)表 41。在類(lèi)中，聲明了兩個(gè)字段 imag和 real，用于表示復(fù)數(shù)的實(shí)部和虛部。 2. 屬性 屬性用于刻畫(huà)對(duì)象的特征或表示對(duì)象的狀態(tài)，它提供對(duì)類(lèi)或?qū)ο笮再|(zhì)的訪(fǎng)問(wèn)。 對(duì)于大多數(shù)屬性來(lái)說(shuō)，都有 Get 和 Set 這兩個(gè)屬性過(guò)程，可以完成對(duì)屬性的讀寫(xiě)操作。 ) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 42所示： 點(diǎn)評(píng)： 在例子中，聲明了一個(gè)屬性 width，它有Get和 Set屬性過(guò)程。只需要在類(lèi)名和方法名中間加上句點(diǎn)即可。這些修飾符以后會(huì)逐一加以講解。 共享字段 Shared Sub SharedMethod() 39。方法重載使用 Overloads修飾符。 繼承 –繼承是面向?qū)ο蟪绦蛟O(shè)計(jì)的一個(gè)重要特征，它允許在既有類(lèi)的基礎(chǔ)上創(chuàng)建新類(lèi)，從而使創(chuàng)建新類(lèi)的工作變得更加容易。 2. MyBase關(guān)鍵字 MyBase常用于訪(fǎng)問(wèn)在派生類(lèi)中被重寫(xiě)或隱藏的基類(lèi)成員，它有兩種基本用法： 1. 指定創(chuàng)建派生類(lèi)實(shí)例時(shí)應(yīng)調(diào)用的基類(lèi)構(gòu)造函數(shù)，用于調(diào)用基類(lèi)的構(gòu)造函數(shù)完成對(duì)基類(lèi)成員的初始化工作； 2. 在派生類(lèi)中訪(fǎng)問(wèn)基類(lèi)成員。 NotOverridable — 防止某個(gè)屬性或方法在繼承類(lèi)中被重寫(xiě)。 使用委托包含幾個(gè)步驟：委托聲明；委托實(shí)例化；委托調(diào)用。 動(dòng)手做： [例 47]()使用委托 % Import Namespace=% %page LANGUAGE = vb% script language=vb runat =server Public Delegate Sub TimeDelegate(ByVal s As String) 39。所需要的是在發(fā)送方和接收方之間用一個(gè)紐帶來(lái)聯(lián)系。 事件處理 mTime =s amp。 事件處理程序 If =Yes then = = Yes =No Else = = No =Yes End IF End Sub /script HTML HEAD titleTest Class/title /HEAD BODY Form RunAt=Server TABLE width=100% bordercolor=blue border=1 TR height=25 bgcolor=blue TD align=centerfont color=white程序輸出結(jié)果/font/TD/TR TR bgcolor=whiteTD asp:Label id=label1 Text= RunAt=Server/ 39。 在程序中不但可以使用已有的名稱(chēng)空間，還可以自定義名稱(chēng)空間，以便把程序按邏輯分組。 7. 設(shè)計(jì)一個(gè)隊(duì)列類(lèi)，要求能夠完成入隊(duì)、出隊(duì)操作（提示：隊(duì)列是在隊(duì)尾加入數(shù)據(jù)元素，即入隊(duì)；在隊(duì)頭刪除數(shù)據(jù)元素，即出隊(duì)的一種數(shù)據(jù)結(jié)構(gòu)）。然后，嘗試引人一個(gè)基類(lèi)，并使用繼承來(lái)簡(jiǎn)化設(shè)計(jì)。聲明的語(yǔ)法為： % Import Namespace=名稱(chēng)空間 % 例如： % Import Namespace= % % Import Namespace=% 聲明之后就可以直接使用其中的類(lèi)和對(duì)象了。 對(duì)于 ，其事件處理要簡(jiǎn)單得多，只需要把事件處理程序綁定到相應(yīng)事件上即可。 聲明事件 public event Timer1 As TimeEventHandler public Sub OnTimer(ByVal s as string) RaiseEvent Timer(s) 39。捕獲事件并對(duì)其做出響應(yīng)的對(duì)象叫做事件接收方。從而把委托和方法關(guān)聯(lián)起來(lái)。這樣，委托就等效于一個(gè)類(lèi)型安全函數(shù)指針或一個(gè)回調(diào)，可用于事件處理功能。以下幾個(gè)修飾符用于重寫(xiě)方法： Overridable — 允許某個(gè)類(lèi)中的屬性或方法在派生類(lèi)中被重寫(xiě)。有一個(gè)例外，就是構(gòu)造函數(shù)，它須在每一個(gè)子類(lèi)中重新編寫(xiě)。 ()) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 44所示： 點(diǎn)評(píng)： 該類(lèi)有三個(gè)重載方法 square，用于計(jì)算integer、 double和 decimal類(lèi)型數(shù)的平方。 ) % /TD /TR /TABLE /BODY /HTML 程序輸出如圖 43所示： 3. 方法重載 方法重載允許一個(gè)類(lèi)中有同名的方法存在，即一個(gè)類(lèi)中可以有兩個(gè)以上的方法取相同的名字。模塊中聲明的方法是隱式共享的，不能顯式使用 Shared 修飾符。比如，前面講過(guò)的構(gòu)造函數(shù)和析構(gòu)函數(shù)就是方法，只不過(guò)他們是兩類(lèi)特殊的方法。 ? 使用 Shared修飾符聲明的字段或?qū)傩允枪蚕碜侄位蚬蚕韺傩浴? amp。 Visual Basic .NET 有兩種類(lèi)型的屬性過(guò)程：Get 屬性過(guò)程用于檢索屬性值； Set 屬性過(guò)程用于向?qū)傩再x值。原則上，字段應(yīng)該作為類(lèi)的私有成員，用于封裝類(lèi)的數(shù)據(jù)。其語(yǔ)法格式為： – Sub Finalize（） – 語(yǔ)句 – End Sub – 當(dāng)銷(xiāo)毀對(duì)象時(shí)系統(tǒng)自動(dòng)調(diào)用 Finalize，該方法主要完成在對(duì)象銷(xiāo)毀前需要完成的工作。是生產(chǎn)實(shí)例對(duì)象的模板，是對(duì)同一類(lèi)對(duì)象的抽象。類(lèi)體用于定義類(lèi)的成員，成員可以是變量、屬性、方法和事件。同時(shí)，聲明了兩個(gè)不同的構(gòu)造函數(shù)，一個(gè)給兩個(gè)字段賦初值為 0，一個(gè)給兩個(gè)字段賦初值為特定值。比如窗口標(biāo)題、窗口位置、客戶(hù)名稱(chēng)等，都可以作為屬性。然而，也可以使用 ReadOnly 或 WriteOnly 修飾符來(lái)限制對(duì)屬性的讀取或修改，產(chǎn)生只讀和只寫(xiě)屬性。當(dāng)執(zhí)行語(yǔ)句 = 200 時(shí)，調(diào)用 Set屬性過(guò)程給 width屬性賦值。例如： ? Class TestSharedField ? Public Shared ss As Integer ? End Class ? Sub TestShared ? Dim T As TestSharedField 39。 返回值數(shù)據(jù)類(lèi)型可以是合法的 。 共享方法，為共享字段的值增一 f += 1 End Sub End Class /script HTML HEAD titleTest Property/title /HEAD [例 44]()使用共享方法 BODY TABLE wid