在VB里,用戶直接使用集成的動(dòng)態(tài)HTML語(yǔ)言(簡(jiǎn)稱DHTML)來(lái)開(kāi)發(fā)

1、在VB里，用戶直接使用集成的動(dòng)態(tài)HTML語(yǔ)言（簡(jiǎn)稱DHTML）來(lái)開(kāi)發(fā)基于HTML語(yǔ)言的應(yīng)用程序。DHTML將文檔中的每一個(gè)元素都看成一個(gè)對(duì)象，通過(guò)對(duì)象的屬性、事件和方法來(lái)操縱對(duì)象以改變?yōu)g覽器中顯示的內(nèi)容。DHTML的編程與VB編程有所不同，前者以窗體為基本界面，后者則使用Web頁(yè)，但還是有很大的相似性。VB使用DHTML應(yīng)用程序設(shè)計(jì)器來(lái)開(kāi)發(fā)DHTML類型的應(yīng)用程序。單擊“新建工程”中的“DHTML應(yīng)用程序”即可打開(kāi)DHTML頁(yè)面設(shè)計(jì)器界面，參見(jiàn)圖15-1（為例15-1的設(shè)計(jì)界面）。圖15-1 DHTML頁(yè)面設(shè)計(jì)器第15章 VB與Internet 編程初步15.1 DHTML頁(yè)面設(shè)計(jì)器15.2

2、DHTML頁(yè)面設(shè)計(jì)示例15.3 VB 應(yīng)用程序的 Internet 擴(kuò)展DHTML頁(yè)面設(shè)計(jì)器有兩個(gè)窗格，即左邊的“樹(shù)形視圖”窗口和右邊的“細(xì)表”窗口，在“樹(shù)形視圖”窗口顯示HTML頁(yè)面里所有元素的分層結(jié)構(gòu)。頁(yè)面設(shè)計(jì)器為每一個(gè)元素列出其ID、控件類型，并且在某些情況下列出元素開(kāi)始的內(nèi)容。如果某個(gè)元素不包含ID，就在屬性窗口為它指定一個(gè)。具有ID的元素以粗體顯示。在“細(xì)表”窗口顯示頁(yè)面的可視化界面，在其上創(chuàng)建新的頁(yè)面或編輯已有頁(yè)面。在DHTML頁(yè)面設(shè)計(jì)器窗體的上方，有一個(gè)與Microsoft Word的格式工具欄相似的格式化工具欄，可以設(shè)置頁(yè)面的元素格式編排、字體屬性和對(duì)齊方式等內(nèi)容。在格式化工具

3、欄的下方有一排工具按鈕，分別是DHTML頁(yè)面設(shè)計(jì)器屬性、執(zhí)行編輯器、在選項(xiàng)首尾添加標(biāo)記、在選項(xiàng)首尾添加標(biāo)記、將選項(xiàng)轉(zhuǎn)化為鏈接、表操作、顯示表邊界、顯示細(xì)節(jié)、絕對(duì)位置、鎖定、絕對(duì)位置模式和順序按鈕。在創(chuàng)建DHTML工程的同時(shí)將創(chuàng)建modDHTML模塊，其中包含兩個(gè)函數(shù)：PutProperty函數(shù)和GetProperty函數(shù)。15.1 DHTML頁(yè)面設(shè)計(jì)器DHTML對(duì)象模型將DHTML中的每個(gè)元素部作為對(duì)象訪問(wèn)，每一個(gè)對(duì)象有自己的屬性、方法和事件，在創(chuàng)建應(yīng)用程序時(shí)，能夠通過(guò)VB代碼對(duì)HTML頁(yè)面的布局、位置、每個(gè)元素的特性和容器進(jìn)行動(dòng)態(tài)的修改。主要的DHTML對(duì)象有BaseWindow和Docum

