人人添人人澡人人澡人人人人,欧美换爱交换乱理伦片1000部

標(biāo)題: VB6中類(lèi)的屬性過(guò)程 [打印本頁(yè)]

作者: 51hei小林 時(shí)間: 2016-9-24 20:32
標(biāo)題: VB6中類(lèi)的屬性過(guò)程

運(yùn)用屬性過(guò)程
Visual Basic 提供下表所列的三種屬性過(guò)程。

過(guò)程	目的
Property Get	返回屬性的值
Property Let	設(shè)置屬性的值
Property Set	設(shè)置對(duì)象屬性的值（即，該屬性含有對(duì)象引用）。

從上表可見(jiàn)，每一個(gè)屬性過(guò)程都有自己特殊的功能。典型的屬性由一對(duì)屬性過(guò)程組成：Property Get 檢索屬性的值，Property Let 或 Property Set給屬性賦值。
這些作用在有些情況下可能重疊。有兩類(lèi)賦值的屬性過(guò)程的原因，是因?yàn)閷?duì)象引用賦給對(duì)象變量時(shí)，Visual Basic 有特殊的語(yǔ)法：
Dim wdg As Widget
Set wdg = New Widget規(guī)則很簡(jiǎn)單：如果有 Set 語(yǔ)句，則 Visual Basic 調(diào)用 Property Set，如果沒(méi)有則調(diào)用 Property Let。
提示返回到經(jīng)典的 Basics 語(yǔ)法，為了正確使用 Property Let 和 Property Set 保持清潔整齊，應(yīng)鍵入 Let x = 4（直到今天 Visual Basic 還支持的語(yǔ)法）而不是 x = 4，。Visual Basic總是根據(jù)賦值類(lèi)型決定調(diào)用屬性過(guò)程— 對(duì)于 Let x = 4 調(diào)用 Property Let，對(duì)于 Set c1 = New Class1（對(duì)象屬性）則調(diào)用 Property Set。
詳細(xì)信息 “編程基礎(chǔ)”中“對(duì)象使用”解釋 Set 語(yǔ)句對(duì)對(duì)象變量的使用。
讀寫(xiě)屬性下列編碼顯示了典型的讀寫(xiě)屬性：
'屬性值的私有存儲(chǔ)區(qū)。
Private mintNumberOfTeeth As IntegerPublic
Property Get NumberOfTeeth() As Integer
NumberOfTeeth = mintNumberOfTeeth
End Property
Public Property Let NumberOfTeeth(ByVal NewValue _ As Integer) '（省略驗(yàn)證屬性值代碼。）
mintNumberOfTeeth = NewValue
End Property存儲(chǔ)了屬性值的私有變量名，由作用域前綴 (m)，類(lèi)型前綴 (int) 和名稱(chēng) (NumberOfTeeth) 組成，其中，作用域前綴 (m) 指明變量是模塊級(jí)的。使用屬性相同的名稱(chēng)可指明該變量和屬性是相關(guān)的。
毫無(wú)疑問(wèn)，已經(jīng)注意到，這里和以前的示例一樣，含有讀寫(xiě)屬性的屬性過(guò)程名必須是相同的。
注意屬性過(guò)程缺省為公共的，因此，如果省略Public 關(guān)鍵詞，則屬性過(guò)程仍是公共的。如果想要使屬性為私有（只有對(duì)象內(nèi)部才可訪問(wèn)），必須用 Private關(guān)鍵詞聲明。即使不是必須，最好還是使用 Public 關(guān)鍵詞，因?yàn)檫@可使意圖清楚。
運(yùn)行和播放屬性過(guò)程單步運(yùn)行一些屬性過(guò)程代碼是有益處的。使用“工程”菜單，打開(kāi)一個(gè)新的 Standard Exe 工程，并增添一個(gè)類(lèi)模塊。如上所示，從 NumberOfTeeth 屬性復(fù)制代碼到 Class1。
切換到 Form1，將下列代碼添加到 Load 事件中：
Private Sub Form_Load() Dim c1 As Class1 Set c1 = New Class1 '賦給新的屬性值。 c1.NumberOfTeeth = 42 '顯示屬性值。 MsgBox c1.NumberOfTeethEnd Sub按 F8 鍵，單步運(yùn)行代碼。注意，當(dāng)屬性被賦值時(shí)，運(yùn)行跳到 Property Let，當(dāng)檢索屬性值時(shí)，運(yùn)行跳到 Property Get。將會(huì)發(fā)現(xiàn)，對(duì)屬性過(guò)程其它組合，重復(fù)做這種練習(xí)是很有用的。
屬性過(guò)程對(duì)的參數(shù)必須匹配至今所見(jiàn)的屬性過(guò)程示例都很簡(jiǎn)單，對(duì)多數(shù)屬性而言屬性過(guò)程也將是這樣。但是，屬性過(guò)程可有多個(gè)參數(shù)— 甚至可選參數(shù)。多個(gè)參數(shù)中最有用的是數(shù)組，下面將討論。
當(dāng)使用多個(gè)參數(shù)時(shí)，屬性過(guò)程對(duì)的參數(shù)必須匹配。下表給出了在屬性過(guò)程聲明中參數(shù)的要求。

