十、面向?qū)ο蟮睦?/STRONG>
這里我們將通過一個(gè)具體的實(shí)例來認(rèn)識(shí)它的封裝性! 在面向?qū)ο蠓椒?/P>
中,對(duì)象可看成是屬性(數(shù)據(jù))以及這些屬性上的專用操作的封裝體。
封裝是一種信息屏蔽技術(shù),封裝的目的是使對(duì)象的定義和實(shí)現(xiàn)分離。
Step1:
1.1新建一個(gè)工程命名為VBOOP;
1.2單擊工程菜單,選擇添加類模塊后并單擊確定按鈕;
1.3在其屬性窗口中將類的名稱改為TScore。
Step2:編輯TScore類模塊代碼
2.1.這里為TScore類定義四個(gè)私有(Private)變量,它們只能在本模塊
中是可見的,即類的一些成員被隱藏起來,用戶只能通過屬性過程
或函數(shù)等方法來訪問,從而對(duì)對(duì)象進(jìn)行封裝。
定義變量的基本語法:
Private/Publc <變量名> As <變量類型>
代碼部分:
Private FName As String\'學(xué)生的姓名
Private FMath As Single\'數(shù)學(xué)成績
Private FEnglish As Single \'英語成績
2.2.為TScore類定義六個(gè)公用(Public)的屬性(Property)過程和一
個(gè)計(jì)算總分的方法函數(shù)。
定義方法的基本語法:
Private/Publc Property Get <讀屬性過程名> As <屬性返回值類型>;
Private/Public Property Let <寫屬性過程名>(ByVal 變量名 As 返回值類型);
Private/Publc Function <函數(shù)名> As <函數(shù)返回值類型>;
get: 將模塊中的私有變量的值賦給屬性過程,通常稱為讀;
Let: 通過屬性過程給模塊中的私有變量值賦,通常稱為寫。
代碼部分:
Public Property Get GetName() As String
GetName = FName
End Property
Public Property Let SetName(ByVal Name As String)
FName = Name
End Property
Public Property Get GetMath() As Single
GetMath = FMath
End Property
Public Property Let SetMath(ByVal Math As Single)
FMath = Math
End Property
Public Property Get GetEnglish() As Single
GetEnglish = FEnglish
End Property
Public Property Let SetEnglish(ByVal English As Single)
FEnglish = English
End Property
Public Function Total() As Single\'計(jì)算總成績函數(shù)
Total = GetMath + GetEnglish
End Function
Step3:回到Form1窗口,在窗口上添加12個(gè)控件:
相關(guān)推薦:軟考系統(tǒng)分析師歷年真題匯總(2007年-2010年)
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |