国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBScript教程 第十四課在VBScript中使用對象

2020-07-26 12:15:03
字體:
來源:轉載
供稿:網友
使用對象

無論使用的是 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> 標記"信息。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 吐鲁番市| 马关县| 诏安县| 万源市| 桦川县| 昆明市| 江永县| 科技| 祁东县| 尼木县| 休宁县| 岢岚县| 开封县| 天长市| 香港| 新泰市| 全椒县| 突泉县| 淮安市| 海城市| 屯昌县| 敖汉旗| 泸水县| 颍上县| 安塞县| 灵石县| 广元市| 阜宁县| 余姚市| 韶山市| 江北区| 依安县| 宜良县| 陆川县| 台前县| 聊城市| 天水市| 开化县| 通许县| 武冈市| 新余市|