用VBScript制作活動主頁

2019-11-18 17:26:50

字體：大中小

來源：轉載

供稿：網友

VBScript(VisualBasicScriptEdition即VB原本編制版)語言，是MicrosoftVisualBasicforapplications(VBA)和MicrosoftVisualBasic的一個子集。通過ActiveX控制本或HTML表單，我們可以方便地添加VBScript進程，只要您已有一定的VisualBasic或VBA的開發經驗，便能輕松地使用VBScript，使自己的Web頁獲得非常專業的效果。下面通過兩個例子程序，介紹如何利用VBScript制作自己的活動主頁。
表1MsgBox對象的定義值
類型值
按鈕類型
0只顯示OK（確定）按鈕
1顯示OK（確定）和Cancel
（取銷）按鈕
2顯示Abort(放棄),Retry(重試)
和Ingore(忽略)按鈕
3顯示Yes、No按Cancel按鈕
4顯示Yes和No按鈕
5顯示Retry（重試）和Cancel
（取消）按鈕
類型值圖標類型
0沒有圖標
16顯示“停止”圖標
32顯示“問號”圖標
48顯示“驚嘆號”圖標
64顯示“信息”圖標
類型值默認按鈕類型
0第一個按鈕設為默認按鈕
256第二個按鈕設為默認按鈕
512第三個按鈕設為默認按鈕

一、創建定制的消息、輸入對話框

1.消息對話框

利用VBScript的MsgBox函數，可以制作隨意的Windows對話框，其句法為：

Response=MsgBox(MessageText,Type,Title)

其中：

·MessageText是一個字符串，它指定消息框將顯示的消息文本。

·Type是一個數值，它指定消息框的按鈕個數、類型以及使用的圖標和默認按鈕，其具體類型見表1。

·Title是一個字符串，它指定消息框頂部的標題文本。

·Response是一個數值變量，它返回MsgBox函數的返回值，其返回值如表2。

表1中三種類型中任選一組，將它們對應的值加在一起，便組合成不同的消息框，例如：要顯示一個有Yes、No和Cancel按鈕組合，并顯示一個問號圖標，同時將No設為默認按鈕，則只須選擇第一組中類型值為3，第二組中類型值為32，第三組中類型值為256，進行組合，MsgBox函數的Type變量值設置成3＋32＋256=291即可。

2.輸入對話框：
表2MsgBox的返
回值
返回值
點擊按鈕
1OK
2Cancel
3Abort
4Retry
5Ignore
6Yes
7No
VBScript的另一函數InputBox，利用它可在對話框里使用自己的窗口標題，并能將對話框定位于主頁的任何位置上，其句法為：

Response=InputBox(″消息″、″標題″、″默認文本″、xpos、ypos)

其中xpos代表對話框左側離屏幕左邊界的距離，ypos代表對話框右側離屏幕右邊界的距離。

3.內建Windows對話框：

警告框x=window.alert(msg)

確認框

x=window.confirm(msg)

提示輸入框

x=window.PRompt(msg,default)

其中msg為消息框顯示的消息。Default為提示框默認輸入值。

例：x=window.prompt(″請輸入您的用戶名″,″mojun″)

有了以上函數，我們只要在HTML文檔里加入以下VBScript代碼，運行時，當鼠標單擊Commandbutton1按鈕時，屏幕將顯示一消息對話框或輸入對話框，與用戶進行交互式對話，其完整的HTML代碼如下：

消息對話框顯示樣本

″value=″ClickMe″>

二、制作隨機歡迎頁面

利用VBScript的時間函數Date()、Time()及Now()何以制作一個根據當地的時間，而隨機產生的歡迎主頁頁面，根據使用的時間分別顯示“早上好!”，“下午好!”，“晚上好!”的歡迎詞。具體代碼如下：

歡迎您光臨我的主頁!
注：以上代碼在MicrosoftInternetExplorer上運行，如要在NetscapeNavigator上運行，須先安裝ScriptActive插件，本插件可以從http://www.ncopasslabs.com/products/scripactive－link.htm上下載。->

上一篇：VB創建位圖菜單

下一篇：VB6制作Win98風格的工具欄