將對象引用賦給一個(gè)變量或?qū)傩裕�或者將對象引用與事件關(guān)聯(lián)。

Set objectvar = {objectexpression | New classname | Nothing}

-或者-

Set object.eventname = GetRef(procname)

參數(shù)

objectvar

必選項(xiàng)，變量或?qū)傩悦�稱;符合標(biāo)準(zhǔn)變量命名規(guī)則。

objectexpression

可選項(xiàng)，與對象名稱一致的表達(dá)式,另一個(gè)相同對象類型、函數(shù)或方法的已聲明變量，它們返回相同對象類型的對象。

New

用于創(chuàng)建一個(gè)類的新實(shí)例的關(guān)鍵字。如果 objectvar 包含一個(gè)對某個(gè)對象的引用，當(dāng)一個(gè)新的引用被賦給這個(gè)對象之后，則這個(gè)引用將被釋放。New 關(guān)鍵僅用于創(chuàng)建一個(gè)類的實(shí)例。

classname

可選項(xiàng). 創(chuàng)建的類名稱。使用 Class 語句定義類及其語句。

Nothing

可選項(xiàng)。斷開 objectvar 與任何指定對象或類的關(guān)聯(lián)。當(dāng)沒有其他變量引用前面的引用對象時(shí)，將 objectvar 賦值為 Nothing 以釋放與前面的引用對象相關(guān)聯(lián)的系統(tǒng)或內(nèi)存資源。

object

必選項(xiàng)。與 event 相關(guān)聯(lián)的對象名稱。

event

必選項(xiàng)。函數(shù)作用域的事件名稱。

procname

必選項(xiàng)。包含與event 相關(guān)聯(lián)的 Sub 或 Function 名稱的字符串。

說明

為了使其有效，objectvar 必須與賦值的對象類型相一致。

Dim、Private、Public 或 ReDim 語句僅聲明一個(gè)引用對象的變量。在使用. Set 語句為一個(gè)具體對象賦值之前，沒有實(shí)際對象可以引用。

通常, 當(dāng)您使用 Set 語句將一個(gè)對象引用賦給一個(gè)變量之前,不會創(chuàng)建那個(gè)變量的對象的副本。實(shí)際上,只創(chuàng)建了一個(gè)對象的引用。多個(gè)引用對象變量可以引用相同的對象。因?yàn)檫@些變量都是對象的引用，而不是對對象副本的引用，因此對象中所作的任何變化都可以在引用該對象的所有變量中反映出來。

Function ShowFreeSpace(drvPath)
   Dim fso, d, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(drvPath))
   s = "Drive " & UCase(drvPath) & " - " 
   s = s & d.VolumeName  & "<BR>"
   s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
   s = s & " Kbytes"
   ShowFreeSpace = s
End Function

利用 New 關(guān)鍵字，您可以隨時(shí)創(chuàng)建一個(gè)類的實(shí)例，并將一個(gè)對象引用變量賦值給它。賦給類的實(shí)例的變量一定利用 Dim (或相似的語句)語句事先已經(jīng)聲明。

有關(guān)使用 Set 語句關(guān)聯(lián)一個(gè)過程與對象的詳細(xì)信息，請參考 GetRef 函數(shù)的文檔。

要求

版本 1

請參閱

= 運(yùn)算符 | Dim 語句 | GetRef 函數(shù) | ReDim 語句

<bdo id="lc7ny"></bdo>