13期聪明用电脑——小来福送给CFAN读者的神秘礼物

Visual Basic 初学者编写简单的小软件

今天来给大家教个Visual Basic(以下简称VB) 的初级编程，我们来编写一个很小的搜索工具。能在多个搜索引擎中提交你搜索的内容哦!爱好者博墅4icf`a*J-A
VB是微软公司开发的一款Win32应用程序平台开发工具，它的编程语言简单易学，同人类的自然语言很相似，所以是初学编程者的好选择!
/CWxX O,^0首先，针对初学者，代码我都会一一注释的，我们使用的工具是VB6.0企业版的精简版，下载地址：华军软件园下载下载完成后，安装程序，然后我们打开VB的集成开发环境。(我编写本程序的环境为Windows XP SP2)
8c ^(Zz Gh]e#_I:N0新建一个“标准EXE”的工程(图1)。 

点击“确定”后，会看到VB自动创建了一个窗体，我们来简单了解一下VB的各个部件，见图。(图2)

现在程序的窗体已经出来了，窗体就是我们的“画布”大家可以用控件在上面随意“画画”可以做成自己喜欢的样子，因为是文章。我就不怎么搞美化了。

首先，我们点击设置窗体，把窗体的Form1的属性，在属性窗口里设置一下。

属性值      常量                      中文含义

  0        vbBSNone              窗体无边框标题栏

  1       vbFixedSingle          单线边框，大小不可调

  2         vbSizable         默认值。双线边框，大小可调

  3       vbFixedDialog       固定对话框风格，大小不可调

  4     vbFixedToolWindow      工具栏风格，大小不可调

  5     vbSizableToolWindow      工具栏风格，大小可调

这里当BorderStyle的属性值为“0、3、4、5”时，无论MinButton(最小化按钮)，MaxButton(最大化按钮)的取值如何都不显示“最大化”和“最小化”按钮。爱好者博墅e5iF5RL@ts4_
这里我们这样设计窗口：|
&k `cz'yF0把Form1的BorderStyle改为1(vbFixedSingle)，单线边框。把MinButton的值由“False”改为“True”，有最小化按钮。把MaxButton改为“False”，没有最大化按钮。爱好者博墅0v)aKXR\
这里说明下“False”和“True”。False-是“假”，平常话说就是“不要这个功能”，True则相反。爱好者博墅:sTv9N8qw!T1V ])X
然后吧窗体拉大点，把“Caption”属性，窗体运行时的标题，可以改成“我的搜索工具”等，大家可以按照自己喜欢来改。还有一个“Icon”属性，是窗体的图标，大家可以自己制作，也可以使用提取工具提取其他文件中的Icon图标然后加入。方法是点击“...”按钮，然后选择你的Icon图标就可以了。

以下是我设计好的窗体，见图(图3)

好，我们开始“画画”吧，呵呵。首先，点击工具箱里的 (图4)“ComboBox”控件，

点击后，把鼠标移动到窗体上面拉出一个控件框，见图(图5)

然后，在点击(图6)(文本框)控件，按照刚才的步骤，拉出一个框，然后也是一样的，点击(图7)(按钮)控件，在点击(图8)(Label)控件，依次拉出。

我拉好的界面是这样的(图9)：

我们都来改下这些控件的属性吧，让他们更好看些！

首先是Label1-选中Label1，然后查看属性窗口，把“Caption”标题的属性改为你想显示的标题，如“输入内容：”把Font的属性修改一下，点击Forn属性的“...”按钮，弹出字体框选择一个字体样式，选择大小等，点击“确定”。

再来，把Text1文本框的属性修改一下，选中控件，把属性里的“Text”就是显示的内容，改成如“请输入要搜索的关键字...”等Font属性也可以修改下。后再把Combo1的属性也修改，把Text改成要显示的文件，因为这个是用来选择搜索引擎的，我们改成“选择引擎...”。把Command1按钮，的控件的属性“Caption”就是显示的内容，改成“搜索”等。

以上控件的属性大家可以自己去摸，下面都有提示。

好，我们修改完，以下就是我修改好后的界面，见图(图10)：

这时我们还需要一个控件，但是工具箱里没有，我们必需添加进来，右键点击工具箱，选择“部件(O)”，弹出了一个对话框，(图11)见图：

我们把下拉条慢慢拉，看到一个(图12)的控件的时候，把前面的勾打上，然后点击“确定”见图(图13)：

这时VB的工具箱里多出了一个控件(图14)，我们选中它，把它拉到窗体上，这个就是用来显示搜索结果的，也就是网页控件，我们就把它拉满窗体的下半部分。

见图(图15)：它名称为WebBrowser1，这也太长了，我们改改，改成WB1吧~ (图16)

呵呵，现在就进入真正的代码输入事件喽。

下面我教大家如何调用搜索引擎。

比如百度，我们在搜索框输入一个关键字，点击搜索，看看地址栏：

http://www.baidu.com/s?wd=123&tn=ichuner_4_pg