過(guò)程	聲明語(yǔ)法
Property Get	Property Get propertyname(1,..., n) As type
Property Let	Property Letpropertyname(1,..., n, n+1)
Property Set	Property Setpropertyname(1,..., n, n+1)

在 Property 過(guò)程中，從第一個(gè)參數(shù)到倒數(shù)第二個(gè)參數(shù) (1,..., n)，必須具有與過(guò)程相同的名稱(chēng)和數(shù)據(jù)類(lèi)型。就象其它過(guò)程類(lèi)型一樣，列表中必需參數(shù)應(yīng)排在第一個(gè)可選參數(shù)之前。
可能注意到，Property Get 過(guò)程的聲明比相關(guān)的 Property Let 或 Property Set少一個(gè)參數(shù)。Property Get 過(guò)程的數(shù)據(jù)類(lèi)型的聲明必須與 Property Let 或 Property Set 最后一個(gè)參數(shù) (n+1) 的數(shù)據(jù)類(lèi)型一樣。
例如，一個(gè)類(lèi)似二維數(shù)組的屬性的 Property Let 聲明：
Public Property Let Things(ByVal X As Integer, _ByVal Y As Integer, ByVal Thing As Variant) '（省略給數(shù)組元素賦值的代碼。）End PropertyProperty Get 的參數(shù)聲明必須與 Property Let 過(guò)程的參數(shù)名稱(chēng)和數(shù)據(jù)類(lèi)型相同：
Public Property Get Things(ByVal X As Integer, _ByVal Y As Integer) As Variant '（省略從數(shù)組取值的代碼。）End Property在 Property Set 聲明中的最后參數(shù)的數(shù)據(jù)類(lèi)型，要么是對(duì)象類(lèi)型，要么是Variant 類(lèi)型。
參數(shù)匹配圖 9.8 給出了這些參數(shù)匹配規(guī)則的理由。并顯示了 Visual Basic 如何將賦值語(yǔ)句部分與 Property Let 參數(shù)相匹配。
圖 9.8 Property Let 過(guò)程的調(diào)用

