大班mg推荐:Visual Basic 6.0网络编程的五大散手(3)
来源:百度文库 编辑:偶看新闻 时间:2024/04/26 05:28:44
访问Internet并调用Explorer
1.实现方法和控件介绍
首先在VB 6菜单上点击"工程/部件...",弹出"部件"对话框,在对话框的控件卡中选中Microsoft Internet Controls控件,点击"确定"按钮后工具箱上增加一个WebBrowser图标,将它加到Form中。
该控件有以下几个重要的方法和事件:
·GoHome:装入IE设定的起始页;
·Navigate:装入页面,如Object.Navigate url,其中url为URL地址,如http://www.microsoft.com;
·GoBack:返回上一个页面;
·GoForward:进入下一个页面;
·Stop:停止载入页面;
·BeforeNavigate Event:在每次装入页面前调用该事件;
·StatusTextChange Event:每次浏览器的操作状态改变时调用该事件。
2.具体的访问方法
将WebBrowser图标添加到Form中。并在Form上添加4个命令按钮,Name属性分别为:GoButton、BackButton、ForwardButton和StopButton,通过这4个命令按钮可以实现对浏览器的操作。在Form上添加一个TextBox控件,用来输入和显示当前的页面地址。在Form上添加一个Label控件,用来显示当前浏览器操作状态。
/*载入Form*/
Private Sub Form_Load()
/*程序装入后进入IE设定的起始页*/
WebBrowser1.GoHome
End Sub
/*改变Form尺寸*/
Private Sub Form_Resize()
/*改变窗口大小后同时改变控件的大小*/
WebBrowser1.Width = Form1.ScaleWidth
WebBrowser1.Height = Form1.ScaleHeight - 900
Label1.Width = Form1.ScaleWidth
Label1.Top = Form1.ScaleHeight - 300
End Sub
Private Sub BackButton_Click()
/*返回上一个页面*/
WebBrowser1.GoBack
End Sub
Private Sub ForwardButton_Click()
/*进入下一个页面*/
WebBrowser1.GoForward
End Sub
Private Sub GoButton_Click()
/*浏览输入的页面*/
WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub StopButton_Click()
/*停止浏览*/
WebBrowser1.Stop
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
/*输入地址后进行浏览*/
If KeyAscii = 13 Then
WebBrowser1.Navigate (Text1.Text)
End If
End Sub
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)
/*将当前显示的页面的URL地址显示在Text1上*/ Text1.Text = URL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
/*Label1显示当前页面装入情况*/
Label1.Caption = Text
End Sub
1.实现方法和控件介绍
首先在VB 6菜单上点击"工程/部件...",弹出"部件"对话框,在对话框的控件卡中选中Microsoft Internet Controls控件,点击"确定"按钮后工具箱上增加一个WebBrowser图标,将它加到Form中。
该控件有以下几个重要的方法和事件:
·GoHome:装入IE设定的起始页;
·Navigate:装入页面,如Object.Navigate url,其中url为URL地址,如http://www.microsoft.com;
·GoBack:返回上一个页面;
·GoForward:进入下一个页面;
·Stop:停止载入页面;
·BeforeNavigate Event:在每次装入页面前调用该事件;
·StatusTextChange Event:每次浏览器的操作状态改变时调用该事件。
2.具体的访问方法
将WebBrowser图标添加到Form中。并在Form上添加4个命令按钮,Name属性分别为:GoButton、BackButton、ForwardButton和StopButton,通过这4个命令按钮可以实现对浏览器的操作。在Form上添加一个TextBox控件,用来输入和显示当前的页面地址。在Form上添加一个Label控件,用来显示当前浏览器操作状态。
/*载入Form*/
Private Sub Form_Load()
/*程序装入后进入IE设定的起始页*/
WebBrowser1.GoHome
End Sub
/*改变Form尺寸*/
Private Sub Form_Resize()
/*改变窗口大小后同时改变控件的大小*/
WebBrowser1.Width = Form1.ScaleWidth
WebBrowser1.Height = Form1.ScaleHeight - 900
Label1.Width = Form1.ScaleWidth
Label1.Top = Form1.ScaleHeight - 300
End Sub
Private Sub BackButton_Click()
/*返回上一个页面*/
WebBrowser1.GoBack
End Sub
Private Sub ForwardButton_Click()
/*进入下一个页面*/
WebBrowser1.GoForward
End Sub
Private Sub GoButton_Click()
/*浏览输入的页面*/
WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub StopButton_Click()
/*停止浏览*/
WebBrowser1.Stop
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
/*输入地址后进行浏览*/
If KeyAscii = 13 Then
WebBrowser1.Navigate (Text1.Text)
End If
End Sub
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)
/*将当前显示的页面的URL地址显示在Text1上*/ Text1.Text = URL
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
/*Label1显示当前页面装入情况*/
Label1.Caption = Text
End Sub
Visual Basic 6.0编程软件
visual basic 6.0编程顺序
Visual Basic 6.0编程实例大制作
visual basic 6.0教程
Visual Basic中关于时间的编程
精通Visual Basic编程的高人进!
关于Visual Basic编程的一些问题
Visual Basic.NET与Visual Basic 6.0的关系是什么?
免费Visual Basic 6.0图书
怎么装Visual Basic 6.0
请问哪儿可以下载到《visual basic 6.0 编程实例精解》的配套光盘
在那里有关于visual basic 6.0 数据库编程的电子书或资料下载
Visual Basic 6.0完全版本,谁有这个编程教程啊介绍几个下载网站。
visual basic
visual basic
visual basic
Visual Basic
Visual Basic
Visual Basic
visual basic
visual basic
急死我了 请Visual Basic编程高手指教
谁有《高级Visual Basic编程》电力翻译版的!
Visual basic编程中,Beep语句是什么意思,起什么作用?