vb_ppt14课件
第14章 编写简单的网络程序 Visual Basic 程序设计教程 本章介绍: ·Internet基本控件 ·使用WebBrowser控件 ·为应用程序增加FTP功能 ·创建Internet Transfer控件 ·使用Winsock控件 ·Visual Basic Script简介 ·VB网络应用程序主要有两种类型:IIS应用程序和DHTML应用程序。 ·IIS应用程序,是根据Microsoft Internet Information Server命名的,它驻留在Web服务器上,用来处理从浏览器来的输入请求。IIS应用程序对请求进行处理、运行相关的VB代码并向用户返回响应信息。IIS应用程序的所有处理都在服务器上进行。 ·DHTML应用程序,是为动态HTML命名的,它允许编写代码来处理HTML页面上任何元素的事件。 ·在VB里还可以向工程中增加其它类型的Internet功能,可以在基于窗体的应用程序中利用一些特别设计的网络控件来扩展Internet的功能。 【例14-1】 利用WebBrowser控件制作一个简单的浏览器,程序运行时的界面如图14.1所示。窗体上有一个标签、一个文本框和一个WebBrowser控件。标签的Caption属性 如图所示,文本框的Tex t属性置空,其它属性均 为缺省设置。 ·WebBrowser控件不是VB的标准控件,使用之前必须将其添加到工具箱中。通过选择“工程”菜单中的“部件”命令,打开“部件”对话框,再从中选择“Microsoft Internet Control”进行添加,然后在窗体上相应的位置放置控件。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then WebBrowser1.Navigate Text1.Text 显示指定的页面 End Sub Private Sub Form_Resize() WebBrowser1.width=Scalewidth WebBrowser1.Height=ScaleHeight-Text1.Height End Sub WebBrowser控件是一个基于IE内核的浏览器控件,它具有网页浏览、局部文档浏览和文件下载等许多Internet Explorer浏览器的特性,通过WebBrowser控件可以快速地开发出功能强大的浏览器。 14.4.1 WebBrowser控件的属性、方法和事件 1.WebBrowser控件的属性 2.WebBrowser控件的方法 WebBrowser控件的常用的方法如下: (1)GoHome方法 使用格式:object.GoHome 功能:装入设定的起始页。 (2)Navigate方法 使用格式:object.Navigate URL 功能:装入指定的页面。 (3)GoBack方法 使用格式:object.GoBack 功能:返回上一个页面。 (4)GoForward方法 使用格式:object.GoForward 功能:进入下一个页面。 (5)Refresh方法 使用格式:object.Refresh 功能:刷新页面。 (6)Stop方法 使用格式:object.Stop 功能:停止载入页面。 (7)GoSearch方法 使用格式:object.GoSearch 功能:搜索页面。 3.WebBrowser控件的事件 (1)ProgressChange事件 功能:当浏览器下载页面时触发该事件, ProgressMax是下载完成的最大值,Progress是 当前下载完成的值。 (2)DownloadComplete事件 功能:页面下载完成后触发该事件。 (3)NavigateComplete2事件 功能:当浏览一个新的页面时触发该事件。 (4)TitleChange事件 功能:当前浏览的页面标题发生改变时触发该事件。 (5)BeforeNavigate2事件 功能:浏览器装入页面前触发该事件,其中URL参 数为将要装入的页面地址。 (6)StatusTextChang事件 功能:当浏览器的操作状态改变时调用,其中 Text为浏览器的操作状态。 【例14-2】设计一个WWW浏览器。界面设计和程序运行如图14.2所示,该浏览器实现基本的浏览功能,如浏览网页,前进、后退、停止、刷新、主页、搜索和下载进度显示等功能。 按照程序实现的功能,在窗体中加入一个工具栏控件、一个ImageList控件、一个标签控件、一个组合框控件、一个WebBrowser控件和
您可能关注的文档
- unit2p1 I used to be afraid of the dark课件.ppt
- Unit3 Book4练习课件.ppt
- Unit2-home and travel课件.ppt
- unit3 Computers Language points课件.ppt
- Unit2 I’m Wang Lingling and I’m thirteen years old.课件.ppt
- Unit3 Life in the unite5课件.ppt
- Unit2.ppt Book 3课件.ppt
- unit3 reading language points课件.ppt
- unit3sectionBandReading课件.ppt
- unit3blogging课件.ppt
最近下载
- 《GB_T 18802.331-2024低压电涌保护器元件 第331部分:金属氧化物压敏电阻(MOV)的性能要求和试验方法》专题研究报告.pptx
- 2015-2021年全国体育单招数学真题汇编.pdf VIP
- 2025军队文职公共知识法律部分讲义.pdf VIP
- 大学生职业生涯规划与就业指导教学教案(共10课).docx VIP
- 《民法典之债权法》课件.ppt VIP
- 无线局域网技术与实践课程标准教学教案.docx
- 2002年上海市第十六届初中物理竞赛(大同中学杯)初赛试题.doc VIP
- 2023年四川信息职业技术学院单招职业技能考试题库及答案解析word版.docx VIP
- 大学生职业生涯规划与就业指导课标教案.docx VIP
- 2025年统招专升本云南省医学综合考试试题及答案.docx VIP
原创力文档

文档评论(0)