在 VBScript 中使用对象

[h3]使用对象[/h3]无论使用的是 ActiveX(R) 控件（以前称为 OLE 控件）还是 Java(TM) 对象，Microsoft Visual Basic Scripting Edition 和 Microsoft(R) Internet Explorer 都以相同的方式处理它们。如果您使用的是 Internet Explorer 并且安装了[b] Label [/b]控件，就会看到由以下代码[u]制作的页面[/u]。 <OBJECT> 标记用来包含对象，<PARAM> 标记用来设置对象属性的初始值。如果您是 Visual Basic 程序员，您会发现使用 <PARAM> 标记类似于在 Visual Basic 中设置窗体控件的初始属性值。例如，以下代码使用 <OBJECT> 和 <PARAM> 标记将 ActiveX Label 控件添加到页面中：

[code]<OBJECT[/code]   [code]classid="clsid:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"[/code]   [code]id=lblActiveLbl[/code]   [code]width=250[/code]   [code]height=250[/code]   [code]align=left[/code]   [code]hspace=20[/code]   [code]vspace=0[/code][code]>[/code][code]<PARAM NAME="Angle" VALUE="90">[/code][code]<PARAM NAME="Alignment" VALUE="4">[/code][code]<PARAM NAME="BackStyle" VALUE="0">[/code][code]<PARAM NAME="Caption" VALUE="[/code]一个简单标签[code]">[/code][code]<PARAM NAME="FontName" VALUE="[/code]宋体[code]">[/code][code]<PARAM NAME="FontSize" VALUE="20">[/code][code]<PARAM NAME="FontBold" VALUE="1">[/code][code]<PARAM NAME="FrColor" VALUE="0">[/code][code]</OBJECT>[/code]

象对任何窗体控件一样，可以获取属性、设置属性和调用方法。例如，以下代码包含 <FORM> 控件，可用其对标签控件的两个属性进行操作：

[code]<FORM NAME="LabelControls"><INPUT TYPE="TEXT" NAME="txtNewText" class='9v'5><INPUT TYPE="BUTTON" NAME="cmdChangeIt" VALUE="[/code]更改文本[code]">[/code][code]<INPUT TYPE="BUTTON" NAME="cmdRotate" VALUE="[/code]旋转标签[code]">[/code][code]</FORM>[/code]

通过定义过的窗体，cmdChangeIt 按钮的事件过程可更改标签文本：

[code]<SCRIPT LANGUAGE="VBScript"><!--Sub cmdChangeIt_onClick[/code]   [code]Dim TheForm[/code]   [code]Set TheForm = Document.LabelControls[/code]   [code]lblActiveLbl.Caption = TheForm.txtNewText.Value[/code][code]End Sub[/code][code]-->[/code][code]</SCRIPT>[/code]

代码将对控件和值的引用限定在窗体中，这与简单验证示例中的代码类似。 多个 ActiveX 控件可用于 Internet Explorer。您可以在 Microsoft(R) Web 站点上 (http://www.microsoft.com) 找到关于属性、方法和事件以及控件类名标识符（CLSID）的全部信息。另外还可以在 Internet Explorer 4.0 Author's Guide and HTML Reference页面上找到有关 <OBJECT> 标记的详细信息。 [b]注意[/b]   Internet Explorer 的早期版本要求用大括号 ({}) 将 classid 属性括起来，不符合 W3C 规格。在当前版本中使用大括号则会产生“此页使用了过期版本的 <OBJECT> 标记”信息。