巧用VB.net2005编写网络搜索工具

2007-11-29 11:07:30　来源:天极yesky　作者:许城点击:

本文具备一定的基础性，适合于VB.net的初学者，通过实例让初学者们掌握有关WebBrowser、调用Url、控件跟随窗口的自动增大与缩小的运用方法。

　　随着网络搜索引擎行业的快速发展，有关网络搜索引擎的应用已经成为人们处理各种信息必不可少的了。网络搜索行业在未来将会是持续发展的，我们有必要了解网络搜索引擎的知识并掌握基本的网络搜索引擎方面的编程技术。本文具备一定的基础性，适合于VB.net的初学者，通过实例让初学者们掌握有关WebBrowser、调用Url、控件跟随窗口的自动增大与缩小的运用方法。

　　本文所使用的编程环境是Microsoft Visual Studio 2005，首先打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。单击确定 (OK)。

　　首先在Form1的窗体上添加两个Label控件属性text分别设置为:需要搜索的内容，需要搜索的IT资讯。然后选择工具箱在窗体中添加一个WebBrowser控件、添加3个button控件其text属性分别为：页面向下滚动30像素、搜索1、搜索2。这个时候我们还需要搜索框，我们要为窗体添加两个Textbox控件。

用vb.net编写网络搜索工具

　　窗体基本上布局完成，接下来我们需要为程序输入代码了，双击页面向下滚动30像素(button1)按钮然后输入以下代码：

以下是引用片段：
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　WebBrowser1.Document.Window.ScrollTo(0, 30)
　　End Sub

　　双击搜索1(button2)按钮然后输入以下代码:

以下是引用片段：
　　Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
　　If TextBox1.Text = "" Then MsgBox("请先输入关键字") : Exit Sub’防止用户不输入关键字
　　WebBrowser1.Navigate("http://www.google.cn/search?complete=1&hl=zh-CN&ie=GB2312&q=" + TextBox1.Text)’在这里我们选用google的搜索引擎
　　End Sub

　　双击搜索2(button3)按钮然后输入以下代码

以下是引用片段：
　　Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
　　If TextBox2.Text = "" Then MsgBox("请先输入关键字") : Exit Sub WebBrowser1.Navigate("http://search.yesky.com/jsp/hint.jsp?type=2&wd="+TextBox2.Text)’在这里我们选择天极网的IT搜索。
　　End Sub

　　我们运行一下可以看一下效果，随便输入一些关键字，我们能够很快的与搜索引擎进行链接，马上我们就可以看到搜索的结果了。有网友会问：“我把窗口最大化后，但是这个WebBrowser1控件并没有自动增大，这时我该怎么办呢?”其实我们需要在Form1_Resize事件中输入一小段代码就可以了这段代码使用非常频繁也很简便，希望对大家在以后的控件编程中会带来一些帮助。接下来我们要选择在Form1_Resize事件中，输入如下代码：

以下是引用片段：
　　Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
　　With WebBrowser1
　　.Width = (ClientRectangle.Width)
　　.Height = (ClientRectangle.Height)
　　End With
　　End Sub

用vb.net编写网络搜索工具