'
早就想发表一篇关于VB的 WebBrowser浏览器控件 和 Dhtmledit/DhtmlSafe网页MSHTML编辑控件 的文章
' 今晚有空,就以 WebBrowser控件 为例子代表所有的VB6开发网页编辑控件,写了一篇VB6开发高级网页程序的简单教程
' 更多更好的 网络+软件编程 文章请登陆我的网站 http://www.lshdic.com 查找
' 闲话少说下面跟我一起动手一步一步将以下完整程序复原为标准的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.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 下载
' 今晚有空,就以 WebBrowser控件 为例子代表所有的VB6开发网页编辑控件,写了一篇VB6开发高级网页程序的简单教程
' 更多更好的 网络+软件编程 文章请登陆我的网站 http://www.lshdic.com 查找
' 闲话少说下面跟我一起动手一步一步将以下完整程序复原为标准的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.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 下载