用VB编写程序实例

vb程序实例（一）

创建vb应用程序是很简单的事。有多简单？为回答这个问题，试着创建下面的Hello ,vb和Firstapp 应用程序。

你好，Visual Basic

创建vb应用程序有三个主要步骤：

1. 创建应用程序界面

2. 设置属性

3. 编写代码

为了说明这一实现过程，按照以下步骤创建一个简单应用程序，该应用程序由一个文本框和一个命令按钮组成。单击命令按钮，文本框中会出现"Hello , world!" 消息。

创建应用程序界面

窗体是创建应用程序的基础。通过使用窗体可将窗口和对话框添加到应用程序中。也可把窗体作为项的容器，这些项是应用程序界面中的不可视部分。例如，应用程序中可能有一个作为图形容器的窗体，而这些图形是打算在其它窗体中显示的。

建造vb应用程序的第一步是创建窗体，这些窗体将是应用程序界面的基础。然后在创建的窗体上绘制构成界面的对象。对于目前的第一个应用程序，你可使用工具箱中的两个控件。

用工具箱绘制控件

1. 单击要绘制的控件的工具——此时是“文本框”。

2. 将指针移到窗体上。该指针变成十字线，如图2.3 所示。

3. 将十字线放在控件的左上角所在处。

4. 拖动十字线画出适合您要的控件大小的方框（拖动的意思是按住鼠标左键用鼠标指针移动对象）。

5. 释放鼠标按钮。

控件出现在窗体上。

在窗体上添加控件的另一个简单方法是双击工具箱中的控件按钮。这样会在窗体中央创建一个尺寸为缺省值的控件；然后再将该控件移到窗体中的其它位置。

调整大小、移动和锁定控件

注意出现在控件四周的小矩形框称作尺寸句柄；下一步可用这些尺寸句柄调节控件尺寸。也可用鼠标、键盘和菜单命令移动控件、锁定和解锁控件位置以及调节控件位置。

调整控件的尺寸，请按照以下步骤执行：

1. 用鼠标单击要调整尺寸的控件。选定的控件上出现尺寸句柄。

2. 将鼠标指针定位到尺寸柄上，拖动该尺寸柄直到控件达到所希望的大小为止。

角上的尺寸柄可以调整控件水平和垂直方向的大小，而边上的尺寸柄调整控件一个方向的大小。3. 释放鼠标按钮。

- 或-

用SHIFT 键加上和箭头键调整选定控件的尺寸。要移动控件，请：

1.用鼠标把窗体上的控件拖动到一新位置。

- 或-

用“属性”窗口改变Top 和Left 属性。选定控件后，可用CTRL 键加箭头键每次移动控件一个网格单元。如果该网格关闭，控件每次移动一个像素。

2.要锁定所有控件位置，请：

从“格式”菜单，选取“锁定控件”。

- 或-在“窗体编辑器”工具栏上单击“锁定控件切换”按钮。

这个操作将把窗体上所有的控件锁定在当前位置，以防止已处于理想位置的控件因不小心而移动。本操作只锁住选定窗体上的全部控件，不影响其它窗体上的控件。这是一个切换命令，因此也可用来解锁控件位置。

创建事件过程

vb应用程序的代码被分为称为过程的小的代码块。事件过程，正如此处正要创建的一样，包含了事件发生（例如单击按钮）时要执行的代码。控件的事件过程由控件的实际名称（Name 属性中所指定的）、下划线(_) 和事件名组合而成。例如，在单击一个名为Command1 的命令按钮时调用的Name 事件过程，可称为Command1_Click 事件过程。

要创建事件过程，请按照以下步骤执行：

1. 在“对象”列表框中，选定活动窗体中的一个对象名（活动窗体是指当前有焦点的窗体）。在这一例子中，选定命令按钮Command1。

2. 在“过程”列表框中，选择指定对象的事件名。此时Click 过程已经被选定，因为它是命令按钮的缺省过程。注意，这时事件过程的模板已经显示在“代码”窗口中。

3. 在Sub 和End Sub 语句之间输入下面的代码：

Text1.Text = "Hello, world!"

这个事件过程应该是：

Private Sub Command1_Click ()

Text1.Text = "Hello, world!"

End Sub

值得注意的是，此处代码只简单改变了控件Text1 的Text 属性，读入"Hello, world!"。这个例子的语法采用object. property的格式，其中Text1 是对象，Text 是属性。响应应用程序运行中发生的事件时，可以用这种语法来改变任何窗体或控件的属性设置值。

详细信息关于创建其它类型过程的详细信息，请参阅第五章“编程基础”中的“过程概述”一节。运行应用程序

为了运行应用程序，可以从“运行”菜单中选择“启动”，或者单击工具栏中的“启动”按钮，或按F5 键。单击刚才在窗体上创建的命令按钮，文本框中就会显示"Hello, world!"。

Firstapp 示例应用程序

由于vb提供了远比本例应用程序丰富得多的工具，因此马上可以使用许多其的特性来管理和配制应用程序。复习示例应用程序是学习vb的极好方法。下述示例展示了用vb编制实用的应用程序是多么的轻而易举。

应用程序Firstapp 演示了如何使用data 控件和grid 控件显示取自数据库的信息表。vb使得从应用程序内部到数据库的访问非常地容易。数据控件提供了在数据库的记录集中漫游的功能，以及使得在grid 控件中显示的记录与数据集中的位置同步的能力。

本例包含一个数据控件、一个MSFlexGrid 控件、一个列表框控件和两个命令按钮。网格显示了从Northwind 数据库检索到的产品的信息表。当使用数据控件上的定位按钮选定网格的一项时，被选中的产品名便显示在数据控件上。还可以双击网格中当前选择位置，在列表框控件的“购书单”中添加当前选择的书名。

用AddItem 方法可以添加列表框的信息。方法是作用于特定对象（本例中为ListBox 对象）的vb 函数。指定方法的语法(object.method) 与设置属性的语法(object.property) 类似。AddItem 方法可以在程序运行时动态地添加列表框的内容。相反，Clear 方法用于清除列表框的全部信息。

详细信息关于方法的详细内容，请参阅第三章“窗体、控件和菜单”中的“属性、方法和事件概述”一节。

创建工程

创建工程首先要从“文件”菜单中选择“新建工程”，然后从“新建工程”对话框中选定“标准EXE”（首次启动vb时将会显示“新建工程”对话框）。vb创建一个新的工程并显示一个新的窗体。用一个数据控件、一个MSFlexGrid 控件、一个列表框控件以及两个命令按钮画出了应用程序的界面。MSFlexGrid 控件不在缺省的工具箱内，因此必须添加：

要添加控件到工具箱，请按照以下步骤执行：

1. 选定工具箱的上下文菜单中的“部件”（可以在工具箱窗口内部单击右键显示上下文菜单。）。“部