这里向大家介绍另外一种方法：利用IE3.X提供的控件编程访问。
IE控件
如果机器中安装了IE3.X，在VB5.0的控件（Component）列表窗口中就会有一个名为MicrosoftInternetControls的控件，选取该控件，并将它加到Form中。
该控件有以下几个重要的方法:
GoHome：装入IE设定的起始页。
用法:object.GoHome
Navigate:装入页面。
用法:object.Navigateurl
url为URL地址，如"http://www.microsoft.com"
GoBack:返回上一个页面。
用法:object.GoBack
GoForward:进入下一个页面。
用法:object.GoForward
Stop:停止载入页面。
用法:object.Stop
该控件有以下重要事件:
BeforNavigateEvent:在每次装入页面前调用，声明如下：
PrivateSubobject_BeforeNavigate(ByValURLAsString,ByValFlagsAsLong,ByValTargetFrameNameAsString,PostDataAsVariant,ByValHeadersAsString,CancelAsBoolean)
其中的URL参数为将要装入的页面地址。
StatusTextChangEvent:每次浏览器的操作状态改变时调用，声明如下：
PrivateSubWebBrowser1_StatusTextChange(ByValTextAsString)
Text:浏览器的操作状态。
访问方法
下面介绍如何通过编程实现对WWW的访问。
在Form中添加MicrosoftInternetControl控件显示页面。
在Form中添加4个CommandButton控件,Name属性分别为:GoButton、BackButton、ForwardButton、StopButton，用这4个CommandButton可以实现对浏览器的操作。
在Form中添加一个TextBox控件,用来输入和显示当前的页面地址。
在Form中添加Label控件,用来显示当前浏览器操作状态。
程序如下:
PrivateSubBackButton_Click()
'返回上一个页面
WebBrowser1.GoBack
EndSub
PrivateSubForm_Load()
'程序装入后进入IE设定的起始页
WebBrowser1.GoHome
EndSub
PrivateSubForm_Resize()
'改变窗口大小后同时改变控件的大小
WebBrowser1.Width=Form1.ScaleWidth
WebBrowser1.Height=Form1.ScaleHeight-900
Label1.Width=Form1.ScaleWidth
Label1.Top=Form1.ScaleHeight-300
EndSub
PrivateSubForwardButton_Click()
'进入下一个页面
WebBrowser1.GoForward
EndSub
PrivateSubGOButton_Click()
'浏览输入的页面
WebBrowser1.Navigate(Text1.Text)
EndSub
PrivateSubStopButton_Click()
'停止浏览
WebBrowser1.Stop
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'浏览输入的页面
IfKeyAscii=13Then
WebBrowser1.Navigate(Text1.Text)
EndIf
EndSub
PrivateSubWebBrowser1_BeforeNavigate
(ByValURLAsString,ByValFlagsAsLong,
ByValTargetFrameNameAsString,PostDataAsVariant,
ByValHeadersAsString,CancelAsBoolean)
'将当前显示的页面的URL地址显示在Text1上
Text1.Text=URL
EndSub
PrivateSubWebBrowser1_StatusTextChange(ByValTextAsString)
'Label1显示当前页面装入情况
Label1.Caption=Text
EndSub
该程序在Win95、VB5.0下运行通过。->
|