4、ent。DHTML對(duì)象的事件和VB事件基本相似，但每個(gè)事件都帶有前綴on。表15-1列出了DHTML中的部分事件。事 件說(shuō) 明Onabort當(dāng)用戶單擊瀏覽器的Stop按鈕被觸發(fā)onreset當(dāng)用戶單擊瀏覽器的Refresh按鈕時(shí)被觸發(fā)onsubmit當(dāng)用戶單擊網(wǎng)頁(yè)中的提交按鈕時(shí)被觸發(fā)，通過(guò)對(duì)該事件的處理程序的編寫(xiě)，可以實(shí)現(xiàn)在數(shù)據(jù)被服務(wù)器處理前，由客戶端進(jìn)行數(shù)據(jù)有效性驗(yàn)證onbeforeunload當(dāng)前HTML文檔被下載時(shí)被觸發(fā)Onload在文檔被裝入以及所有頁(yè)面元素下載后被觸發(fā)Onunload當(dāng)前頁(yè)面被下載時(shí)立即被觸發(fā)onmouseover當(dāng)鼠標(biāo)第一次移動(dòng)到某對(duì)象時(shí)被觸發(fā)onmouseout當(dāng)

5、鼠標(biāo)移出某對(duì)象時(shí)被觸發(fā)表15-1 DHTML中的部分事件15.1.1 DHTML對(duì)象模型對(duì)象說(shuō) 明Button命令按鈕SubmitButton提交按鈕，將網(wǎng)頁(yè)中的信息提交到某個(gè)服務(wù)器ResetButton復(fù)位按鈕，清除當(dāng)前頁(yè)面上文本域的內(nèi)容TextField只有一行的文本框TextArea可支持多行輸入輸出的文本框PasswordField口令輸入框Option單選按鈕Checkbox復(fù)選按鈕Select類似于VB組合框的下拉列表框Image圖像框Hyperlink超鏈接Horizontalrule水平線Fileupload文件上載HiddenField可作為臨時(shí)存儲(chǔ)區(qū)域的隱藏文本框Input

6、Image圖像輸入域List列表框表15-2 HTML工具箱內(nèi)的控件可以采用下面列出的方法之一，通過(guò)VB為DHTML應(yīng)用程序創(chuàng)建頁(yè)面：（1）通過(guò)將VB工具箱中的HTML對(duì)象加入到頁(yè)面設(shè)計(jì)器中來(lái)創(chuàng)建頁(yè)面。（2）通過(guò)外部的HTML編輯器來(lái)創(chuàng)建頁(yè)面。（3）采用組合的方法創(chuàng)建頁(yè)面。單擊DHTML頁(yè)面設(shè)計(jì)器內(nèi)的“HTML頁(yè)面設(shè)計(jì)器屬性”工具按鈕，可打開(kāi)如圖15-2的DHTMLPage屬性對(duì)話框。如果選擇“保存HTML于外部文件中”，可以顯示“新建”和“打開(kāi)”按鈕。單擊“新建”按鈕可以在DHTML頁(yè)面設(shè)計(jì)器內(nèi)建立新的HTML文檔保存網(wǎng)頁(yè)內(nèi)容。單擊“打開(kāi)”按鈕可以將其他外部編輯器建立的HTML文檔導(dǎo)入到DH

7、TML頁(yè)面設(shè)計(jì)器中。如果選擇“保存HTML作為VB工程的一部分”，則所設(shè)計(jì)網(wǎng)頁(yè)的HTML代碼將保存在Dsx文件中。15.1.2 設(shè)計(jì)DHTML頁(yè)面的方法圖15-2 樹(shù)形視圖窗口例15-1：設(shè)計(jì)如圖15-3所示網(wǎng)頁(yè)。（1）新建工程時(shí)選擇“DHTML應(yīng)用程序”，打開(kāi)圖15-1所示的DHTML頁(yè)面設(shè)計(jì)器，雙擊工程資源管理器中“設(shè)計(jì)器”文件夾中的“DHTMLPage1”打開(kāi)中間兩個(gè)窗口。（2）在“細(xì)表”窗口輸入“藍(lán)天出版社歡迎您”、“新書(shū)介紹”、“ 讀者園地”、“聯(lián)系方式”四行文字，每輸入一行回車。（3）格式化四行文字，如將“藍(lán)天出版社歡迎您”字體設(shè)置為“華文彩云”，字號(hào)為6號(hào)。（4）如有必要，在屬性

