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

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下运行通过。


跨平台开发框架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种数据工具 怎样用好Eucalyptus? AWS攻势变猛,Rackspace主动降价CDN与云存储 惠普将于下季度推出低功耗的Moonshot服务器 关于ListBox 重分请教:关于制作自定义报表的问题!!! 请问怎样编程查询一个字符串的五笔字型编码? 我们单位要上ERP,作为公司分管微机这一块的我该准备些什么? 右键菜单问题 d7+ADO+SQL2000,如何判断SQL2000数据库中存在某个表? 想要去清华读研究生,大家帮忙出出意见!!!!!!!!!!!!!!!!!!!!!!!! 大价钱求解小问题 好硕的5460!!!! iwantsay 关于MSComm的output和Chr()函数的问题 好久没来这里了这里的朋友们还在吗? 如何在TreeView的节点中调用一个方法? 关于deploytools 一个有关代理文件操作的问题,困扰很久了!! 如何由资源ID得到资源的句柄 向oracle 中插入纪录,日期格式由问题,见内 查询问题 如何取消验证 关于asp打印的一些设置的请教 dbgrid显示不同小数位数问题 关于用nmudp实现传输!up也有分,:)) 我在WSAD5.0中创建的WAS 5.0Server 为什么总是启动出错???请各位高手指点!!! 关于Apache+mysql 100分求《设计模式-可复用面向对象软件的基础》电子书! 向oracle 中插入纪录,日期格式由问题,见内 在线等候 在企业管理器里附加了一数据库,显示为readonly,为什么!!!! 就要实习了,不知哪些公司比较乐意接受实习生呢 急!!请问如何在WEB自定义控件中响应事件? 本人最近写了一个服务器端文件管理的程序,基本的功能都已经实现,但是下载的功能还是不行,欢迎大家讨论实现。 奇怪的comboBox的数据绑定问题! 为什么不能把记录成批插入到表中? 在VC中操作access:update的where子句中用"and"组织成多个表达式时出错! 在线等候 怎么将数据库中的字段项动态的添加到COMBOX里面去。(我用的是DB2数据库) sql关于多个数据库的问题 散分了! 我也散点分吧 有些话不吐不快!看某不知来历的版主下台后发贴有感 不知道是怎么回事,难道是显示器坏了? 启动windowns2000报错"no language support detected",请问怎么解决? WIN ME下怎么调试 ASP? oracle 存储过程代码格式优化 大家看过《ASP.NET完全手册》这本书吗?为什么书中提供的与书想配的站点http://www.prosetech.com/CompleteReference/不可访问呢? 紧急求救:如何根据数据库中的值以红色字体显示datagrid中的满足条件特定列特定行? 能不能实现用NOTES databse打开一个website(公司内部的),同时这个database自动关闭?? 用pear的进来报个名,以后互相学习~ VB.NET的两个简单问题??? not enough free disk space on /tmp,这个问题如何解决,(100分) 急寻:中缀和后缀表达式互转的源代码。 请问这个页面如何实现的..... 如图,已知BE垂直AC于点E,CF垂直AB于点F,BE,CF相交于点D,若BD=CD,求证AD平分角BAC 心有余力而不足是什么意思 问一个地理方面的问题,希望能尽快得到回答稍后发图 某车间有三个小组,甲组比乙组多3人,乙组比丙组多4人;甲组每人每天比乙组每人每天少生产2个工件,乙组每 某车间有两个生产小组,每天平均每人生产零件10个,甲组12人,每天平均生产12个零件,乙组每人每天平均生 复数z=(k∧2-4)-(k∧2-3)i所对应的点位于第三象限,k的取值范围? 第一题若复数(-3+k^2)-(k^2-2)i所对应的点在第三象限内求实数k的取值范围第二题实数取何值时,复平面内...第一题若复数(-3+k^2)-(k^2-2)i所对应的点在第三象限内求实数k的取值范围第二题实数取何 若复数(-6+k2)-(k2-4)i(k属于R)所对的点在第三象限则k的取值范围是 规律可循是什么意思? 【数学证明题】如图,已知BE⊥AC于点E,CF⊥AB于点F,BE、CF相交于点D,若BD=CD.求证:AD平分∠BAC. 如图,已知BE垂直AC于E,CF⊥AB于F,BE、CF相交于点D,若BD=CD.求证:AD平分∠BAC急如图,已知BE垂直AC于E,CF⊥AB于F,BE、CF相交于点D,若BD=CD.求证:AD平分∠BAC. 印度一农民家园遭洪灾破坏 政府仅给一中泰战略合作新契机或在高铁合建柬专家认为中国-东盟自贸区升级有利双美情报高官指责法媒有关美国监听报道不韩朝签署开城园区共同委办事处附属协议沙特阿拉伯或因美对叙立场而限制与美国淘金者福音:澳科学家发现可依靠树木寻调查显示韩国人结婚费用高 平均至少3美国男子冲浪遭遇鲨鱼 用拳击技巧击将欧洲盗贼偷多幅世界名画 称怪艺术馆安东京警视厅一警官因涉嫌唆使少女卖淫遭又到世界最壮观人口迁徙时,30亿人次王林是无知土豪文化的产物为什么散户总是喜欢割肉?科技股牛市终结时,伟大的科技巨头诞生武媚娘被剪的胸杨贵妃都露了出来,李晨2014同志电影年度报告不错过路上的每分每秒---盯盯拍M6Burberry for Barne这些潜规则,你不要说你不懂!喜气洋洋趣享新年!塔思琦 (TasaNASA揭晓谜底之前花6分钟遨游人类
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