WebBrowser应用

2016-01-29 12:45 14 1 收藏

WebBrowser应用,WebBrowser应用

【 tulaoshi.com - ASP.NET 】


网络下载。
程序的主角是一个ActiveX控件:WebBrowser。当然,缺省状态下VB的工具箱中并没有它,我们得手工加入,方法是:右击工具箱,在出现的快捷菜单中选择部件...,确保在弹出的对话框中选中控件标签,找到Microsoft Internet Controls,在它前面的小框中打钩,然后确定。此时你会发现工具箱中多了两个小图标,其中,地球图标代表的控件正是我们需要的WebBrowser。  由于许多人对WebBrowser控件不是很熟悉,VB的帮助中也没有有关它的内容(反正我没有找到),因此有必要介绍一下它的属性、方法和事件,限于篇幅,我们只涉及程序中用到的:  属性:LocationURL 返回控件显示WEB页面的URL。  方法:Navigate 转移到指定的URL或打开指定HTML文件。  事件:1.DownloadBegin 下载操作开时触发。  2.DownloadComplete 下载操作完成、终止或失败时触发。  3.ProgressChange WebBrowser控件跟踪下载操作的过程,并定期触发此事件。其语法为:Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long)。Progress变元是当前已下载的数据总量,ProgressMax变元是将要下载的数据总量。  4.TitleChange 当前文档标题改变时触发  除了WebBrowser控件外,程序还需要一个Label控件:Label1;一个ComboBox控件:combo1,用来显示URL地址;一个StatusBar控件:StatusBar1;一个ProgressBar控件:ProgressBar1,用来显示下载进度(StatusBar控件和ProgressBar控件是ActiveX控件Microsoft Windows Common Controls5.0的成员,加入工具箱的方法同WebBrowser控件),这些控件的属性值都用缺省值。  以下是程序清单:  Option Explicit    Private Sub Form_Load()  Me.Caption =My Explorer  Label1.Caption = URL  Combo1.Text =   Combo1.Top = Label1.Height  Combo1.Left = 0  WebBrowser1.Top = Combo1.Top + Combo1.Height  WebBrowser1.Left = 0  Form_Resize  StatusBar1.Style = sbrSimple  ProgressBar1.ZOrder  End Sub    Private Sub Form_Resize()  On Error GoTo a  Combo1.Width = Form1.Width - 100  WebBrowser1.Width = Combo1.Width  WebBrowser1.Height = Form1.Height - Combo1.Height - 1000  ProgressBar1.Top = Me.Height - StatusBar1.Height - 330  ProgressBar1.Left = 0.25 * StatusBar1.Width  ProgressBar1.Width = 0.75 * Me.Width - 250  a:  End Sub    Private Sub Combo1_Click()  `转到指定网址  WebBrowser1.Navigate Combo1.Text  End Sub    Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)  Dim i As Long  Dim existed As Boolean  If KeyCode = 13 Then  If Left(Combo1.Text, 7) <> http://Then  Combo1.Text = http://+ Combo1.Text  End If  WebBrowser1.Navigate Combo1.Text  For i = 0 To Combo1.ListCount - 1  If Combo1.List(i) = Combo1.Text Then  existed = True  Exit For  Else  existed = False  End If  Next  If Not existed Then  Combo1.AddItem (Combo1.Text)  End If  End If  End Sub    Private Sub WebBrowser1_DownloadBegin()  `下载开始时状态栏显示Now Linking...  StatusBar1.SimpleText = Now Linking...  End Sub    Private Sub WebBrowser1_DownloadComplete()  `下载完成时状态栏显示Link Finished  StatusBar1.SimpleText = Link Finished  ProgressBar1.Value = 0  End Sub    Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,ByVal ProgressMax As Long)  `下载进行时进度条变化  If ProgressMax = 0 Then Exit Sub  ProgressBar1.Max = ProgressMax  If Progress <> -1 And Progress <= ProgressMax Then  ProgressBar1.Value = Progress  End If  End Sub    Private Sub WebBrowser1_TitleChange(ByVal Text As String)  Combo1.Text = WebBrowser1.LocationURL  End Sub

来源:http://www.tulaoshi.com/n/20160129/1487469.html

延伸阅读
标签: Delphi
  11.1 Help文件的建立 Help文件是 Micosoft Windows3.0 以上的版本提供的超文本帮助文件。利用这种超文本 , 用户可非常方便地使用帮助文件系统。帮助文件是以主题为主线进行编写的,一个主题可以跳转至相关的主题,也可按关键字进行主题查询。帮助文件与软件开发工具相结合,可实现应用程序的 ' 上下文敏感 ' ,而且帮助系统...
标签: Delphi
  所有的应用程序都是 TApplication的派生类。 TApplication 有三种方法调用在线帮助系统。 HelpContext方法可调用 WinHelp( 关于 Winhelp的内容见上节 ) 。它把 HelpFile 中的文件名和一个文本代码传递给 WinHelp 。 HelpFile是 TApplication 的字符串类型的属性,专门用来存放 Help 文件的。如果 HelpFile 属性是空字...
标签: Web开发
DIV class=box id=top_barWeb Tools--Ajax Version /DIVBR DIV class="box general"    天气预报: INPUT id=Weather size=17 value=北京   INPUT onclick=getWeather() type=button value="提 交" name=submit   SPAN id=Disp_Weather/SPAN/DIV DIV class="box general"  IP地址查询: INPUT id=Ip...
标签: windows系统
Win8应用与应用商店   在Win8打开的那一瞬间,那些翻动着的方块一定会吸引住所有人的目光,这就是Win8的重要组成部分Win8应用。 在Win8系统中,Win8应用是一个无论如何也不能跳过的话题,这些应用在日常使用中能够为用户带来极大的便捷,同时也让办公方式更加灵活。利用Win8应用,用户可以在传统PC上用传统的操控方式体验平板...
摄像头扫描翻译应用extGrabber   TextGrabber + Translator能够帮助那些有视觉障碍的人来体验周围的故事。这款流行应用在最近进行了一次更新,为带有苹果VoiceOver功能的移动平台整合了设备内置光学字符识别技术。 TextGrabber + Translator于2011年5月首次推出,售价为4.99美元,安装之后可以让你的手机变成一台多功能...

经验教程

82

收藏

57

精华推荐

微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部