Visual Basic 第一个应用程序

　　　　数据控件的 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 传送订单。通过继续阅读《程序员指南》的其余部分将找到所有有关这些功能的例子和其它更多的知识。