《2022年编写搜索软件 .pdf》由会员分享，可在线阅读，更多相关《2022年编写搜索软件 .pdf（20页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、今天来给大家教个Visual Basic( 以下简称VB) 的初级编程， 我们来编写一个很小的搜索工具。能在多个搜索引擎中提交你搜索的内容哦! VB是微软公司开发的一款Win32 应用程序平台开发工具，它的编程语言简单易学，同人类的自然语言很相似，所以是初学编程者的好选择! 首先， 针对初学者， 代码我都会一一注释的，我们使用的工具是VB6.0 企业版的精简版，下载地址：华军软件园下载下载完成后，安装程序，然后我们打开VB的集成开发环境。( 我编写本程序的环境为Windows XP SP2) 新建一个“标准EXE ”的工程 (图 1) 。点击“确定”后， 会看到 VB自动创建了一个窗体，我们来
2、简单了解一下VB的各个部件， 见图。 ( 图 2) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 20 页 - - - - - - - - - 现在程序的窗体已经出来了，窗体就是我们的“画布”大家可以用控件在上面随意“画画”可以做成自己喜欢的样子，因为是文章。我就不怎么搞美化了。首先，我们点击设置窗体，把窗体的Form1的属性，在属性窗口里设置一下。我们关注的是这几个属性：BackColor( 窗体背景， 大家可以改成自己喜欢的颜色，这里我使用系统默认的颜色。就是不修改
3、) BorderStyle(窗体边框样式，具体设置请看下表) 属性值常量中文含义 0 vbBSNone 窗体无边框标题栏名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 20 页 - - - - - - - - - 1 vbFixedSingle 单线边框，大小不可调 2 vbSizable 默认值。双线边框，大小可调 3 vbFixedDialog 固定对话框风格，大小不可调 4 vbFixedToolWindow 工具栏风格，大小不可调 5 vbSizableToolW
4、indow 工具栏风格，大小可调这里当 BorderStyle的属性值为“ 0、 3、4、5”时，无论MinButton( 最小化按钮 ) ，MaxButton( 最大化按钮 ) 的取值如何都不显示“最大化”和“最小化”按钮。这里我们这样设计窗口：| 把 Form1的 BorderStyle改为 1(vbFixedSingle)， 单线边框。把 MinButton的值由“ False ”改为“ True”，有最小化按钮。把MaxButton 改为“ False ”，没有最大化按钮。这里说明下“ False ”和“ True”。 False- 是“假”， 平常话说就是“不要这个功能”，True则
5、相反。然后吧窗体拉大点，把“Caption ”属性，窗体运行时的标题，可以改成“我的搜索工具”等，大家可以按照自己喜欢来改。还有一个“Icon ”属性，是窗体的图标，大家可以自己制作，也可以使用提取工具提取其他文件中的Icon 图标然后加入。方法是点击“. ”按钮，然后选择你的Icon 图标就可以了。以下是我设计好的窗体，见图( 图 3) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 20 页 - - - - - - - - - 好，我们开始“画画”吧，呵呵。首先，点击
6、工具箱里的( 图 4)“ComboBox ”控件，点击后，把鼠标移动到窗体上面拉出一个控件框，见图( 图5)名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 20 页 - - - - - - - - - 然后，在点击 ( 图 6)( 文本框 ) 控件，按照刚才的步骤，拉出一个框，然后也是一样的，点击 ( 图 7)( 按钮 ) 控件，在点击( 图 8)(Label)控件，依次拉出。我拉好的界面是这样的( 图 9)：名师资料总结 - - -精品资料欢迎下载 - - - - -
7、- - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 20 页 - - - - - - - - - 我们都来改下这些控件的属性吧，让他们更好看些！首先是 Label1- 选中 Label1 ，然后查看属性窗口，把“Caption ”标题的属性改为你想显示的标题，如“输入内容：”把Font 的属性修改一下，点击Forn 属性的“ . ”按钮，弹出字体框选择一个字体样式，选择大小等，点击“确定”。再来，把Text1 文本框的属性修改一下，选中控件，把属性里的“Text”就是显示的内容，改成如“请输入要搜索的关键字. ”等Font 属性也可以修
8、改下。后再把Combo1的属性也修改，把Text 改成要显示的文件，因为这个是用来选择搜索引擎的，我们改成“选择引名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 20 页 - - - - - - - - - 擎. ”。 把 Command1 按钮， 的控件的属性“ Caption ”就是显示的内容，改成“搜索”等。以上控件的属性大家可以自己去摸，下面都有提示。好，我们修改完，以下就是我修改好后的界面，见图( 图 10)：这时我们还需要一个控件，但是工具箱里没有，我们必需添
9、加进来，右键点击工具箱，选择“部件 (O)”，弹出了一个对话框，( 图 11) 见图：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 20 页 - - - - - - - - - 我们把下拉条慢慢拉，看到一个( 图 12)的控件的时候，把前面的勾打上，然后点击“确定”见图( 图 13)：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 20 页 - -
10、 - - - - - - - 这时 VB的工具箱里多出了一个控件( 图 14)，我们选中它，把它拉到窗体上，这个就是用来显示搜索结果的，也就是网页控件，我们就把它拉满窗体的下半部分。见图 ( 图 15)：它名称为WebBrowser1，这也太长了，我们改改，改成WB1吧 ( 图 16) 呵呵，现在就进入真正的代码输入时间喽。下面我教大家如何调用搜索引擎。比如百度，我们在搜索框输入一个关键字，点击搜索，看看地址栏：http:/ 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共
11、 20 页 - - - - - - - - - 不难发现http:/ 就是调用， Word=，这个 =号后面就是我们要搜索的内容，谷歌也一样 http:/ http:/ 嘿嘿，对吧。其他的大家都可以自己去找。我这里就是五个：http:/ http:/ http:/ http:/ http:/ 默认的引擎呢，则是百度：http:/ 现在的程序只不过是一个只有界面没有功能的“废铁”而已，我们要为它加入“灵魂”!好，激动开始了，我们进入代码编辑区域，Go?! 代码我都会有详细注释，说明，用途等，源代码会提供给大家下载! 我们双击窗口的空白处，就是没有控件的地方，都是一些小点点，呵呵。双击后，代码编辑
12、窗口就跳出来了，看( 图17)名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 20 页 - - - - - - - - - 因为编编说要简单点，我就不加一些功能了大家都可以自己去慢慢琢磨。Private Sub Form_Load() End Sub 看， VB已经为我们创建好事件了，这个就是Form_Load 事件，就是窗体加载时的发生的事情，这个时候我们VB每个属性的时间都可以在列表中看到( 图18)鼠标操作事件名师资料总结 - - -精品资料欢迎下载 - - -
13、- - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 20 页 - - - - - - - - - Click 事件：鼠标单击对象。DbClick 事件：鼠标双击事件。MouseDown 、MouseUp 属性：按下 / 放开鼠标键事件。MouseMove 事件：鼠标移动事件。DragDrop 事件：拖放事件，相当于 MouseDown 、 MouseMove 和 MouseUp 的组合。DragOver 事件：鼠标在拖放过程中就会产生DragOver事件。键盘操作属性名师资料总结 - - -精品资料欢迎下载 - - - - -
14、 - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 20 页 - - - - - - - - - KeyDown 、KeyUp事件：按键的按下 / 放开事件。KeyPress 事件：按键事件。改变控制项事件Change事件：当对象的内容发生改变时，触发Change事件。最典型的例子是文本框（ TextBox）。DropDown事件：下弹事件，仅用于组合框（ComboBox ）对象。PathChange事件：路径改变事件，仅用于文件列表框（FileBox ）对象。其他事件名师资料总结 - - -精品资料欢迎下载 - - - - - -
15、 - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 20 页 - - - - - - - - - Timer 事件：仅用于计时器，每隔一段时间被触发一次。废话不多说了，我们开始写代码!Private Sub Form_Load() End Sub 就是窗体在加载时候发生的事件，我们在这里要让Combo1的列表里加入“百度搜索”“谷歌搜索”“雅虎搜索”等，就是搜索引擎的名称。在中间加入Private Sub Form_Load() Combo1.AddItem 转到谷歌 , 0 Combo1.AddItem 转到雅虎 , 1 Combo1
16、.AddItem 转到搜狗 , 2 Combo1.AddItem 转到搜搜 , 3 Combo1.AddItem 转到狗狗 , 4 End Sub 见图 ( 图 19)这段代码什么意思呢？就是在 Combo1里添加 (AddItem) 内容 “这里就是内容” ,0( 按顺序来，不能一样就对了) 现在运行程序试试，在Combo1的下拉列表中是不是出现了我们添加的内容，呵呵 现在我们要吧程序的搜索功能实现了，我们在Command1 的按钮控件双击鼠标，代码编辑器跳到了名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 -
17、- - - - - - 第 14 页，共 20 页 - - - - - - - - - Private Sub Command1_Click() End Sub 这个就是Commnad1 按钮的 Click(点击事件 ) Private Sub Command1_Click() Dim aa As String aa = Form1.Text1 WB1.Navigate http:/ + aa End Sub 这个就是搜索的代码第一句的意思是：声明变量，声明aa 为可变长字符串变量第二句： aa 这个变量就等于Text1.Text就是 aa 等于文本框Text1 中的内容Text 第三句：调用
18、网络浏览器控件(WB1)打开网页 (Navigate) http:/ 还加上一个 (+) 我们刚才声明的aa 变量， 然而 aa 等于 Text1.Text， 所以就是 +上我们在 Text1里输入的内容，然后打开网页( 图，按钮 ) ：我们再来实现程序随时互换搜索功能，直接双击Combo1控件，然后代码编辑器跳到了Private Sub Combo1_Change() End Sub 我们需要的不是Change() 事件，所以我们得改改，我们在事件下拉列表框中选择“Click ”点击事件，看到代码又跳了吧呵呵Private Sub Combo1_Click() 名师资料总结 - - -精品资
19、料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 20 页 - - - - - - - - - End Sub 大家也可以直接吧Change改成 Click也行。我们在 Click中间输入代码Private Sub Combo1_Click() Dim a As String a = Form1.Text1 If Combo1 = 转到谷歌 Then WB1.Navigate http:/ + a End If If Combo1 = 转到雅虎 Then WB1.Navigate http:/ + a
20、 End If If Combo1 = 转到搜狗 Then WB1.Navigate http:/ + a End If If Combo1 = 转到搜搜 Then WB1.Navigate 附件 :名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 20 页 - - - - - - - - - 图 21 时间 :2008-6-26 13:01 UI1 时间 :2008-6-26 13:10 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - -
21、- - - - - - - - 名师精心整理 - - - - - - - 第 17 页，共 20 页 - - - - - - - - - UI2 时间 :2008-6-26 13:10 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 18 页，共 20 页 - - - - - - - - - UI3 时间 :2008-6-26 13:10 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 19 页，共 20 页 - - - - - - - - - SC 时间 :2008-6-26 13:11 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 20 页，共 20 页 - - - - - - - - -