不难发现http://www.baidu.com/s?wd=就是调用，wd=，这个=号后面就是我们要搜索的内容，谷歌也一样 http://www.google.cn/search?hl=zh-CN&q=123&meta=&aq=f

http://www.google.cn/search?hl=zh-CN&q=

嘿嘿，对吧。其他的大家都可以自己去找。

我这里就是五个：

http://www.google.cn/search?hl=zh-CN&q=

http://www.yahoo.cn/s?p=

http://www.sogou.com/web?query=

http://www.soso.com/q?pid=s.idx&w=

http://search.gougou.com/search?search=

默认的引擎呢，则是百度：http://www.baidu.com/s?wd=

现在的程序只不过是一个只有界面没有功能的“废铁”而已，我们要为它加入“灵魂”!

好，激动开始了，我们进入代码编辑区域，Go?!

代码我都会有详细注释，说明，用途等，源代码会提供给大家下载!

 

我们双击窗口的空白处，就是没有控件的地方，都是一些小点点，呵呵。双击后，代码编辑窗口就跳出来了，看(图17)

因为编编说要简单点，我就不加一些功能了~~大家都可以自己去慢慢琢磨。

Private Sub Form_Load()

 

End Sub

看，VB已经为我们创建好事件了，这个就是Form_Load事件，就是窗体加载时的发生的事情，这个时候我们VB每个属性的时间都可以在列表中看到(图18)

鼠标操作事件

	Click事件：鼠标单击对象。
	DbClick事件：鼠标双击事件。
	MouseDown、MouseUp属性：按下/放开鼠标键事件。
	MouseMove事件：鼠标移动事件。
	DragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。
	DragOver事件：鼠标在拖放过程中就会产生DragOver事件。

 键盘操作属性

	KeyDown、KeyUp事件：按键的按下/放开事件。
	KeyPress事件：按键事件。

改变控制项事件

	Change事件：当对象的内容发生改变时，触发Change事件。最典型的例子是文本框（TextBox）。
	DropDown事件：下弹事件，仅用于组合框（ComboBox）对象。
	PathChange事件：路径改变事件，仅用于文件列表框（FileBox）对象。

其他事件

Timer事件：仅用于计时器，每隔一段时间被触发一次。

废话不多说了，我们开始写代码!

Private Sub Form_Load()

 

End Sub

就是窗体在加载时候发生的事件，我们在这里要让Combo1的列表里加入

“百度搜索”“谷歌搜索”“雅虎搜索”等，就是搜索引擎的名称。

在中间加入

Private Sub Form_Load()

    Combo1.AddItem "转到谷歌", 0

    Combo1.AddItem "转到雅虎", 1

    Combo1.AddItem "转到搜狗", 2

    Combo1.AddItem "转到搜搜", 3

    Combo1.AddItem "转到狗狗", 4

End Sub

见图(图19)

这段代码什么意思呢？

就是在Combo1里添加(AddItem)内容 “这里就是内容”,0(按顺序来，不能一样就对了~)

现在运行程序试试，在Combo1的下拉列表中是不是出现了我们添加的内容，呵呵~

现在我们要吧程序的搜索功能实现了，我们在Command1的按钮控件双击鼠标，代码编辑器跳到了

Private Sub Command1_Click()

 

End Sub

这个就是Commnad1按钮的Click(点击事件)

Private Sub Command1_Click()

Dim aa As String

aa = Form1.Text1

WB1.Navigate "http://www.baidu.com/baidu?word=" + aa

End Sub

这个就是搜索的代码

第一句的意思是：声明变量，声明aa为可变长字符串变量

第二句：aa这个变量就等于Text1.Text就是aa等于文本框Text1中的内容Text

第三句：调用网络浏览器控件(WB1)打开网页(Navigate) http://www.baidu.com/s?wd=

还加上一个(+)我们刚才声明的aa变量，然而aa等于Text1.Text，所以就是+上我们在Text1里输入的内容，然后打开网页

(图，按钮)：

我们再来实现程序随时互换搜索功能，直接双击Combo1控件，然后代码编辑器跳到了

Private Sub Combo1_Change()

 

End Sub

我们需要的不是Change()事件，所以我们得改改，我们在事件下拉列表框中选择“Click”点击事件，看到代码又跳了吧~~呵呵

Private Sub Combo1_Click()

 

End Sub

大家也可以直接吧Change改成Click也行。

我们在Click中间输入代码

Private Sub Combo1_Click()

Dim a As String

a = Form1.Text1

If Combo1 = "转到谷歌" Then

WB1.Navigate "http://www.google.cn/search?hl=zh-CN&q=" + a

End If

If Combo1 = "转到雅虎" Then

WB1.Navigate "http://www.yahoo.cn/s?p=" + a

End If

If Combo1 = "转到搜狗" Then

WB1.Navigate "http://www.sogou.com/web?query=" + a

End If

If Combo1 = "转到搜搜" Then

WB1.Navigate