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

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


VB用API复制移动文件 VB用OleDragdrop事件接受拖放文件 用VB进行文本文件的再处理 用VB开发应用程序如何使用INI文件 用VB实现文件查找功能 VB用Winsock控件实现文件的下载 VB用两分法搜索列表框或组合框中的数据 在 ListBox 之中, 如何检测鼠标所在位置的选项? -VB资料 在 Textbox 中,录入 N 个字符后移到下栏-VB资料 在 VB 中控制 Word 在GotFocus时快速选择文本 -VB资料 在VB中使用文件对象 在VB中使用艺术字 在VB中引用.dbf及索引文件 在Windows操作系统中改变文件打开方式-VB资料 在程序运行时,怎样把多个文本框的内容保存起来-VB资料 在打印字符串时自动换行 -VB资料 在文本框中快速增加一串字符-VB资料 在文本框中实现由加减号输入数据-VB资料 在引用项目找不到Excel、Word等Office软体Lib的解决法-VB资料 VB怎样从文件列表框中取得文件的完整路径和名称 VB制作一个有参数的执行文件(方法之简单难以想像) 资源档(.RES)的应用-VB资料 自定义Text的pop-up菜单-VB资料 自动出现动画、进度和确认的文件操作 -VB资料 自动选择 Text 的内容-VB资料 VB 调用 IMAGE 控件实现图像缩放的一种方法 VB5 实 现 窗 口 图 像 缩 放、 滚 动 技 巧 VB编程之提速攻略(一) VB开发通讯软件 VB实现图形动画的三种方法 十万火急:PDF文件修改 大哥们,能否告诉小弟,在 ms sql server2000中如何修改 sa 用户的口令.. 作为初学者,每天的问题太多了?帮我看一下下面的小问题 我上午53,下午58.该不会下马吧????/我相知道什么时候才能知道是否已经Pass,什么时候下证? 有关DELPHI6中使用SKINENGINE??? C++ Builder中多国语言的问题 在哪下载到Exchange 2000 Server Resource Kit? 快捷方式损坏怎样修复? bluesky069(菜鸟一族)你帮助我把那个PBL放到蛛蛛的信箱好不好呢?让大家都可以下在的! 请问哪里有w32dsm.exe的教程??? 潘译<>印刷错误百出,令人不忍卒读... LISTBOX的问题?请高手帮忙!!高分向送! 帮我想想这个主键该怎么建SQL SERVER7 如何将控件,恢复init()到初始状态 急救:装有SCO UNIX的硬盘克隆后不能启动系统,怎么办? 如何在FTP的目录下再新建目录?我初学网络编程, 怎样设置ScrollView中的ScrollBar不可见? 有关comboBox问题??????急!急!!! 有那位朋友对ADO控件调用T-SQL的链接服务器或存储过程的命令有所了解,或知道怎样取链接服务器的相关信息 真诚的向大家请教一个问题!!先谢谢了 redhat linux7.2安装完成后,怎么没有工具栏 已知manager是employee的子类,那么这么写Employee epy=new Manager()为什么合法? 第五次提出这个问题:如何通过DELPHI调用SQL SERVER 过程向SQL SERVER 存入图象。 为什么我在新闻聚焦中发表不了评论? 在VB里怎样用ADO存贮Access的Memo型字段? 誰有在PB下用powersock做的聊天程序? SQL的好书是什么呀?难道就没有人有体会? vb怎样格式化硬盘?? 做个《曹操传》之类的游戏需要多少投资? 关于sfc(系统文件扫描)的问题 高分求解,大虾请进 买了java程序员大本营的请进!!!! 请大家陈说学msce的前途 如何使用ProgressBar casting在java中是什么意思啊? querymode 查询器不稳定吧? 各位兄弟姐妹,在长沙拿3K是个什么水平,和沿海比怎么样,还需不需要跳槽? 想知道用程序免费发手机短信吗? 请问各位软友哪里有介绍C++Builder控件属性,方法和事件的资料。 高分相赠!!!求解我爱背单词2001共享版注册码!!! 我的XP不能上网了,添加163连接最后总说无法更新通讯簿,不能成功 如何添加纪录? 想学如何用程序发手机短信吗? 请问过滤条件filter怎么用?? 使用微软SQL Server的Select时,怎么写才能检索从N条-M条的记录(也就是说直接检索,而不是全部检索后取其中的一部分.) 如何通过程序得到系统的所有热键。谢您了。 关于CSICO防火墙515-R的问题?急 想知道在程序中如何发手机短消息吗? 求助在VC中怎样用串口控件MSComm1??(我在VB和DELPHI中用过,但不知道在VC中怎样用) 怎么给char months[12][4]赋值...... 哪里有xml spy的中文参考书 五点作图法 几何作图法 java中怎样绘制正弦函数图象?原题:在文本框中输入函数y=sin(ax)中a的值,点击draw按钮画出函数图形.求大虾指点. 400米95铝电缆电压降有多少啊 3相4线120平方电缆1米多重? 正弦函数高一数学 三角函数五点作图法横坐标点问题比如2sin(2x+π/3)横坐标点怎么确定?(⊙_⊙ 120平方300米铜电缆180千瓦能用么 一道高一数学题 有关正弦函数图象如图为f(x)=Asin(wx+y) (0,根3)(2π/3,0)w>0,0 三角函数五点 作图y=sin(x+∏/6)五点是什么啊?怎样得出来的?是y=sin(x+π/6) 具体的求点方法~ 120平方380电缆20米距离可多少千瓦中央空调用 一台发电机,输出的功率为8000KW,所用的输电线的电阻是15欧,当发电机的输电电压为100KV时.求导线上的电流,输电线上的损失的电压与电功率. 锰矿与锰铁有什么区别 煤焦化产生的黄烟是什么物质 1500千瓦功率,距离500米,电压380伏,需要用多大的五芯电缆? 硅锰和锰铁的区别在元素组成和含量上有无不一样? 反函数到底有几种表达式? 五点法作图一定要先列表吗? 中国哪里盛产硅铁,锰铁回答的地方可以两者都盛产也可以单独盛产某一种(具体到某个省) 互为反函数的运算法则有什么关系 2.5平方电线可以承受多少安培电流?同样,多少瓦的功率? 哪里可以出口锰铁我想出口大量锰铁,请问哪里可以办? 汽车的空气流量计坏了,发动机会出现什么问题?具体最好,谢谢 1平方的电线可以走几个安培的电流?同样1KW 大致走几个安培的电流? 锰铁是什么样的 汽车空气流量计有故障为什么会加不起油? 270平方电缆可以承受1000安培的直流电流吗 什么是65锰铁? 汽车空气流量计有哪几种空气流量计主要有____._______.______.______四种~ 高炉喷煤热滞后现象是怎么回事? 三角函数图像中的五点作图法如果是y=sin(2x+6/π)的那五个点怎么求,要详细过程 汽车空气流量计空气流量计是做什么用的,国内有什么公司做这个东西做的比较好的. 单片机delay函数延迟时间计算,delay(80);为什么是600us左右?函数定义void delay(unsigned int t){while(t--);}主函数中delay(80);为什么是600us左右? 三角函数f(x)=Sin(2x+2分之根号3)的五点法作图怎么求点 汽车空气流量计作用? 120平方毫米铜电缆承受多少安电流 三角函数画图的问题我知道sinA的图要用五点法来画,但是如果变成 2sin(A+2)之类的就不会画了,不知道要怎么列表,可以告诉我这类题要怎么列表画图吗? 已知功率,电压怎么计算需要多少平方的电线的公式 高炉上料为什么是不连续的 放了一批矿或者焦炭总要隔断时间才上? 70平方规格的铝芯电线/缆 电流电压 反函数求法Y=1/X+1的反函数要有过程 怎么根据功率查电线规格 65锰铁的65是什么含义就是高碳锰铁65# 和高碳锰铁75#的数字表示什么意思? 120KW“电加热”要用多大的电缆线工程用电 ..最好有画图说明,某海岛上一个观察哨A在上午11时测得一轮船在海岛北偏东60度的C处,12时20分测得轮船在海岛北偏西60度的B处,十二时四十分轮船到达海岛正西方五千米的E港口,如果轮船始终 氮化锰铁是什么最好讲一下氮化锰铁研究现状. 串联电加热电缆主要在什么情况下使用? 已知f(1+cosx)=cos^2 x,求作函数f(x)的简图 三角函数 五点法 求φ 120KW用多大电缆 我有三个箱子 每个箱子大概是40KW 三个是120KW 每个箱子分用多大电缆!我都用220V电压不用380的··3个箱子都用220V的电压设备都是220V的.我现在跑了一根电缆4X70的铜芯电缆!不知 高炉冶炼主要技术经济指标有哪些 三角函数五点法怎样确定那五点? 总功率120KW,进线需要多少平方MM的电缆,又需要多少A的空气开关? 3. 高炉冶炼希望高效能,低消耗,产品质量好,请简要总结高炉强化冶炼有哪些手段,采用这些手段的科学依据 电缆压降具体计算,3*95+1*50电缆,传输1000米,电流按150A算,或者是3*70+1*35电缆,末端带一个160的变压器,变压器主要是解决压降问题,问变压器应该怎么选择,变压器后带一个75KW电机,4个5.5KW电机,变压 煤干馏→(箭头上下分别为Cao,电炉)可以得到乙炔吗煤干馏之后经过什么样的反应可以得到乙炔?条件有氧化钙和电炉 高炉冶炼铬铁的方法 一台200KW的电机 同样的负荷 用660V和1140V的电压电机线圈通过的电流一样大吗.电缆是400米 70平方毫米的我认为660和1140电机线圈通过的电流是同样大 可是为什么用660是电机温度有点高 用1140是 煤干馏→(箭头上下分别为Cao,电炉)可以得到乙炔吗煤干馏之后经过什么样的反应可以得到乙炔?条件有氧化钙和电炉08上海高考化学第28题 高一数学正弦函数的图像与性质 寻一种的橡胶绝缘电缆线!电缆线能过的电压220V,电流150A!多股单芯的电缆线!隔离变压器变出来的是220V,再加个电阻箱,调一下电阻,150A不就出来了!要安全可靠,还得不能用硬线!麻烦!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn