經典:VB6+網絡編程語言(Dhtml等)開發高級網頁編輯器完整代碼+注釋,強..

´早就想發表一篇關于VB的 WebBrowser瀏覽器控件 和 Dhtmledit/DhtmlSafe網頁MSHTML編輯控件 的文章
´今晚有空,就以 WebBrowser控件 為例子代表所有的VB6開發網頁編輯控件,寫了一篇VB6開發高級網頁程序的簡單教程
´更多更好的 網絡+軟件編程 文章請登陸我的網站 查找

´閑話少說下面跟我一起動手一步一步將以下完整程序復原為標準的VB6程序
´第一步,啟動VB6,添加Microsoft Internet Controls 至控件工具箱中,這便是WebBrowser控件
´第二步,拖動WebBrowser控件圖標至窗體編輯器中,在拖一個textbox控件和8個按紐
´第三步,WebBrowser控件的Name設置為web,textbox則為text1,command則為command1,2,3,4,5,6,7,8
´OK,下面將以下代碼整個復制到VB6的原代碼編輯器中,然后運行程序自行實驗便了^o^

Dim a As String        ´定義一個判斷變量,為了以后根據此變量來進行 編輯/瀏覽 模式切換

Private Sub Command1_Click()         ´寫入:將text1里面的DHTML語句寫入到瀏覽器
web.Document.write Text1.Text
End Sub

Private Sub Command2_Click()         ´讀取:msgbox 出瀏覽器中原文件
MsgBox web.Document.All(0).outerHTML
End Sub

Private Sub Command3_Click()         ´背景變紅:瀏覽器背景變紅,使用了瀏覽器的document對象
web.Document.bgColor = "Red"
End Sub

Private Sub Command4_Click()         ´連接變黃:瀏覽器中所有超連接顏色變黃
For i = 0 To web.Document.links.Length - 1
web.Document.links(i).Style.Color = "yellow"
Next
End Sub

Private Sub Command5_Click()         ´使用JS語句彈出對話框
If web.Document.parentwindow.confirm("是否要顯示alert???") Then web.Document.parentwindow.alert "OK"
End Sub

Private Sub Command6_Click()         ´使用VBS語句彈出對話框
web.Document.parentwindow.execScript "if msgbox (´是否要顯示msgbox???´,vbInformation+vbYesNo,´問題´)=vbyes then msgbox ´可以´", "vbs"
End Sub
Private Sub Command7_Click()         ´瀏覽器的編輯和瀏覽模式自由切換
If a = "" Then
web.Document.execlearcase/" target="_blank" >ccommand "editMode"
a = "yes"
Else
web.Document.execcommand "BrowseMode"
a = ""
End If
End Sub

Private Sub Command8_Click()         ´使用瀏覽器的window對象彈出新窗口,并在新窗口中寫入瀏覽器的原文件
Set str1 = web.Document.parentwindow.Open()
str1.Document.Open
str1.Document.write web.Document.All(0).outerHTML
str1.Document.Close
End Sub

Private Sub Form_Load()         ´窗口啟動時使瀏覽器不為空白狀態,使其顯示“找不到服務器”頁面
web.Navigate " "
End Sub

´利用微軟提供的這些控件本身做不了什么事情,應充分發揮其支持 html,css,js,vbs,vml,dhtml 的特性,才能制作出完美的網頁編輯器程序
´這就要求您本身這方面網絡編程技術要高,才能充分的發揮VB6的作用,可見網絡編程充分的擴展了VB6的功能,而document對象則是引用網絡編程的接口
´以上程序的完整范例原代碼請訪問 下載

原文轉自：http://www.anti-gravitydesign.com