帶多參數(shù)的屬性過(guò)程最常用于創(chuàng)建屬性數(shù)組。
只讀屬性要?jiǎng)?chuàng)建只讀屬性，只須簡(jiǎn)單地省略 Property Let 或（對(duì)于對(duì)象屬性）Property Set。
對(duì)象屬性若要?jiǎng)?chuàng)建一個(gè)讀寫(xiě)對(duì)象屬性，應(yīng)使用 Property Get 和 Property Set 如：
Private mwdgWidget As WidgetPublic Property Get Widget() As Widget 'Set 語(yǔ)句被用來(lái)返回一個(gè)對(duì)象引用。 Set Widget = mwdgWidgetEnd PropertyPublic Property Set Widget(ByVal NewWidget As Widget) Set mwdgWidget = NewWidgetEnd Property Variants 屬性 Variants 數(shù)據(jù)類(lèi)型的讀寫(xiě)屬性是最復(fù)雜的。如下所示，使用三種屬性過(guò)程類(lèi)型：
Private mvntAnything As VariantPublic Property Get Anything() As Variant 'Set 語(yǔ)句只用于包含了對(duì)象引用的任何屬性。 If IsObject(mvntAnything) Then    Set Anything = mvntAnything Else    Anything = mvntAnything End IfEnd PropertyPublic Property Let Anything(ByVal NewValue As Variant) '（省略驗(yàn)證代碼。） mvntAnything = NewWidgetEnd PropertyPublic Property Set Anything(ByVal NewValue As Variant) '（省略驗(yàn)證代碼。） Set mvntAnything = NewWidgetEnd Property在正確環(huán)境中，Property Set 和 Property Let 總是很正常的使用。但是，使用 Property Get 必須考慮以下二種情況：
strSomeString = objvar1.AnythingSet objvar2 = objvar1.Anything在第一種情況中，Anything 屬性包含了字符串，它賦給了 String 變量。在第二個(gè)情況中，Anything 屬性包含了對(duì)象引用，它被賦給對(duì)象變量。
通過(guò)使用 IsObject 函數(shù),在返回值之前測(cè)試私有 Variants 變量，可對(duì) Property Get 進(jìn)行編程來(lái)處理這兩種情況。
自然，當(dāng)屬性包含對(duì)象引用時(shí)，如果第一條編碼被調(diào)用，將會(huì)出現(xiàn)錯(cuò)誤，但這不是 Property Get 問(wèn)題，而是使用 Variants 屬性的問(wèn)題。
僅寫(xiě)一次屬性屬性過(guò)程有幾種可能的組合。所有的組合都是有效的，但有些相對(duì)來(lái)說(shuō)不太常用，比如只寫(xiě)屬性（只有 Property Let，而無(wú) Property Get）。有些則取決于另外的因素，而不是所組合的屬性過(guò)程類(lèi)型。
例如，如本章后“對(duì)象模型”所描述的那樣，當(dāng)通過(guò)創(chuàng)建一個(gè)對(duì)象模型在程序中組織對(duì)象時(shí)，可能想讓該對(duì)象能引用包含它的對(duì)象。使用 Parent 屬性可這樣做。
當(dāng)對(duì)象創(chuàng)建時(shí)，應(yīng)設(shè)置 Parent 屬性，但此后，可能想防止其被有意或無(wú)意地改變。以下示例顯示了 Account 對(duì)象如何使用 Parent 屬性。該屬性指向含有帳號(hào)的 Department 對(duì)象。
'Parent 屬性要用私有數(shù)據(jù)存儲(chǔ)Private mdeptParent As DepartmentProperty Get Parent() As Department '使用 Set 語(yǔ)句引用對(duì)象。
Set Parent = mdeptParentEnd Property'屬性值只能被設(shè)置一次。
Public Property Set Parent(ByVal NewParent _As Department)
If deptParent Is Nothing Then    '賦初值。
   Set mdeptParent = NewParent
Else
Err.Raise Number:=vbObjectError + 32144,
Description:="Parent property is read-only"
  End If
End Property當(dāng)訪問(wèn) Account 對(duì)象的父對(duì)象時(shí)，例如通過(guò)代碼 strX = acctNew.Parent.Name 獲取部門(mén)名稱(chēng)，Property Get 被用于返回對(duì)父對(duì)象的引用。
該示例中，編入 Property Set 是為了使 Parent 屬性只能被設(shè)置一次。例如，當(dāng) Department 對(duì)象創(chuàng)建一個(gè)新的帳號(hào)時(shí)，可以執(zhí)行代碼 Set acctNew.Parent = Me 設(shè)置屬性。此后，該屬性為只讀的。
詳細(xì)信息 因?yàn)樵?Visual Basic 中窗體是類(lèi)，故可向窗體添加用戶屬性。請(qǐng)參閱本章前面“定制窗體類(lèi)”的內(nèi)容。

歡迎光臨 (http://www.torrancerestoration.com/bbs/)

<p id="x3ppz"></p>

_{<li id="x3ppz"></li>}