说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB利用IE控件访问Internet

HTML文档下载 WORD文档下载 PDF文档下载
VB利用IE控件访问Internet
长沙 陈锐
这里向大家介绍一种利用IE3.X提供的控件编程访问Internet网页的方法。
IE控件
如果机器中安装了IE3.X,在VB5.0的控件(Component)列表窗口中就会有一
个名为Microsoft Internet Controls的控件,选取该控件,并将它加到Form中。
该控件有以下几个重要的方法:
GoHome:装入IE设定的起始页。
用法:object.GoHome
Navigate:装入页面。
用法:object.Navigateurl
url为URL地址,如"../../www.microsoft.com/index.htm"
GoBack:返回上一个页面。
用法:object.GoBack
GoForward:进入下一个页面。
用法:object.GoForward
Stop:停止载入页面。
用法:object.Stop
该控件有以下重要事件:
BeforNavigateEvent:在每次装入页面前调用,声明如下:
PrivateSubobject_BeforeNavigate(ByVal URL As String,ByVal Flags
As Long,ByVal TargetFrameName As String,PostData As Variant,ByVal
Headers As String,Cancel As Boolean)
其中的URL参数为将要装入的页面地址。
StatusTextChangEvent:每次浏览器的操作状态改变时调用,声明如下:
PrivateSubWebBrowser1_StatusTextChange(ByVal Text As String)
Text:浏览器的操作状态。
访问方法
下面介绍如何通过编程实现对WWW的访问。
在Form中添加Microsoft Internet Control控件显示页面。
在Form中添加4个CommandButton控件,Name属性分别为:GoButton、BackButton、
ForwardButton、StopButton,用这4个CommandButton可以实现对浏览器的操作。
在Form中添加一个TextBox控件,用来输入和显示当前的页面地址。
在Form中添加Label控件,用来显示当前浏览器操作状态。
程序如下:
Private Sub BackButton_Click()
' 返 回 上 一 个 页 面
WebBrowser1.GoBack
End Sub
Private Sub Form_Load()
' 程 序 装 入 后 进 入IE 设 定 的 起 始 页
WebBrowser1.GoHome
End Sub
Private Sub Form_Resize()
' 改 变 窗 口 大 小 后 同 时 改 变 控 件 的 大 小
WebBrowser1.Width = Form1.ScaleWidth
WebBrowser1.Height = Form1.ScaleHeight - 900
Label1.Width = Form1.ScaleWidth
Label1.Top = Form1.ScaleHeight - 300
End Sub
Private Sub ForwardButton_Click()
' 进 入 下 一 个 页 面
WebBrowser1.GoForward
End Sub
Private Sub GOButton_Click()
' 浏 览 输 入 的 页 面
WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub StopButton_Click()
' 停 止 浏 览
WebBrowser1.Stop
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
' 浏 览 输 入 的 页 面
If KeyAscii = 13 Then
WebBrowser1.Navigate (Text1.Text)
End If
End Sub
Private Sub WebBrowser1_BeforeNavigate
(ByVal URL As String, ByVal Flags As Long,
ByVal TargetFrameName As String, PostData As Variant,
ByVal Headers As String, Cancel As Boolean)
' 将 当 前 显 示 的 页 面 的URL 地 址 显 示 在Text1 上
Text1.Text = URL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'Label1 显 示 当 前 页 面 装 入 情 况
Label1.Caption = Text
End Sub
该程序在Win95、VB5.0下运行通过。


