151.htm

vb功能实例介绍。详细、很好的实例说明。

<p>访问Internet并调用Explorer </p>
<p></p>
<p>　　1．实现方法和控件介绍 </p>
<p></p>
<p>　　首先在VB 6菜单上点击“工程/部件...”，弹出“部件”对话框，在对话框的控件卡中选中Microsoft Internet Controls控件，点击“确定”按钮后工具箱上增加一个WebBrowser图标，将它加到Form中。 </p>
<p></p>
<p>　　该控件有以下几个重要的方法和事件： </p>
<p></p>
<p>　　●GoHome：装入IE设定的起始页； </p>
<p></p>
<p>　　●Navigate：装入页面，如Object.Navigate url，其中url为URL地址，如http://www.microsoft.com； </p>
<p></p>
<p>　　●GoBack：返回上一个页面； </p>
<p></p>
<p>　　●GoForward：进入下一个页面； </p>
<p></p>
<p>　　●Stop：停止载入页面； </p>
<p></p>
<p>　　●BeforeNavigate Event：在每次装入页面前调用该事件； </p>
<p></p>
<p>　　●StatusTextChange Event：每次浏览器的操作状态改变时调用该事件。 </p>
<p></p>
<p>　　2．具体的访问方法 </p>
<p></p>
<p>　　将WebBrowser图标添加到Form中。并在Form上添加4个命令按钮，Name属性分别为：GoButton、BackButton、ForwardButton和StopButton，通过这4个命令按钮可以实现对浏览器的操作。在Form上添加一个TextBox控件，用来输入和显示当前的页面地址。在Form上添加一个Label控件，用来显示当前浏览器操作状态。 </p>
<p></p>
<p>/＊载入Form＊/ </p>
<p>Private Sub Form_Load() </p>
<p>　/＊程序装入后进入IE设定的起始页＊/ </p>
<p>　WebBrowser1.GoHome </p>
<p>End Sub </p>
<p></p>
<p>　 </p>
<p>/＊改变Form尺寸＊/ </p>
<p>Private Sub Form_Resize() </p>
<p>/＊改变窗口大小后同时改变控件的大小＊/ </p>
<p>　WebBrowser1.Width = Form1.ScaleWidth </p>
<p>　WebBrowser1.Height = Form1.ScaleHeight － 900 </p>
<p>　Label1.Width = Form1.ScaleWidth </p>
<p>　Label1.Top = Form1.ScaleHeight － 300 </p>
<p>End Sub </p>
<p></p>
<p>　 </p>
<p>Private Sub BackButton_Click() </p>
<p>　/＊返回上一个页面＊/ </p>
<p>　WebBrowser1.GoBack </p>
<p>End Sub </p>
<p></p>
<p>　 </p>
<p>Private Sub ForwardButton_Click() </p>
<p>　/＊进入下一个页面＊/ </p>
<p>　WebBrowser1.GoForward </p>
<p>End Sub </p>
<p></p>
<p>　 </p>
<p>Private Sub GoButton_Click() </p>
<p>　/＊浏览输入的页面＊/ </p>
<p>　WebBrowser1.Navigate (Text1.Text) </p>
<p>End Sub </p>
<p></p>
<p>　 </p>
<p>Private Sub StopButton_Click() </p>
<p>　/＊停止浏览＊/ </p>
<p>　WebBrowser1.Stop </p>
<p>End Sub </p>
<p></p>
<p>　 </p>
<p>Private Sub Text1_KeyPress(KeyAscii As Integer) </p>
<p>　/＊输入地址后进行浏览＊/ </p>
<p>　If KeyAscii = 13 Then </p>
<p>　　WebBrowser1.Navigate (Text1.Text) </p>
<p>　End If </p>
<p>End Sub </p>
<p></p>
<p>　 </p>
<p>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) </p>
<p>　/＊将当前显示的页面的URL地址显示在Text1上＊/ </p>
<p>　 Text1.Text = URL </p>
<p>End Sub </p>
<p></p>
<p>　 </p>
<p>Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) </p>
<p>　/＊Label1显示当前页面装入情况＊/ </p>
<p>　Label1.Caption = Text </p>
<p>End Sub</p>