📄 m40.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=11>
<div align=center class=H1> <font color="#FFFFFF">利用IE控件访问Internet</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=2>
<p align="right"> <br>
</font></p>
<p> 贵报1997年第50期的软件版《利用VB访问Internet》一文中提供了两种通过VB编程访问Internet网页的方法,这里向大家介绍另外一种方法:利用IE3.x提供的控件编程访问。</span></font></p>
<h4> <font color="#000000">IE控件</font></span></h4>
<p> 如果机器中安装了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为浏览器的操作状态。</font></span></p>
<h4> </span></h4>
<p> <font color="#000000">下面介绍如何通过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下运行通过。 </font></span>
<p align="right"> <br>
<br>
<br>
</b></font></p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -