📄 vb6-
字号:
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; Charset=gb2312">
<META name="GENERATOR" content="网络程序员伴侣-Lshdic 2002">
<STYLE>
a{text-Decoration:none;}
a:hover{color:red;text-Decoration:underline}
td{font-size:12px}
</STYLE>
</HEAD>
<BODY alink='red' vlink='#6772CD' link='#6772CD' style='margin:1;'>
<table width='770' align=center cellspacing=0 cellpadding=0><tr><Td>
<!--以下为左方导航表-->
<TABLE cellspacing=0 cellpadding=0 width=135 align='left' bgcolor='#BBE2F5' rules=none frame=lhs bordercolordark=white bordercolorlight=dddddd border=1>
<TR>
<Td valign=top height=722 id=myid2><img src='image/right.gif'> <A href='newuser.asp' style='color:Red'>注册会员</a> <a href='olduser.asp' style='color:red'>会员登陆</a><p>
注册会员:1171人<br>
当前在线:2人<br>
今日访问:6次<br>
总共访问:245次
<p> <br>用户:<a href='ismy.asp?user=Lshdic' target='_blank'>Lshdic</a><br>
<img src='image/user25.gif' width='60' height='60' align=left>
经验:20305<br>
身份:版主<br>
<a href='exitbbs.asp?user=lshdic' style='color:green'>退出登陆</a><br>
<a href='xiougai.asp' style='color:green'>修改档案</a><p> <br>
┏论坛栏目┓<A href='../index.asp' style='color:red'>首页</a> <A href='index.asp' style='color:red'>论坛</a><p>
<TABLE cellspacing=0 cellpadding=2 width=100% id=instrtab><tr><Td>
1:<A href='page.asp?dex=网页版面美工设计' style='color:1210dd'>网页版面美工设计</a><p>
2:<a href='page.asp?dex=网页前台脚本编程' style='color:1210dd'>网页前台脚本编程</a><p>
3:<a href='page.asp?dex=网页后台脚本编程' style='color:1210dd'>网页后台脚本编程</a><p>
4:<a href='page.asp?dex=Xml与Net时代编程' style='color:1210dd'>Xml与Net时代编程</a><p>
5:<a href='page.asp?dex=软件开发交流论坛' style='color:1210dd'>软件开发交流论坛</a><p>
6:<a href='page.asp?dex=讨论区及其他学术' style='color:1210dd'>讨论区及其他学术</a><p align=left>┏会员特有权利┓___<p style='line-height:1.5'>
1:<a href='instr.asp' style='color:A36424;font-weight:bold'>搜索所有帖子</a><br>
2:<a href='instr2.asp?page=1&strs=lshdic&rad1=作者&dex=网页版面美工设计,网页前台脚本编程,网页后台脚本编程,网站站长经验交流,软件开发交流论坛,蓝丽论坛站务讨论' style='color:A36424;font-weight:bold'>我提出过的问题</a><br>
3:<a href='duanxiaoxi.asp?page=1' style='color:A36424;font-weight:bold'>收发短消息</a><br>
4:<a href='jinghua.asp?dex=软件开发交流论坛' style='color:A36424;font-weight:bold'>显示本版精华贴OK</a><br>
5:<a href='../wenzhang.asp' style='color:A36424;font-weight:bold'>技术文章库</a><br>
6:<a href='../friendabout.asp' style='color:A36424;font-weight:bold' target='_blank'>论坛会员档案库</a><p>
<a href='http://www.lshdic.com/bbs'>©蓝丽论坛v<font color=red>2003.1</font></a>
</td></tr></table>
</td></TR></TABLE>
<script>
function window.onload(){
try{
myid2.height=window.document.body.scrollHeight}
catch(e){}
}
</script>
<TITLE>VB原创:用WebBrowser控件结合网络编程开发高级网页编辑器经典教程 -- Lshdic程序员论坛</TITLE>
<!--以下为右方内容表-->
<TABLE cellspacing=0 cellpadding=3 width=635 bordercolordark='white' bordercolorlight='black' cellspacing=0 cellpadding=0 border=1 rules=none frame=rhs>
<tr><td bgcolor=#6F81BC style='color:white' colspan=2><img src='image/redfile.gif' width=13 height=13> <b>主题</b>:VB原创:用WebBrowser控件结合网络编程开发高级网页编辑器经典教程 来自<a href='page.asp?dex=软件开发交流论坛' style='color:yellow'>软件开发交流论坛</a>,阅读66次
</td></tr><Tr bgcolor=eeeeee>
<Td width=120 align=center valign=top> <br>
<img src='image/user25.gif' height=90 width=90>
<br>楼主:<a href='ismy.asp?user=lshdic' target="_blank" title='点击查看lshdic的资料'>lshdic</a><br>经验:20305点<br><font color=#6772CD>神终级:宿命传说</font><br>02-11-28 18:01:51<br>
给作者<a href='duanxiaoxi.asp?emailto=Lshdic'>发送短消息</a><br><p><a href='userboos.asp?dex=软件开发交流论坛&areyou=编辑&myclass=203&isdex=true&page=1'>编辑</a> <a href='userboos.asp?dex=软件开发交流论坛&areyou=锁定&myclass=203&isdex=true&page=1'>锁定</a> <a href='userboos.asp?dex=软件开发交流论坛&areyou=转移&myclass=203&isdex=true'>转移</a> <a href=javascript:if(confirm('确实要删除该贴吗?'))location='userboos.asp?dex=软件开发交流论坛&areyou=删除&myclass=203&isdex=true'>删除</a>
<script>
function openw(values){
open1=window.open('','','resizable=1,scrollbars=1,menubar=0,toolbar=0,directories=0');
open1.document.open()
open1.document.write(values);
open1.document.close()
}
</script>
</td><td valign=top name=tds1>
<div style='word-Break:break-all;overflow:auto;width:490;line-height:1.5;border:1 solid orange;padding:5;border-top:0;border-right:0' id=htmdiv1>
'早就想发表一篇关于VB的 WebBrowser浏览器控件 和 Dhtmledit/DhtmlSafe网页MSHTML编辑控件 的文章<br>'今晚有空,就以 WebBrowser控件 为例子代表所有的VB6开发网页编辑控件,写了一篇VB6开发高级网页程序的简单教程<br><br>'闲话少说下面跟我一起动手一步一步将以下完整程序复原为标准的VB6程序<br>'第一步,启动VB6,添加Microsoft Internet Controls 至控件工具箱中,这便是WebBrowser控件<br>'第二步,拖动WebBrowser控件图标至窗体编辑器中,在拖一个textbox控件和8个按纽<br>'第三步,WebBrowser控件的Name设置为web,textbox则为text1,command则为command1,2,3,4,5,6,7,8<br>'OK,下面将以下代码整个复制到VB6的原代码编辑器中,然后运行程序自行实验便了^o^<br><br>Dim a As String '定义一个判断变量,为了以后根据此变量来进行 编辑/浏览 模式切换<br><br>Private Sub Command1_Click() '写入:将text1里面的DHTML语句写入到浏览器<br>web.Document.write Text1.Text<br>End Sub<br><br>Private Sub Command2_Click() '读取:msgbox 出浏览器中原文件<br>MsgBox web.Document.All(0).outerHTML<br>End Sub<br><br>Private Sub Command3_Click() '背景变红:浏览器背景变红,使用了浏览器的document对象<br>web.Document.bgColor = "Red"<br>End Sub<br><br>Private Sub Command4_Click() '连接变黄:浏览器中所有超连接颜色变黄<br>For i = 0 To web.Document.links.Length - 1<br>web.Document.links(i).Style.Color = "yellow"<br>Next<br>End Sub<br><br>Private Sub Command5_Click() '使用JS语句弹出对话框<br>If web.Document.parentwindow.confirm("是否要显示alert???") Then web.Document.parentwindow.alert "OK"<br>End Sub<br><br>Private Sub Command6_Click() '使用VBS语句弹出对话框<br>web.Document.parentwindow.execScript "if msgbox ('是否要显示msgbox???',vbInformation+vbYesNo,'问题')=vbyes then msgbox '可以'", "vbs"<br>End Sub<br>Private Sub Command7_Click() '浏览器的编辑和浏览模式自由切换<br>If a = "" Then<br>web.Document.execcommand "editMode"<br>a = "yes"<br>Else<br>web.Document.execcommand "BrowseMode"<br>a = ""<br>End If<br>End Sub<br><br>Private Sub Command8_Click() '使用浏览器的window对象弹出新窗口,并在新窗口中写入浏览器的原文件<br>Set str1 = web.Document.parentwindow.Open()<br>str1.Document.Open<br>str1.Document.write web.Document.All(0).outerHTML<br>str1.Document.Close<br>End Sub<br><br>Private Sub Form_Load() '窗口启动时使浏览器不为空白状态,使其显示“找不到服务器”页面<br>web.Navigate " "<br>End Sub<br><br>'利用微软提供的这些控件本身做不了什么事情,应充分发挥其支持 html,css,js,vbs,vml,dhtml 的特性,才能制作出完美的网页编辑器程序<br>'这就要求您本身这方面网络编程技术要高,才能充分的发挥VB6的作用,可见网络编程充分的扩展了VB6的功能,而document对象则是引用网络编程的接口<br>'以上程序的完整范例原代码请访问 <a href='http://www.lshdic.com/download/lshdic/vb_editdhtml.zip' target='_blank'>http://www.lshdic.com/download/lshdic/vb_editdhtml.zip</a> 下载
<p align=right style='color:gray'>蓝丽程序员论坛收录 http://www.lshdic.com</div><br>
<input type=button value='运行在浏览器查看' style='background-color:eeeeee;border:1 cccccc solid;width:120' onclick="openw(htmdiv1.innerText)"><input type=button value='快速编辑' style='background-color:eeeeee;border:1 cccccc solid;' onclick="try{htmdiv1.contentEditable=true}catch(e){alert('您的浏览器版本过低无法使用该功能')}"> <font color=aaaaaa>注意:运行在浏览器查看时请注意含有恶意程序</a>
<p><font color=red>- - - - - - - - - - - - - - - -</font><p><font color=gray>人生尤如风云月,风来月走又一生<br>今宵愿于诸君醉,来日相别痛难绝<br>红颜一别难相见,思念欲泪恨不白<br>今生注是风云舞,何不把盏快一回<br>问何世事去匆匆,到问欲留却不住<br>悲欢聚散醉过后,惊雷醒来空空空<br><br>谁说程序员不会写诗？哈哈^o^</font></td></tr>
<Tr bgcolor=eeeeee><Td align=right colspan=2>本版版主特别权利:
<a href='boos.asp?dex=软件开发交流论坛&areyou=提前&myclass=203&isdex=true'>提前</a>
<a href='boos.asp?dex=软件开发交流论坛&areyou=修改&myclass=203&isdex=true&page=1'>修改</a>
<a href='boos.asp?dex=软件开发交流论坛&areyou=锁定&myclass=203&isdex=true'>锁定</a>
<a href='boos.asp?dex=软件开发交流论坛&areyou=置顶&myclass=203&isdex=true'>置顶</a>
<a href='boos.asp?dex=软件开发交流论坛&areyou=转移&myclass=203&isdex=true'>转移</a>
<a href='javascript:if(confirm("确实要删除该贴吗?"))location="boos.asp?dex=软件开发交流论坛&areyou=删除&myclass=203&isdex=true&page=1"'>删除</a>
</td></tr>
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -