包含一個(gè)完整的 Windows 腳本部件定義。
<component id=componentid> 此處為腳本部件信息 </component>
如果指定了這個(gè)標(biāo)識(shí)符,則在主機(jī)應(yīng)用程序內(nèi)這個(gè)值將作為該腳本部件的類名稱。例如,如果在 <component> 元素內(nèi)將腳本部件 ID 指定為 “MyComponent”,則在 Visual Basic 對(duì)象瀏覽器內(nèi)該腳本部件就標(biāo)識(shí)為 MyComponent 類。如果沒(méi)有指定腳本部件 ID,缺省值為 ComponentCoClass。
在腳本部件文件內(nèi),完整的腳本部件定義 包括 <registration>、<public> 以及 <implements> 元素 必須位于 <component> 元素內(nèi)。如果該文件包含多個(gè)腳本部件,它們必須包含在一個(gè) <package> 元素內(nèi)。
下面演示了一個(gè)簡(jiǎn)單而完整的腳本部件,其中包括一個(gè) factorial 方法和一個(gè) name 屬性。
注意 CDATA 項(xiàng)是必需的,以使 <script> 元素中的腳本成為不透明的。詳細(xì)信息請(qǐng)參閱腳本部件文件和 XML 一致性。
<?XML version="1.0"?> <component> <registration> description="My Test Component" progid="Component.TestScript" version="1" classid="{2154c700-9253-11d1-a3ac-0aa0044eb5f}" </registration> <public> <property name="name"/> <method name="factorial"/> </public> <script language="VBScript"> <![CDATA[ Function factorial(n) If isNumeric(n) Then If n <= 1 Then factorial = 1 Else factorial = n*factorial(n-1) End If Else factorial = -2 '錯(cuò)誤代碼。 End If End Function ]]> </script> </component>