第4章vbnet面向?qū)ο蟪绦蛟O(shè)計(jì)-免費(fèi)閱讀
【正文】 6. 設(shè)計(jì)一個(gè)圓類，要求能夠計(jì)算圓的面積、比較兩個(gè)圓的大小。 例如： Dim conn As OledbConnection 使用名稱空間 OledbConnection類。 動(dòng)手做： [例 49]()使用 單擊事件 %page LANGUAGE = vb% script language=vb runat =server Sub Button_OnClick(ByVal sender As Object , ByVal e As EventArgs) 39。 引發(fā)事件 End Sub public Sub OnTimer1(ByVal s as string) RaiseEvent Timer1(s) End Sub End Class class ProcessTime Public mTime As String public Sub GenerateTime(ByVal s as string) 39。在事件通信中，事件發(fā)送方不知道哪個(gè)對(duì)象或方法將接收到（處理）它引發(fā)的事件。 委托調(diào)用用于調(diào)用委托所封裝的方法。它在事件源和接收方之間起到一個(gè)媒介作用。 Overrides — 重寫基類中定義的 Overridable 屬性或方法。 動(dòng)手做： Public Class Employee Private name As String Private age As Integer Private salary As Single Public Sub New(ByVal n As String, ByVal a As Integer, ByVal s As Single) name = n age = a salary = s End Sub [例 46]()從 [例 41]聲明的 Employee類派 生一個(gè)新類 Director Public Function GetName() Return name End Function End Class Public Class Director Inherits Employee Private Title As String Sub New(ByVal t As String,ByVal n As String , ByVal a As Integer , ByVal s As Decimal) (n , a , s ) Title = t End Sub Public Function GetTitle() Return Title End Function End Class 點(diǎn)評(píng)： 新類繼承了基類的成員 name（姓名）、 age（年齡）、 salary（工資），并添加了新的成員 Title（職務(wù)），重載了構(gòu)造函數(shù)，添加了方法 GetTitle，以返回職務(wù)的值。三個(gè)方法的區(qū)別是參數(shù)類型不同。為了區(qū)分這些同名方法，要求方法有不同的參數(shù)，要么參數(shù)個(gè)數(shù)不同，要么參數(shù)類型不同。 %page LANGUAGE = vb % script language=vb runat =server Class TestMethod Public Shared f As Integer = 10 39。 1. 方法聲明 過程方法聲明的具體格式： 方法修飾符 Sub 方法名（形參列表） 語句 End Sub 函數(shù)方法聲明的具體格式： 方法修飾符 Function 方法名（形參列表） As 返回值數(shù)據(jù)類型 語句 End Function 方法修飾符除了具有普通函數(shù)和過程的修飾符以外，還包括：Overloads、 Overridable、 MustOverride、 NotOverridable、MustOverride、 Shared和 Shadows。共享字段或共享屬性不與實(shí)例相關(guān)聯(lián)，它屬于類，因此調(diào)用共享字段或共享屬性不需要?jiǎng)?chuàng)建類實(shí)例。 BR) (The height of window is amp。 屬性聲明的語法形式： 屬性修飾符 Property 屬性名（參數(shù)列表） As 數(shù)據(jù)類型 Get 語句 End Get Set（屬性過程參數(shù)） 語句 End Set End Property 其中，屬性修飾符包括： Public、 Protected、Friend、 Protected Friend 或 Private，用于指明屬性的可訪問性；屬性的參數(shù)列表與過程和函數(shù)的參數(shù)列表含義和用法均相同； Get和 Set為屬性過程， Get過程利用返回語句把屬性值返回給調(diào)用者，Set過程用屬性過程參數(shù)給屬性賦新值，如果不顯式指明屬性過程參數(shù)，編譯器將使用隱式參數(shù) Value 來給屬性賦新值。例如： Class Point Dim x As Integer Dim y As Integer Public Sub New(ByVal a As Integer, ByVal b As Integer) x = a y = b End Sub End Class 在 Point類中添加兩個(gè)字段 x和 y，用于封裝 Point類的 x和 y坐標(biāo)。 ? %page LANGUAGE = vb% ? script language=vb runat =server ? public class Complex ? private imag, real as double ? public message as String ? public Sub New() ? message = New... ? imag = 0 ? real = 0 ? end sub ? public sub New(byval r as double, byval i as double) ? message = New(r,i)... ? imag = i ? real = r ? End sub ? end class [例 42]()使用構(gòu)造函數(shù) ? /script ? HTML ? HEAD ? titleTest Class/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 c as new plex() ? () ? dim cc as new ple
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1