8、窗口設(shè)置每行文本的顏色（Color）屬性，如將“藍(lán)天出版社歡迎您”設(shè)置為紅色（red）。15.2 DHTML頁(yè)面設(shè)計(jì)示例（5）單擊HTML工具箱中的image控件，在第一行文本的左邊畫(huà)出一定大小的圖像框，右鍵單擊該圖像框，從快捷菜單中選擇“屬性”，打開(kāi)該圖像框的“屬性”對(duì)話框，單擊其中“圖像源”欄右邊的按鈕，查找合適的圖片，關(guān)閉“屬性”對(duì)話框。在屬性窗口將align屬性為左對(duì)齊（left）。在樹(shù)形視圖窗口的BODY標(biāo)記中列出了正在工作的HTML網(wǎng)頁(yè)的原始內(nèi)容。BODY標(biāo)記包含了控制Web網(wǎng)頁(yè)內(nèi)容的基本圖形外觀和動(dòng)作的指令，參見(jiàn)圖15-2。（6）單擊DHTML頁(yè)面設(shè)計(jì)器內(nèi)的“HTML頁(yè)面設(shè)計(jì)器屬

9、性”工具按鈕，可打開(kāi)如圖15-3的DHTMLPage屬性對(duì)話框。單擊“保存HTML于外部文件中”按鈕，輸入文件名“c:myhtml1.htm”。 （7）單擊“文件”菜單中的“保存”或“另存為”命令，保存所有文件，首先保存的是代碼文件.bas，取文件名為myhtml1.bas，其次保存的是類似于窗體文件的設(shè)計(jì)師文件.dsr，取文件名為myhtml1.dsr，最后保存工程文件.vbp，取名為myhtml1.vbp。設(shè)計(jì)師文件是包含HTML頁(yè)面全部格式和控件的文件，有SourceFile和BuildFile屬性，分別用來(lái)指定設(shè)計(jì)階段導(dǎo)入的外部HTML文件和最后形成的HTML文件。代碼文件則包含瀏覽器

10、包所提供的PutProperty和GetProperty操作的函數(shù)。程序運(yùn)行效果參見(jiàn)圖15-4。注意地址欄中的顯示內(nèi)容，這是VB在內(nèi)存中編譯DHTML應(yīng)用程序時(shí)，在硬盤(pán)上建立的、用于存儲(chǔ)程序的一個(gè)臨時(shí)文件。 圖15-3 DHTMLPage屬性對(duì)話框 圖15-4 在瀏覽器中瀏覽頁(yè)面例15-2：圖15-4所示為利用Microsoft FrontPage制作的的網(wǎng)頁(yè)。在例15-1的工程中，添加該網(wǎng)頁(yè)，并創(chuàng)建兩個(gè)網(wǎng)頁(yè)的鏈接。（1）在例15-1的設(shè)計(jì)窗口單擊“工程”中的“添加DHTML Page”命令，加入第二個(gè)頁(yè)面設(shè)計(jì)器DHTMLPage2。（2）打開(kāi)DHTMLPage2屬性對(duì)話框，選擇“保存HTML

11、于外部文件中”按鈕，單擊“打開(kāi)”按鈕，瀏覽并選擇圖15-5網(wǎng)頁(yè)的文件名“c:myhtml2.htm”。（3）選定DHTMLPage1中的“新書(shū)介紹”文本，單擊工具條中的“將選項(xiàng)轉(zhuǎn)化為鏈接”按鈕將該文本格式化為超鏈接。（4）打開(kāi)如圖15-6所示“新書(shū)介紹”文本超鏈接的屬性頁(yè)，單擊“瀏覽”按鈕，瀏覽并選擇圖15-5網(wǎng)頁(yè)的文件名“c:myhtml2.htm”?；蛘邌螕簟皹?shù)形視圖”窗口中的Hyperlink標(biāo)記，然后在屬性窗口的href屬性欄內(nèi)輸入鏈接目標(biāo)。 也可以為任意一個(gè)事件或元素編寫(xiě)代碼來(lái)創(chuàng)建網(wǎng)頁(yè)之間的漫游，如：Private Function Hyperlink1_onclick() As B

