在 Windows® 腳本部件文件中方法是作為函數(shù)或子例程實(shí)現(xiàn)的。

要說明一個(gè)方法

1. 創(chuàng)建一個(gè) <public> 元素，該元素應(yīng)作為 <component> 元素的子元素。
2. 在 <public> 元素中包括一個(gè) <method> 方法。該方法元素可以選擇性地包括一個(gè)或多個(gè) <parameter> 元素來定義該方法的參數(shù)。
3. 可以用任何一種腳本語言編寫一個(gè)過程來實(shí)現(xiàn)該函數(shù)。該過程應(yīng)放在一個(gè) <implements> 元素外面的 <script> 元素中，但應(yīng)位于 <component> 元素內(nèi)。請確保其函數(shù)名與 functionName 要一致，或者如果沒有指定 functionName，則應(yīng)該與在 <method> ;元素中指定的 methodName 名字一致。

   例如，下面的示例演示了具有兩個(gè)方法的腳本部件文件片段，這兩個(gè)方法分別為 factorial 和 getRandomNumber。

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

   <public>
      <method name="factorial"/>
      <method name="random" internalName="getRandomNumber">
         <parameter name="upperBound"/>
         <parameter name="seed"/>
      </method>
   </public>
   
   <script language="VBScript">
   Function factorial(n)
      <![CDATA[
      If isNumeric(n) Then
         If n <= 1 Then
            factorial = 1
         Else
            factorial = n*factorial(n-1)
         End If
      Else
         factorial = -2   ' Error code.
      End If
   End Function
   
   Function getRandomNumber(upperBound, seed)
      getRandomNumber = Cint(upperBound * Rnd(seed) + 1)
   End Function
   ]]>
   </script>

可以給腳本部件指定一個(gè)缺省方法，以便宿主應(yīng)用程序不必顯式調(diào)用就可以使用該方法。例如，如果已聲明了一個(gè)稱為 factorial 的方法，并將其標(biāo)記為缺省的，則可以在 Visual Basic 中用下述方式調(diào)用該函數(shù)：

Set component = CreateObject("component.MyComponent")
n = component.factorial(4)   ' Calls factorial method explicitly.
n = component(4)   ' Calls factorial method as default.

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

要指定缺省方法

• 在 <method> 方法中，按下述示例所示包括屬性 dispid="0"：

  <public>
     <method name="factorial" dispid="0"/>
  </public>

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

請參閱

說明事件 | 說明屬性 | 腳本部件文件的內(nèi)容