[系统教程]第一个 Visual Basic 应用程序

楼主^#

更多发布于：2011-11-20 07:19

[] 1


	第一个 Visual Basic 　　　　应用程序创建 Visual Basic 应用程序是很简单的事。有多简单？为回答这个问题，试着创建下面的 Hello , Visual Basic 和 Firstapp 应用程序。你好，Visual Basic 　　　　创建 Visual Basic 应用程序有三个主要步骤：　　　　1. 创建应用程序界面　　　　2. 设置属性　　　　3. 编写代码　　　　为了说明这一实现过程，按照以下步骤创建一个简单应用程序，该应用程序由一个文本框和一个命令按钮组成。单击命令按钮，文本框中会出现"Hello , world!" 消息。　　　　创建应用程序界面　　　　窗体是创建应用程序的基础。通过使用窗体可将窗口和对话框添加到应用程序中。也可把窗体作为项的容器，这些项是应用程序界面中的不可视部分。例如，应用程序中可能有一个作为图形容器的窗体，而这些图形是打算在其它窗体中显示的。　　　　建造 Visual Basic 应用程序的第一步是创建窗体，这些窗体将是应用程序界面的基础。然后在创建的窗体上绘制构成界面的对象。对于目前的第一个应用程序，你可使用工具箱中的两个控件。图片：50_3710_83f940315f46a12.gif 　　　　用工具箱绘制控件　　　　1. 单击要绘制的控件的工具——此时是“文本框”。　　　　2. 将指针移到窗体上。该指针变成十字线，如图 2.3 所示。图片：50_3710_fd04550e4691385.gif 　　　　3. 将十字线放在控件的左上角所在处。　　　　4. 拖动十字线画出适合您要的控件大小的方框（拖动的意思是按住鼠标左键用鼠标指针移动对象）。　　　　5. 释放鼠标按钮。　　　　控件出现在窗体上。　　　　在窗体上添加控件的另一个简单方法是双击工具箱中的控件按钮。这样会在窗体中央创建一个尺寸为缺省值的控件；然后再将该控件移到窗体中的其它位置。　　　　调整大小、移动和锁定控件　　　　注意出现在控件四周的小矩形框称作尺寸句柄；下一步可用这些尺寸句柄调节控件尺寸。也可用鼠标、键盘和菜单命令移动控件、锁定和解锁控件位置以及调节控件位置。　　　　调整控件的尺寸，请按照以下步骤执行：　　　　1. 用鼠标单击要调整尺寸的控件。选定的控件上出现尺寸句柄。　　　　2. 将鼠标指针定位到尺寸柄上，拖动该尺寸柄直到控件达到所希望的大小为止。　　　　　角上的尺寸柄可以调整控件水平和垂直方向的大小，而边上的尺寸柄调整控件一个方向的大小。　　　　3. 释放鼠标按钮。　　　　　- 或 - 　　　　　用 SHIFT 键加上和箭头键调整选定控件的尺寸。要移动控件，请：　　　　1.用鼠标把窗体上的控件拖动到一新位置。　　　　　- 或 - 　　　　　用“属性”窗口改变 Top 和 Left 属性。选定控件后，可用 CTRL 键加箭头键每次移动控件一个网格单元。如果该网格关闭，控件每次移动一个像素。　　　　2.要锁定所有控件位置，请：　　　　　从“格式”菜单，选取“锁定控件”。　　　　　- 或 -在“窗体编辑器”工具栏上单击“锁定控件切换”按钮。　　　　　这个操作将把窗体上所有的控件锁定在当前位置，以防止已处于理想位置的控件因不小心而移动。本操作只锁住选定窗体上的全部控件，不影响其它窗体上的控件。这是一个切换命令，因此也可用来解锁控件位置。 3.要调节锁定控件的位置，请：　　　　　按住 CTRL 键，再用合适的箭头键可“微调”已获焦点的控件的位置。　　　　　- 或 - 　　　　　也可在“属性”窗口中改变控件的 Top 和 Left 属性。　　　　　现在已生成了 "Hello, world!" 应用程序的界面，如图2.4所示。图片：50_3710_4842bcc07b2f628.gif 　　　　设置属性　　　　下一步是给创建的对象设置属性。属性窗口（图 2.5）给出了设置所有的窗体对象属性的简便方法。在“视图”菜单中选择“属性窗口”命令、单击工具栏上的“属性窗口”按钮或使用控件的上下文菜单，都可以打开属性窗口。图片：50_3710_450ba8109a3abde.gif 　　　　属性窗口包含如下的元素：　　　　1.对象框——显示可设置属性的对象的名字。单击对象框右边的的箭头，显示当前窗体的对象列表。　　　　2.排序——从按字母顺序排列的属性列表中进行选取，或从按逻辑（诸如与外观、字体或位置有关的）分类页的层次结构视图中进行选取。　　　　3.属性列表——左列显示所选对象的全部属性，右列可以编辑和查看设置值。　　　　要在“属性窗口”中设置属性，请按照以下步骤执行：　　　　1. 从“视图”菜单中，选取“属性”，或在工具栏中单击“属性”按钮。属性”窗口显示所选窗体或控件的属性设置值。　　　　2. 从属性列表中，选定属性名。　　　　3. 在右列中输入或选定新的属性设置值。　　　　列举的属性有预定义的设置值清单。单击设置框右边的向下的箭头，可以显示这个清单，或者双击列表项，可以循环显示这清单。　　　　以 "Hello, world!" 为例，现在要改变三种属性的设置值，而其它属性则采用缺省值。图片：50_3710_0ae495d840db6ed.gif 　　　　设置 Icon 属性　　　　在 Visual Basic 中，所有窗体都有一个普通的缺省图标，它们在窗体最小化时出现。也许您想换一个能说明窗体或应用程序的具体用途的图标。设置窗体的 Icon 属性，可给窗体指定新的图标。32 x 32 像素的图标 MicrosoftWindows 的 16-bit 版本的标准也可应用在 Winndows 95 和 Windows NT中，另一种 16 x 16 像素的图标是用在 Windows 95 中的。　　　　编写代码　　　　代码编辑器窗口是编写应用程序的 Visual Basic 代码的地方。代码由语句、常数和声明部分组成。使用代码编辑器窗口，可以快速查看和编辑应用程序代码的任何部分。　　　　要打开代码窗口，请：　　　　双击要编写代码的窗体或控件。　　　　　- 或 - 　　　　　从“工程管理器”窗口，选定窗体或模块的名称，然后选取“查看代码”按钮。　　　　　图 2.6 显示了在双击命令按钮控件后出现的代码编辑器窗口以及该命令的事件。　　　　　在同一个代码窗口中可以显示全部过程，也可只显示一个过程。　　　　　要同一代码窗口中显示全部过程，请按照以下步骤执行：　　　　1. 在“工具”菜单下，选定“选项”对话框。　　　　2. 在“选项”对话框的“编辑器”选项卡中，选取“缺省为全模式查看”左边的复选框。在“过程分隔符”左边的复选框，可在各过程间添加或去掉分隔线。　　　　　- 或 - 　　　　　在代码编辑器窗口的左下角单击“全模块查看”按钮。图片：50_3710_e5fbd9a19a497bc.gif 　　　　要代码窗口每次只显示一个过程，请按照以下步骤执行：　　　　1. 在“工具”菜单下选定“选项”对话框。　　　　2. 在“选项”对话框的“编辑器”选项卡中，清除“缺省为全模式查看”左边的复选框。　　　　　- 或 - 　　　　　在代码编辑器窗口的左下角单击“过程查看”按钮。　　　　代码窗口包含如下的元素：　　　　1.对象列表框——显示所选对象的名称。单击列表框右边的箭头，显示和该窗体关的所有对象的清单。　　　　2.过程列表框——列出对象的过程或事件。该框显示选定过程的名称。在目前情况下是 Click 事件。选取该框右边的箭头可以显示这个对象的全部事件。　　　　创建事件过程　　　　Visual Basic 应用程序的代码被分为称为过程的小的代码块。事件过程，正如此处正要创建的一样，包含了事件发生（例如单击按钮）时要执行的代码。控件的事件过程由控件的实际名称（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 示例应用程序　　　　由于 Visual Basic 提供了远比本例应用程序丰富得多的工具，因此马上可以使用许多其的特性来管理和配制应用程序。复习示例应用程序是学习Visual Basic 的极好方法。下述示例展示了用 Visual Basic 编制实用的应用程序是多么的轻而易举。　　　　应用程序Firstapp 演示了如何使用 data 控件和 grid 控件显示取自数据库的信息表。Visual Basic 使得从应用程序内部到数据库的访问非常地容易。数据控件提供了在数据库的记录集中漫游的功能，以及使得在 grid 控件中显示的记录与数据集中的位置同步的能力。　　　　本例包含一个数据控件、一个MSFlexGrid 控件、一个列表框控件和两个命令按钮。网格显示了从Northwind 数据库检索到的产品的信息表。当使用数据控件上的定位按钮选定网格的一项时，被选中的产品名便显示在数据控件上。还可以双击网格中当前选择位置，在列表框控件的“购书单”中添加当前选择的书名。　　　　用 AddItem 方法可以添加列表框的信息。方法是作用于特定对象（本例中为 ListBox 对象）的 Visual Basic 函数。指定方法的语法 (object.method) 与设置属性的语法 (object.property) 类似。AddItem 方法可以在程序运行时动态地添加列表框的内容。相反，Clear 方法用于清除列表框的全部信息。　　　　详细信息关于方法的详细内容，请参阅第三章“窗体、控件和菜单”中的“属性、方法和事件概述”一节。　　　　创建工程　　　　创建工程首先要从“文件”菜单中选择“新建工程”，然后从“新建工程”对话框中选定“标准 EXE”（首次启动 Visual Basic 时将会显示“新建工程”对话框）。Visual Basic 创建一个新的工程并显示一个新的窗体。用一个数据控件、一个MSFlexGrid 控件、一个列表框控件以及两个命令按钮画出了应用程序的界面。MSFlexGrid 控件不在缺省的工具箱内，因此必须添加：　　　　要添加控件到工具箱，请按照以下步骤执行：　　　　1. 选定工具箱的上下文菜单中的“部件”（可以在工具箱窗口内部单击右键显示上下文菜单。）。“部件”对话框被显示。　　　　2. 找到“控件”列表框中的“MSFlexGrid (Microsoft Flex Grid 6.0)”项，然后选中其左边的复选框。　　　　3. 单击“确定”按钮。在工具箱中有了MSFlexGrid 控件的图标。　　　　使用工具箱在窗体上画出一个数据控件、一个MSFlexGrid 控件、一个列表框控件和两个命令按钮。如果您不记得如何绘制，请参阅本章前面的"Creatingthe interface"。　　　　设置属性根据下表在属性窗口中设置对象的属性，其余的属性均使用缺省值。图片：50_3710_4824aa2b767c5f3.gif 　　　　数据控件的 DatabaseName 属性必须包含数据库的实际路径。按照缺省规定，Biblio.mdb 数据库的按钮与 Visual Basic 安装在同一个目录下。在属性窗口中选择 DatabaseName 属性时，可以单击该属性右侧的按钮显示标准的“打开文件”对话框浏览文件。设置完 DatabaseName 属性后，属性窗口中的 RecordSource 属性将包含选中的数据库中的表或记录集的清单。将DataGrid 控件的 DataSource 属性设置为 Data1，将自动地把网格和数据控制链接起来。　　　　编写事件代码　　　　程序所有的代码包含在 Command1_Click、Command2_Click、Data1_Reposition 和DataGrid1_DblClick 事件过程中。双击窗体或控件显示代码窗口，然后输入各事件过程的代码。　　　　将以下代码添加到 Command1_Click 事件过程中，用于单击按钮时清除列表框：　　　　Private Sub Command1_Click () 　　　　List1.Clear'　　　　　　　　　　清除列表框。　　　　End Sub 　　　　以上语句调用了列表框 List1 的 Clear 方法，Clear 方法删除该列表框的内容。　　　　将以下代码添加到 Command2_Click 事件过程中，用于从内存中卸载窗体并终止应用程序：　　　　Private Sub Command2_Click () 　　　　　　　Unload Form1 　　　　　　　End' 　　　　　　　　　　终止应用程序　　　　End Sub 　　　　以上过程的第一条语句调用窗体的 Unload 事件。如果需要在终止程序时执行一个功能（例如保存文件），可以把代码放到窗体的 Unload 事件过程中。第二条语句调用 End 函数终止程序。　　　　将以下代码添加到 Data1_Reposition 事件过程中，用于每当选择一个记录时更新标题：　　　　Private Sub Data1_Reposition () 　　　　　Data1.Caption = Data1.Recordset("Title") 　　　　End Sub 　　　　以上语句将右边的值（数据控件的记录集的 Title 字段）赋给左边的属性（数据控件对象的 Caption 属性）。　　　　将以下代码添加到DataGrid_DblClick 事件过程中，用于当双击一个选定的行时向列表框添加信息。　　　　Private Sub DataGrid1_DblClick () 　　　　　　List1.AddItem Data1.Recordset("Title") 　　　　End Sub 　　　　以上语句调用列表框 List1 的 AddItem 方法。添加到列表框中的文本被包含在该方法的参数中（此时为数据控件的记录集的 title 字段）。将一个值传递给参数类似于给属性赋值，与赋值语句不同的是不需要用等号。　　　　保存工程　　　　从“文件”菜单中选取“保存工程”命令来结束本次创建应用程序的工作。Visual Basic 将分别提示保存窗体和保存工程。可以将工程命名为“书店销售清单” ("Bookstore Shopping List.")。Windows 95 和 Windows NT 都允许使用长达 255 个字符的文件名而且可以包含空格。旧版的 MicrosoftWindows 只允许八个字符的文件名外加三个字符的扩展名。　　　　增强应用程序　　　　这样第一个 Visual Basic 应用程序就完成了：这是一个功能简单却很有用的程序。可以以此为基础在自己的应用程序中添加新的功能，用自己的数据替换 Biblio.mdb。当然，要使本程序真正实用，还要添加基本的保存或打印列表框内容的功能、添加更多的信息,如价格、是否有货，甚至可以收集信用卡的信息和通过 Internet 传送订单。通过继续阅读《程序员指南》的其余部分将找到所有有关这些功能的例子和其它更多的知识。