12、ooleanBaseWindow.navigate myhtml2.htmEnd Function這里使用相對(duì)URL，也可以使用絕對(duì)URL：“c: myhtml2.htm”。采用上述方法，兩個(gè)網(wǎng)頁(yè)共用一個(gè)瀏覽器中打開(kāi)。如果希望在不同的瀏覽器窗口顯示不同的網(wǎng)頁(yè)，可以使用BaseWindow對(duì)象的Open方法，由Open方法指定第二個(gè)頁(yè)面的URL實(shí)現(xiàn)鏈接：Private Function Hyperlink1_onclick() As BooleanBaseWindow.open myhtml2.htmEnd Function 圖15-6 屬性頁(yè)圖15-5 在瀏覽器中瀏覽myhtml2網(wǎng)頁(yè)例15-

13、3：用SAPN標(biāo)記符標(biāo)記圖15-1中的“藍(lán)天出版社”文本，用DIV標(biāo)記符標(biāo)記圖15-1中的“聯(lián)系方式”文本。程序運(yùn)行時(shí)，當(dāng)鼠標(biāo)移動(dòng)到“藍(lán)天出版社”文本上時(shí)顯示一幅圖片，鼠標(biāo)移出“藍(lán)天出版社”文本上時(shí)不顯示圖片。當(dāng)單擊“聯(lián)系方式”文本上后其字體顏色變?yōu)榧t色。實(shí)現(xiàn)圖片的顯示與隱藏的代碼為：Private Sub NUM1_onmouseout() Image2.Style.visibility = hidden 在DHTMLPage_Load事件過(guò)程中應(yīng)加入同樣的代碼End SubPrivate Sub NUM1_onmouseover() Image2.Style.visibility = vi

14、sibleEnd SubPrivate Sub num3_onmouseover() NUM3.Style.Color = redEnd Sub改變“聯(lián)系方式”字體顏色的代碼為：Private Sub NUE3_onclick () NUM3.Style.Color = blueEnd Sub例15-4：編寫(xiě)代碼，實(shí)現(xiàn)當(dāng)加載例15-1的網(wǎng)頁(yè)時(shí)，播放一個(gè)WAV格式的音樂(lè)文件，如“c:welcome.wav”。（1）利用“部件”對(duì)話框在工具箱中加載Multimedia MCI控件。（2）將Multimedia MCI控件添加到網(wǎng)頁(yè)中，并拖曳到頁(yè)面的左邊緣上。注：將某個(gè)控件拖曳到頁(yè)面的左邊緣上可以使

15、該控件隱含，如果要重新顯示該控件，可以在樹(shù)形窗口中選定該控件，然后利用方向鍵移動(dòng)到頁(yè)面窗體內(nèi)。（3）編寫(xiě)代碼：Private Sub DHTMLPage_Load() MMControl1.Notify = FALSE ： MMControl1.Wait = TRUE MMControl1.Shareable = FALSE ： MMControl1.DeviceType = WaveAudio MMControl1.FileName = c:welcome.wav MMControl1.Command = Open : MMControl1.Command = playEnd Sub例15-

16、5：頁(yè)面之間的數(shù)據(jù)傳遞在例15-1中，當(dāng)單擊“新書(shū)介紹”時(shí)，打開(kāi)第二個(gè)網(wǎng)頁(yè)，單擊“放入購(gòu)書(shū)欄”，然后單擊第三個(gè)網(wǎng)頁(yè)中的“增書(shū)”按鈕，則將該行讀書(shū)放入購(gòu)書(shū)欄（即添加到第三個(gè)網(wǎng)頁(yè)的List1控件中）。參見(jiàn)圖15-7。 圖15-7 頁(yè)面間的數(shù)據(jù)傳遞（1）在例15-1中添加第三個(gè)網(wǎng)頁(yè)，在頁(yè)面上添加一個(gè)List1控件和Button控件（Value屬性值為“增書(shū)”）。（2）為第二個(gè)網(wǎng)頁(yè)的每個(gè)書(shū)名加上ID屬性值（依次為Book1、Book2、Book3等）。（3）為每個(gè)“放入購(gòu)書(shū)欄”所在單元格加上ID屬性值（依次為purchase1、purchase2、purchase3等）。（4）為使用Internet

