VBS教程:在 VBScript 中使用對象

來源:互聯網
上載者:User

在 VBScript 中使用對象使用對象

無論使用的是 ActiveX(R) 控制項(以前稱為 OLE 控制項)還是 Java(TM) 對象,Microsoft Visual Basic Scripting Edition 和 Microsoft(R) Internet Explorer 都以相同的方式處理它們。如果您使用的是 Internet Explorer 並且安裝了 Label 控制項,就會看到由以下代碼製作的頁面

<OBJECT> 標記用來包含對象,<PARAM> 標記用來設定對象屬性的初始值。如果您是 Visual Basic 程式員,您會發現使用 <PARAM> 標記類似於在 Visual Basic 中設定表單控制項的初始屬性值。例如,以下代碼使用 <OBJECT> 和 <PARAM> 標記將 ActiveX Label 控制項添加到頁面中:

<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" class='9v'5><INPUT TYPE="BUTTON" NAME="cmdChangeIt" VALUE="更改文本"><INPUT TYPE="BUTTON" NAME="cmdRotate" VALUE="旋轉標籤"></FORM>

通過定義過的表單,cmdChangeIt 按鈕的事件程序可更改標籤文本:

<SCRIPT LANGUAGE="VBScript"><!--Sub cmdChangeIt_nClick   Dim TheForm   Set TheForm = Document.LabelControls   lblActiveLbl.Caption = TheForm.txtNewText.ValueEnd Sub--></SCRIPT>

代碼將對控制項和值的引用限定在表單中,這與簡單驗證樣本中的代碼類似。

多個 ActiveX 控制項可用於 Internet Explorer。您可以在 Microsoft(R) Web 網站上 (http://www.microsoft.com) 找到關於屬性、方法和事件以及控制項類名標識符(CLSID)的全部資訊。另外還可以在 Internet Explorer 4.0 Author's Guide and HTML Reference頁面上找到有關 <OBJECT> 標記的詳細資料。

注意 Internet Explorer 的早期版本要求用大括弧 ({}) 將 classid 屬性括起來,不符合 W3C 規格。在目前的版本中使用大括弧則會產生“此頁使用了到期版本的 <OBJECT> 標記”資訊。

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.