ba33.htm
来自「VB教程」· HTM 代码 · 共 146 行
HTM
146 行
<HTML>
<HEAD>
<TITLE>利用IE控件访问Internet</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="2">
<div align="center"> <strong><b>利用IE控件访问Internet</b> </strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left"> <br>
<font size="-1" face="宋体">这里向大家介绍一种利用IE3.x提供的控件编程访问Internet网页的方法。<br>
<br>
<b>IE控件</b> <br>
<br>
如果机器中安装了IE3.x,在VB5.0的控件(Component)列表窗口中就会有一个名为Microsoft Internet
Controls的控件,选取该控件,并将它加到Form中。<br>
<br>
该控件有以下几个重要的方法:<br>
GoHome :装入IE设定的起始页。<br>
用法: object.GoHome<br>
<br>
Navigate : 装入页面。<br>
用法: object.Navigate url<br>
url为URL地址,如"http://www.microsoft.com"<br>
<br>
GoBack : 返回上一个页面。<br>
用法: object.GoBack<br>
<br>
GoForward:进入下一个页面。<br>
用法: object.GoForward<br>
<br>
Stop : 停止载入页面。<br>
用法: object.Stop<br>
<br>
该控件有以下重要事件:<br>
BeforeNavigate Event: 在每次装入页面前调用,声明如下:<br>
Private Sub object_BeforeNavigate(ByVal URL As String, ByVal
Flags As Long, ByVal TargetFrameName As String, PostData As
Variant, ByVal Headers As String, Cancel As Boolean)<br>
其中URL参数为将要装入的页面地址。<br>
StatusTextChang Event: 每次浏览器的操作状态改变时调用,声明如下:<br>
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)<br>
其中Text为浏览器的操作状态。<br>
<br>
<b>访问方法</b><br>
<br>
下面介绍如何通过IE控件编程实现对WWW的访问。<br>
在Form中添加Microsoft Internet Control控件显示页面。<br>
在Form中添加4个CommandButton控件,Name属性分别为:GoButton、BackButton、ForwardButton、StopButton,用这4个CommandButton可以实现对浏览器的操作。<br>
在Form中添加一个TextBox控件,用来输入和显示当前的页面地址。<br>
在Form中添加Label控件,用来显示当前浏览器操作状态。<br>
程序如下:<br>
Private Sub BackButton_Click()<br>
'返回上一个页面<br>
WebBrowser1.GoBack<br>
End Sub<br>
Private Sub Form_Load()<br>
'程序装入后进入IE设定的起始页<br>
WebBrowser1.GoHome<br>
End Sub<br>
Private Sub Form_Resize()<br>
'改变窗口大小后同时改变控件的大小<br>
WebBrowser1.Width = Form1.ScaleWidth<br>
WebBrowser1.Height = Form1.ScaleHeight - 900<br>
Label1.Width = Form1.ScaleWidth<br>
Label1.Top = Form1.ScaleHeight - 300<br>
End Sub<br>
Private Sub ForwardButton_Click()<br>
'进入下一个页面<br>
WebBrowser1.GoForward<br>
End Sub<br>
Private Sub GoButton_Click()<br>
'浏览输入的页面<br>
WebBrowser1.Navigate (Text1.Text)<br>
End Sub<br>
Private Sub StopButton_Click()<br>
'停止浏览<br>
WebBrowser1.Stop<br>
End Sub<br>
Private Sub Text1_KeyPress(KeyAscii As Integer)<br>
'浏览输入的页面<br>
If KeyAscii = 13 Then<br>
WebBrowser1.Navigate (Text1.Text)<br>
End If<br>
End Sub<br>
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)<br>
'将当前显示的页面的URL地址显示在Text1上<br>
Text1.Text = URL<br>
End Sub<br>
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)<br>
'Label1显示当前页面装入情况<br>
Label1.Caption = Text<br>
End Sub<br>
该程序在Win95、VB5.0下运行通过。 <br>
<br>
转载自popcool开发专区 <b>(文/陈锐)</b></font></div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba32.htm">（上一页）</a>---<a href="ba35.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?