17、Explorer屬性包，在“引用”對(duì)話框中選中“Microsoft Internet Controls”對(duì)象庫(kù)SHDOCVW.DLL。（5）在模塊文件中加上如下代碼（一般會(huì)自動(dòng)添加這些代碼）：Public objWebBrowser As WebBrowser 聲明瀏覽器對(duì)象變量Public Sub PutProperty(strName As String, vntValue As Variant) 檢查是否有一個(gè)瀏覽器實(shí)例，若沒(méi)有則打開(kāi)瀏覽器 If objWebBrowser Is Nothing Then Set objWebBrowser = New WebBrowser 調(diào)用瀏覽器的

18、 PutProperty 方法來(lái)存儲(chǔ)控件對(duì)象的值 objWebBrowser.PutProperty strName, vntValueEnd SubPublic Function GetProperty(strName As String) As Variant If objWebBrowser Is Nothing Then Set objWebBrowser = New WebBrowser 調(diào)用瀏覽器的 GetProperty 方法來(lái)檢索控件對(duì)象的值 GetProperty = objWebBrowser.GetProperty(strName)End Function瀏覽器Inter

19、net Explorer屬性包中的PutProperty函數(shù)和GetProperty函數(shù)用來(lái)在Web頁(yè)面之間傳遞數(shù)據(jù)PutProperty函數(shù)儲(chǔ)信息到屬性包的臨時(shí)區(qū)域，參數(shù)vntValue 為存儲(chǔ)的值，參數(shù)strName指示該存儲(chǔ)值的變量名稱。GetProperty函數(shù)通過(guò)變量名稱從屬性包中檢索信息，如果變量名稱沒(méi)有找到，則返回空字符串。（6）為每個(gè)“放入購(gòu)書(shū)欄”單元格單擊事件編寫(xiě)如下類似的代碼：Private Function purchase1_onclick() As Boolean If purchase1.innerHTML 已購(gòu) Then purchase1.innerHTML =

20、 已購(gòu) PutProperty ch1, book1.innerHTML End IfEnd Function（7）為第三個(gè)網(wǎng)頁(yè)的Button1控件的單擊事件編寫(xiě)如下代碼：Private Function Button1_onclick() As Boolean Dim e As HTMLOptionElement Set e = Document.createElement(OPTION) e.Text = GetProperty(ch1) e.Value = ListItemValue List1.Options.Add eEnd Function（8）為打開(kāi)第三個(gè)網(wǎng)頁(yè)，編寫(xiě)如下代碼：Pr

21、ivate Sub DHTMLPage_Load() BaseWindow.open myhtml03.htmEnd Sub15.3 VB 應(yīng)用程序的 Internet 擴(kuò)展Visual Basic6.0提供了許多控件用于Internet編程，這些控件是：（1）Internet Transfer 控件。（2）WebBrowser控件。（3） WinSock控件。這里僅就 Internet Transfer 控件作簡(jiǎn)單的介紹。使用 Internet Transfer 控件可以通過(guò) OpenURL 或 Execute 方法連接到任何使用這三個(gè)協(xié)議的站點(diǎn)并檢索文件。其基本操作如下：（1）在“部件”對(duì)

22、話框中選中“Microsoft Internet Transfer Controls”選項(xiàng)。（2）將 AccessType 屬性設(shè)置為合法的代理服務(wù)器。AccessType 屬性設(shè)置值為：0-icUseDefault：控件使用注冊(cè)表中的缺省設(shè)置訪問(wèn)Internet。1-icDirect：控件可以直接連接到Internet。2-icNamedProxy：控件使用Proxy屬性確定代理服務(wù)器。（3）用合法的 URL 調(diào)用 OpenURL 方法（4）用合法的 URL 和協(xié)議支持的命令調(diào)用 Execute 方法。（5）用 GetChunk 方法從緩沖區(qū)獲取數(shù)據(jù)。OpenURL 方法用于打開(kāi)并返回指定