谷歌发布超高清触屏笔记本Chromebook Pixel 传谷歌正开发触屏Chrome OS笔记本 今年或上市 估值25亿 视觉社交网站Pinterest融资2亿美元 跨平台开发框架Xamarin 2.0发布 移动新趋势:扁平化设计 vs. 拟物化设计(上篇) 杂谈 App Store 之 HIG 与 Objective-C 为什么苹果三星将主宰智能电视未来? 罗永浩可爱多:Smartisan OS即将发布 春晚 VS. 移动应用:用户注意力统计报告 Twitter发布BootStrap 2.3版本! 面向对象编程从骨子里就有问题——看看名人大家是如何诋毁面向对象的 开发者及团队能从LibreOffice那里学到什么? 8000美元存储135TB数据:打造开源的存储硬件 Bing,每月27亿的有效搜索不及僵尸网络的一半 为什么说Amazon的James Hamilton是“可遇不可求”的? Facebook背后的数据团队 红帽将产品转移到Apache社区 Impala是如何提升3~90倍查询效率的? 云中保障数据安全及完整性必须防范的遗留问题 VMware推出移动性平台:VMware Horizon Suite 移动周报:全球最大校园Hackathon的参赛宝典 Unity3D首届游戏创意设计大赛开始报名 中国日报:向移动新媒体蜕变 C#五子棋程序设计 Mozilla宣布推出Firefox OS 面临四大问题 Ruby 2系列首个稳定版 Ruby 2.0.0-P0发布 微软改进Windows Blue搜索 系统或今夏推出 移动新趋势:扁平化设计 vs. 拟物化设计(下篇) 传奇程序员:Minecraft开发者Notch大神 让沟通更便捷 ConnectYard宣布推出全新的Web API 在Hadoop上运行SQL:程序员需知晓的13种数据工具 在olecontainer里面调出的excel文档,如何使之不可编辑。 急救啊!这个字体怎么设置? 请问在jcreator下能不能编译成exe啊? small_wei进来领分! 初学这样的,觉得是很简单的思路,但找不出错误,有经验的帮忙看看 if a sql syntan can succeed in sql but asp... GDI+的问题 谁有FLASH的注册码,给个,谢谢 怎样用js写一个终止程序,类似asp的response.end 求教:学习MFC文件系统-针对一段代码的3个初学者问题 如何使98一开机就运行屏保!!!急!!!来者有分!帮忙了!!!!! 怪问题 <了解Struts1.1 > 我刚看到的一篇好文章,贴出来,大家共享 dayday up (: 如何驱动8139网卡(笔记本) interbase能与VC结合吗?另外想问有些软件与interbase一起打包安装,如何实现的呢? Lotus——你在哪里? 网络编程中遇到的几个问题(求助) 在java中调用javac.exe 紧急在线等待,求助!!!!! 我是新来的,很多都不懂!也没有朋友,有谁能和我做朋友么? 分手为什么只要一个人说了就算,为什么不能像离婚一样要双方同意,法院判决??? 关于从TImage继承创建自定义控件的问题? JRUN4怎么运行Servlet? 关于远程创建表,删除表的问题?请帮忙。 启动数据库时报 监听程序无法启动专用服务器进程???ORACLE 9.2.0.1.0 如何將指針作為參數傳遞。 请教vb自带的报表编程 在Sql语言中的取整函数是什么? 怎样将添加的记录到所有的现有记录后面? 如何装双系统?(在线等候) CSS一般要学多久才算掌握? 从事共享软件开发的进来谈谈做共享的辛酸好吗? 请教使用notifyicon遇到的问题 ActiveState.Visual.XSLT.for.VS.2003.v1.7.9.2475.WinNT2K无法安装。 如何合并两个dataset win98系统下ISAM问题 如何减小生成的EXE文件大小等? asp.net有没有模板 帮帮忙,呵呵!!!一个小问题!!!!! 用VB的兄弟姐妹们,来整个MSN如何? 关于dllhost占用系统资源的问题! 谁是雍亲王,出来说话!!! 在WSAD5.0里怎么添加类型为MYSQL的数据源 高手们,帮帮我噢(解决立刻给分) 全中国程序员联和起来。 如何在web的FORM1模式下画一条线段 界面贴图问题 为什么我用Server.MapPath(""),返回不了任何东东? 上手指路,高分相送 asp怎样连到SQL Server 2000?给100分,在线等 ASP.NET和SQL he"s not very tall but quite fat. 形容举动十分谨慎,丝毫不敢疏忽. A(1,a)、B(5,b)是直线y=kx+1与抛物线y=x²-4x+m+8的交点.①求k、m的值②求抛物线的顶点坐标及对称轴 英语好的人进来吖···.···[问问题]>.那个那个.->.各位大哥大姐.->.小女子问个问题哈.->.请问:crowd group team party band gang 的不同之处是什麽?////>.我96年的.->.现在在学新概念2.->.在英冠.->.我Qq}469 Quite中文意思 初中三年级二次函数已知:二次函数y=2x的平方-(m+1)x+(m-1). ( 1) 求证:无论m为何值,函数y的图象与x轴 总有交点,并指出m为何值时,只有一个焦点 : 谢你们吖!请问爽朗活泼乐观的英文分别是怎么样的? quite 的意思这个单词的意思什么啊 下面的维语什么意思 quite什么意思 绿色贸易壁垒的定义 维语 阳刚子 是什么意思?谢谢 quite 请帮忙英译汉这个句子Combination is about bringing like businesses together,not making forays into new businesses;Combinationhelps to achieve clear market leadership;The deal is stock only,providing a strong post-merger balance sheet;Combina 维语中的"球子"意思是什么?维语中“球子的”:美球子的、饿球子的、烦球子的、傻球子的算是骂人的话吗? quite a catch 请问一下系统介绍现代西方哲学的书那一本好一点?对哲学比较感兴趣,想系统了解一下现代西方哲学,然后再仔细看一下自己感兴趣的.最好是国外的书,看过一些国内的书,总是喜欢把各流派的 迪丽娜尔在维语里是什么含义? quite有几个意思 如果拿到澳大利亚绿卡,再回中国,我能拥有澳大利亚绿卡福利么?拿到国籍的话,回中国是不是就要签证了阿? 混凝土设计原理判断题材料强度标准值是材料强度概率分布中具有一定保证率的偏低的材料强度值.对么?why? 文言文愚公移山中的“出入之迂也、跳往助之、隐土之北”中的“之”什么意思? 怎么把汉字变成音频我是一名农村的广播员,通过一次用手机里的语言程序把我要通知的信息用文字编辑到手机里用广播播放出去我就感觉这样不错啊,可是大家都说不怎么清晰特别是离的远 判断题————宇宙和谐定律(急)17实际初期,开普勒提出宇宙和谐定律,发现行星饶太阳运行的时间的平方与行星和太阳间的平均距离是成比例的,这样一来,计算行星和太阳之间的距离就变 圆柱、长方体、三棱柱哪个承重更稳定?如题,最好能附上分析, 用高中经济学的角度说一下如何提高消费水平 我想去澳大利亚打黑工我现在拿到了新加坡的EP准证,三个月后我就去新加坡签证澳大利亚了,我的是商务签证,机会大吗,, 承重最好的物体是什么?(三棱柱,圆柱,三棱锥,长方体.)用20张a4纸做承重最大的纸桥,求设计 请问下北京市 望京是属于哪个区?这个地方大概的规模如何?消费水平啊,经济繁华程度等等?希望有了解的朋友能介绍下,望京这个区域的一些市场情况.还有此地是属于居民区还是商业区? 乳酸循环的定义 I'm __tall _and___slim.________对画线部分提问 求对话口译的音频材料,就是中文使用者与英文使用者的对话录音.20分! 有在国外打过黑工或者了解黑工情况请回答一下(最好了解澳大利亚的)在国外干黑工跟我以前的工作比起来那个辛苦?我以前上班时间是十二个小时还会长期夜班也是十二个小时不能睡觉. 君君,臣臣,夫夫,子子.反映了孔子的什么思想?并进一步思考,儒家思想为什么会成为封建社会的正统思想? 拿了美国绿卡还可以拿其他国家的绿卡吗 乳酸, 对括号进行提问Millie is (quite tall and slim)对括号进行提问 Millie is (quite tall and slim) record什么意思 新西兰的绿卡与澳大利亚的绿卡有何不同?有一种说法,如果拿到新西兰永居绿卡后,只要求五年内在新西兰住够半年,而拿到澳大利亚永居绿卡后,每年要在澳住够一个月,否则绿卡会作废.这是真 “君君,臣臣,父父,子子”指的是什么﹖ 在美国工作持有工作签证多久可以申请绿卡?多久可以拿到绿卡? 生物 ATP只能由ADP合成么,ADP只能由ATP合成么?为什么?生物 ATP只能由ADP合成么,ADP只能由ATP合成么?为什么? 为什么光合作用能合成ATP,它合成的ATP是不是由ADP转化而来的?!?! “君君、臣臣、父父、子子.”的翻译? 下面是歌颂青春的几句名言,请把他们改写成一组连贯的排比句怎么办呢?下面是歌颂青春的几句名言,请把他们改写成一组连贯的排比句1青年者,人生之王,人生之春,人生之华也 2青春是不耐久 为什么说实施科教兴国战略,关键是落实科技创新和教育创新 英语高手快来吖!我需要一篇:给地震地区的孩子们的一封信 不要写的太高级,我初中而已- -..大约70个字 下列是有关爱国的几句名言,请把它们改成一个连贯的排比句:长太息以掩涕息,哀民生之多艰——屈原先天下之忧而忧,后天下之乐而乐——范仲淹王师北定中原日,家祭无忘告乃翁——陆游诚 所有生物均据有独立合成和利用ATP的能力这句话对还是错? 英语翻译我要写一篇英语的作文!有部分内容不会翻译!(举办奥运更能促进各国和平友好发展.2008年,第29届奥运会在北京举行.这是我们中国的光荣,我为作为中国人而感到无比的骄傲.在这里, 我想考大专然后续本,但是我不知道怎样去考,请知道的各位兄弟姐妹, 科技创新和教育创新的必要性是什么?RT 怎样用Rhino做五棱柱 英语问题``````急`````快来帮帮我吖`````Sally正在做中餐,Lily主动帮助她做.请写出Sally与Lilly之间的对话.先用英语再用中文翻译` He finds( )hard to finish the work in such a short time.A its B him C it D that 黄河三角洲高效生态经济区的高效指什么 十拿九稳心可安 十二生肖里的什么动物 将二次函数y=2x平方(如图)向右平移1个单位所得的二次函数图像的顶点坐标为点D并与Y轴交于点A(1).求出平移后的二次函数对称轴与点A的坐标(2).设平移后的二次函数的对称轴与函数y=2x平 Quite tall ...and quite striking 新概念课文主要内容急! 形容举动十分谨慎, 已知汽车刹车后行驶的距离s和行驶的时间t满足:s=16t-5t^2.求汽车从刹车到完全停止所行驶的距离s. 俄加强防范“黑寡妇”袭击日本能把俄罗斯“撬走”吗缅甸穆斯林赴邻国避难遇海难 或死伤惨本周四立冬秋天将继续 杭州日后或常雾西湖申遗成功两年多 调研发现景区交通日本未从日俄会谈获实质成果 牵制中国英国男子患怪病 身体变形困家中韩俄峰会拟发涉朝声明俄强化防范“黑寡妇”袭击韩国防长承诺整顿网军国资委:地方国企效益下滑 一些地方仍美妇人送儿子手机前“约法18章” 网六大问题威胁食品安全 可追溯体系不完罗德曼“推销”朝鲜篮球队为朝鲜筹钱英15岁少年欲滑雪闯南极古巴关停“娱乐吧”美澳联手监听亚太法国两记者命丧马里俄罗斯严防“黑寡妇”袭击 确保冬奥会德国政府代表批评日本:对东亚紧张局势日本未从日俄会谈获实质成果 牵制中国观众即是作品本身 青年艺术家实验季第海南大学哈萨克斯坦籍留学生:想用我的第四届桂林旅博会落幕 旅游胜地力创国[安徽新闻联播]省委常委会强调:把学百米预赛-张培萌“放水”获小组第2晋信息化时代提笔忘字引关注 “书写”是综述:第三届亚博会各项论坛成果有助推兰溪:书记市长环保局长与千名市民畅游体操赛场“离歌”声声 奥运老兵不伤离澳大利亚大选初步计票结果显示反对党联习近平同哈萨克斯坦总统纳扎尔巴耶夫举传递核心价值观的音乐如何有生命力? 裘援平感性“对话”海内外华文媒体外滩金融试验区建设细则发布 企业可用2013中国侍酒师大赛在沪举行23.8米,长江半潜作业诞生“第一深艾伯特胜选 发表电视讲话“我们不会让咬人选手教练:属于磕碰不是咬人 总局兰溪市委书记与环保局长带头下河 千人信息化时代提笔忘字引关注 “书写”是明日赛事:飞人决战冲10秒大关 孙杨
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