分享
 
 
 

VBScript基础教程之十二在VBScript中使用对象

王朝vb·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

使用对象

无论使用的是 ActiveX? 控件(以前称为 OLE 控件)还是 Java? 对象,Microsoft Visual Basic Scripting Edition 和 Microsoft? Internet Explorer 都以相同的方式处理它们。如果您使用的是 Internet Explorer 并且 ActiveX 库中安装了这些控件,就会看到由以下代码制作的页面。

<OBJECT> 标记用来包含对象,<PARAM> 标记用来设置对象属性的初始值。使用 <PARAM> 标记类似于在 Visual Basic 中设置窗体控件的初始属性值。例如,以下代码使用 <OBJECT> 和 <PARAM> 标记将 ActiveX 标签控件添加到页面中:

<OBJECT

classid="clsid:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"

id=lblActiveLbl

width=250

height=250

align=left

hspace=20

vspace=0

>

<PARAM NAME="Angle" VALUE="90">

<PARAM NAME="Alignment" VALUE="4">

<PARAM NAME="BackStyle" VALUE="0">

<PARAM NAME="Caption" VALUE="一个简单标签">

<PARAM NAME="FontName" VALUE="宋体">

<PARAM NAME="FontSize" VALUE="20">

<PARAM NAME="FontBold" VALUE="1">

<PARAM NAME="FrColor" VALUE="0">

</OBJECT>

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

<FORM NAME="LabelControls">

<INPUT TYPE="TEXT" NAME="txtNewText" SIZE=25>

<INPUT TYPE="BUTTON" NAME="cmdChangeIt" VALUE="更改文本">

<INPUT TYPE="BUTTON" NAME="cmdRotate" VALUE="旋转标签">

</FORM>

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

<SCRIPT LANGUAGE="VBScript">

<!--

Sub cmdChangeIt_onClick

Dim TheForm

Set TheForm = Document.LabelControls

lblActiveLbl.Caption = TheForm.txtNewText.Value

End Sub

-->

</SCRIPT>

代码将对控件和值的引用限定在窗体中,这与简单验证示例中的代码类似。

ActiveX 库中有多个 ActiveX? 控件可用于 Internet Explorer。您可以在那里找到关于属性、方法和事件的全部信息,也可以在编程参考页面上找到关于控件类标识符 (CLSID) 的信息。另外还可以在 Internet Explorer 4.0 Author's Guide and HTML Reference 页面上找到有关 <OBJECT> 标记的详细信息。

-----------------------------------------------------------------------

注意 Internet Explorer 的早期版本要求用大括号 ({}) 将 classid 属性括起来,不符合 W3C 规格。在当前版本中使用大括号则会产生“此页使用了过期版本的 <OBJECT> 标记”信息。

最后给大家付一个VBScript页面的简单样例

使用 Microsoft? Internet Explorer 可以查看用以下 HTML 代码制作的页面。如果单击页面上的按钮,可看到 VBScript 的运行结果。

<HTML>

<HEAD><TITLE>一个简单首页</TITLE>

<SCRIPT LANGUAGE="VBScript">

<!--

Sub Button1_OnClick

MsgBox "Mirabile visu."

End Sub

-->

</SCRIPT>

</HEAD>

<BODY>

<H3>一个简单首页</H3><HR>

<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="单击此处"></FORM>

</BODY>

</HTML>

结果虽然有点简单:一个对话框显示一个拉丁短语(意为“看起来非常漂亮”)。然而这段代码实际上作了许多事情。

当 Internet Explorer 读取页面时,找到 <SCRIPT> 标记,识别出 VBScript 代码并保存代码。单击按钮时,Internet Explorer 使按钮与代码连接,并运行该过程。

<SCRIPT> 标记中的 Sub 过程是一个事件过程。过程名包含两部分:一部分为按钮名,即 Button1(从 <INPUT> 标记中的 NAME 属性获取),另一部分为事件名,即 OnClick。两部分由下划线 (_) 连接。单击按钮时,Internet Explorer 查找并运行相应的事件过程,即 Button1_OnClick。

Internet Explorer 在 Internet Explorer Scripting Object Model 文档中定义了可用于窗体控件的事件。

页面也可以使用控件与过程的组合。VBScript 与窗体显示了控件之间的一些简单交互作用。

向事件附加代码的其他方法

上述的方法也许是最简单和最常用的,但也可以使用另外两种方法向事件附加 VBScript 代码。一种方法是在定义控件的标记中添加较短的内部代码。例如在单击按钮时,下面的 <INPUT> 标记执行与前面示例相同的操作:

<INPUT NAME="Button1" TYPE="BUTTON"

VALUE="单击此处" OnClick='MsgBox "Mirabile visu."'>

请注意函数调用包含在单引号中,MsgBox 函数的字符串包含在双引号中。只要用冒号 (:) 分隔语句,就可以使用多条语句。

另一种方法是在 <SCRIPT> 标记中指定特定的控件和事件:

<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Button1">

<!--

MsgBox "Mirabile visu."

-->

</SCRIPT>

由于 <SCRIPT> 标记指定了事件和控件,所以不需要再用 Sub 和 End Sub 语句。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有