23、URL 的文檔。文檔以變體型返回。該方法完成時(shí)，URL 的各種屬性（以及該 URL 的一些部分，如協(xié)議）將被更新，以符合當(dāng)前的 URL。語(yǔ)法object.OpenUrl url ,datatype例如下面的 URL 將返回在 中找到的 HTML 文檔：Text1.Text = Inet1.OpenURL(http:/)在這種情況下，缺省操作返回的是 URL 定位的 HTML 文檔。然而，如果 URL 被改為指向文本文件，則將獲得實(shí)際的文件。例如，下面的代碼：Text1.Text = Inet1. OpenURL(ftp:/ OpenURL 方法如果需要將通過(guò) OpenURL 方法獲取的數(shù)據(jù)保存

24、到文件，可以使用 Open、Put 和 Close 語(yǔ)句，如下面的代碼所示。該示例先將獲得的二進(jìn)制文件傳入 Byte 數(shù)組，然后將該數(shù)據(jù)保存到磁盤(pán)中：Dim strURL As StringDim bData() As Byte 數(shù)據(jù)變量Dim intFile As Integer 可用文件變量strURL = ftp:/ xeintFile = FreeFile() 將 intFile 設(shè)置為未使用的文件 OpenURL 方法的結(jié)果首先傳入 Byte 數(shù)組，然后將 Byte 數(shù)組保存到磁盤(pán)。bData() = Inet1.OpenURL(strURL, icByteArray)Open C:

25、TempSoftlib.e xe For Binary Access Write _ As #intFilePut #intFile, , bData()Close #intFile可用類似的過(guò)程將文本文件寫(xiě)入磁盤(pán)中，不同的只是不再需要 Byte 數(shù)組了，數(shù)據(jù)可以直接保存到文件中：Dim strURL As String URL 字符串Dim intFile As Integer 可用文件變量IntFile = FreeFile()strURL = http:/Open c:tempMSsource.txt For Output _As #IntFileWrite #IntFile, Inet

26、1.OpenURL(strURL)Close #IntFile可以用包含附加數(shù)據(jù)的 URL 調(diào)用 OpenURL 方法。例如，很多 Web 站點(diǎn)提供了搜索數(shù)據(jù)庫(kù)的能力。要搜索數(shù)據(jù)庫(kù)，則需要在發(fā)送的 URL 中包含搜索條件。例如下面的代碼用條件“find=Maui”調(diào)用名為“search.exe”的搜索引擎。Dim strURL As StringstrURL = http:/ xe?find=mauiText1.Text = Inet1.OpenURL(strURL)如果搜索引擎找到了符合條件的內(nèi)容，將合成一個(gè) HTML 文檔并攜帶適當(dāng)?shù)男畔⒎祷?。下面的示例使?OpenURL 屬性來(lái)檢索 F

27、TP 服務(wù)器的目錄。在窗體中放置一個(gè) Internet Transfer 控件和一個(gè) RichTextBox 控件。然后，把這段代碼粘貼到聲明部分。Private Sub Form_DblClick() Inet1.AccessType = icUseDefault RichTextBox1.Text = Inet1.OpenURL _ (InputBox(URL, , ftp:/)End SubExecute 方法執(zhí)行對(duì)遠(yuǎn)程服務(wù)器的請(qǐng)求命令，這些命令可以是接受文件、發(fā)送文件甚至是刪除遠(yuǎn)程服務(wù)器的目錄，以異步方式工作，其語(yǔ)法格式為：object.Execute url, operation, data, requestHeaders例如，要從遠(yuǎn)程計(jì)算機(jī)中得到一個(gè)文件，可用下面的代碼：Inet1.Execute FTP:/, GET test.txt C:Temptest.txt如果正在用 FTP 從匿名 FTP 服務(wù)器中獲取文件，就應(yīng)熟悉在服務(wù)器目錄樹(shù)中漫游的特定命令，以及將其中文件獲取到本地的硬盤(pán)中的命令。例如，要用 FPT 協(xié)議改變目錄，應(yīng)使用帶有