可以用兩種方式來(lái)說(shuō)明屬性：

• 作為簡(jiǎn)單值   該屬性是一個(gè)簡(jiǎn)單的全局變量，腳本部件的用戶可以讀寫這個(gè)變量。由于這個(gè)值是以全局量存儲(chǔ)的，因此可以在 Windows® 腳本部件文件的各個(gè)腳本中使用這個(gè)變量。
• 作為函數(shù)   使用一個(gè)函數(shù)來(lái)定義該屬性。這樣就使您可以計(jì)算屬性的值，并控制屬性是否為只讀、可讀寫、或者是只寫的。

還可以將屬性標(biāo)記為腳本部件的缺省值。

要作為簡(jiǎn)單值來(lái)說(shuō)明一個(gè)屬性

1. 創(chuàng)建一個(gè) <public> 元素，將其作為 <component> 元素的子元素。
2. 在 <public> 元素中，包含一個(gè)指定用來(lái)存儲(chǔ)屬性值的變量的 <property> 元素。
3. 要初始化一個(gè)簡(jiǎn)單屬性的值，請(qǐng)?jiān)?<script> 元素中創(chuàng)建一個(gè)與 propertyName (或 propertyVariable ，如果指定了這個(gè)名字)匹配的名字的全局變量,并給其指定一個(gè)值。
4. 下面的腳本部件片段演示了兩個(gè)作為簡(jiǎn)單值說(shuō)明的屬性 (name and tag)。這兩個(gè)屬性是在 <script> 元素中使用全局變量來(lái)初始化的。

   注意   CDATA 項(xiàng)是必需的，以使 <script> 元素中的腳本成為不透明的。詳細(xì)信息請(qǐng)參閱腳本部件文件和 XML 一致性。

   <public>
      <property name="name"/>
      <property name="tag" internalName="tagVar"/>
   </public>
   
   <script language="VBScript">
      <![CDATA[
      Dim name
      name = "script component"   ' Initializes the value of name property.
      Dim tagVar
      tagVar = "10"   ' Initializes the value of tag property.
      ]]>
   </script>

使用函數(shù)來(lái)說(shuō)明屬性與說(shuō)明方法的方式類似。

要使用函數(shù)來(lái)說(shuō)明一個(gè)屬性

1. 在腳本部件文件的 <public> 元素中，包括一個(gè) <property> 元素，其中可以包含一個(gè) <get> 元素來(lái)定義只讀函數(shù)，一個(gè) <put> 元素來(lái)定義寫入函數(shù)。如果沒(méi)有定義 <put> 元素，則該屬性就是只讀的。如果沒(méi)有包括 <get> 元素，則該屬性就是只寫的。
2. 在 <public> 之外的 <script> 元素內(nèi)編寫過(guò)程來(lái)實(shí)現(xiàn)這個(gè)函數(shù)。設(shè)置屬性值的函數(shù) — 即 put 函數(shù) — 必須接收一個(gè)參數(shù)，該屬性將被設(shè)置為這個(gè)值。

   該過(guò)程的名稱必須與在 <property> 元素中指定的內(nèi)部名稱一致。如果沒(méi)有指定 internalName 屬性，則對(duì)于讀取函數(shù)，函數(shù)名稱必須是該函數(shù)的名字再加上 get_ 前綴，對(duì)于寫入函數(shù)，則應(yīng)加上 put_ 前綴。

3. 例如，下面的腳本部件片段是一個(gè)說(shuō)明了三個(gè)屬性的腳本部件文件示例，這三個(gè)屬性為： sname、dateOfBirth 以及 age 。dateOfBirth 屬性是作為函數(shù)定義的，因此它可以包括錯(cuò)誤檢查。age 屬性是計(jì)算得到的，因此被定義為只讀的。

   注意   CDATA 項(xiàng)是必需的，使 <script> 元素中的腳本稱為不透明的。詳細(xì)信息請(qǐng)參閱 腳本部件文件和 XML 一致性。

   <public>
      <property name="sname"/>
      <property name="age">
         <get internalName="readAge"/>
      </property>
      <property name="dateOfBirth">
         <get internalName="readDOB"/>
         <put internalName="writeDOB"/>
      </property>
   </public>
   
   <script language="VBScript">
   <![CDATA[
   Dim sname   ' 可讀寫的 sname 屬性（非函數(shù)）。
   Dim gDOB   ' 用來(lái)存儲(chǔ)生日日期的全局變量。
   
   Function readDOB()
      ' 取 dateOfBirth 屬性的值。
      readDOB = gDOB
   End Function
   
   Function writeDOB(newDOB)
      ' 設(shè)置 dateOfBirth 屬性的值。
      If isDate(gDOB) Then
         'Error checking
         gDOB = newDOB
      End If
   End Function
   
   Function readAge()
      ' 計(jì)算只讀的 age 屬性。
      If isDate(gDOB) Then
         dobM = DatePart("m", gDOB)
         dobD = DatePart("d", gDOB)
         dobY = DatePart("yyyy", gDOB)
         todayY = DatePart("yyyy", Date)
         age = todayY - dobY
   
         ' 如果今年還沒(méi)過(guò)生日，則進(jìn)行調(diào)整。
         bday = DateValue(dobM & "/" & dobD & "/" & todayY)
         If DateDiff("d", bday, DateValue(Date)) < 0 Then
            age = age - 1
         End If
         readAge = age
      End If
   End Function
   ]]>
   </script>

可以給腳本部件指定一個(gè)缺省屬性，以便宿主應(yīng)用程序不必顯式地寫出屬性的名字就可以獲取或設(shè)置該屬性的值。例如，如果已聲明了一個(gè)稱為 sname 的屬性，并將其標(biāo)記為缺省的，則可以在 Visual Basic 中用下述任何一種方式來(lái)使用該屬性：

Set component = CreateObject("Component.MyComponent")
n = component.sname   ' 顯式地獲取屬性。
n = component   ' 按缺省情況獲取 sname 的值。

要指定缺省屬性，請(qǐng)包括一個(gè)將特殊的派遣標(biāo)識(shí)符(dispid)指定給該方法的屬性。關(guān)于 dispid 的詳細(xì)信息，請(qǐng)參閱說(shuō)明事件。

要指定一個(gè)缺省屬性

• 在 <property> 元素中，按下述示例所示包括屬性 dispid="0"：

  <property name="sname" dispid="0"/>

  注意   這個(gè)技術(shù)可用來(lái)指定一個(gè)缺省方法或一個(gè)缺省屬性，但不能同時(shí)指定。在腳本部件中只能有一個(gè)元素的 dispid 為零。

請(qǐng)參閱

說(shuō)明事件 | 說(shuō)明方法 | 腳本部件文件的內(nèi)容 | 腳本部件文件和 XML 一致性