经典:VB6+网络编程语言(Dhtml等)开发高级网页编辑器完整代码+注释,强..

经典:VB6+网络编程语言(Dhtml等)开发高级网页编辑器完整代码+注释,强..(2) If a = "" Then
web.Document.execcommand "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.lshdic.com/download/lshdic/vb_editdhtml.zip 下载