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

随着网络搜索引擎行业的快速发展，有关网络搜索引擎的应用已经成为人们处理各种信息必不可少的了。网络搜索行业在未来将会是持续发展的，我们有必要了解网络搜索引擎的知识并掌握基本的网络搜索引擎方面的编程技术。本文具备一定的基础性，适合于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控件。

　　窗体基本上布局完成，接下来我们需要为程序输入代码了，双击页面向下滚动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