?第五单元 文件与表
设计10 实现文件浏览
应用程序中常要对文件进行操作，VB也提供了磁盘、文件夹、文件三个列表框控件。怎么通过设置把它们配合起来使用呢？
可以先把三个对象都建立起来，布好局。
图13 文件类控件
1、要想在程序启动时显示的驱动器是D盘，可以在窗体的Load事件中写这样的代码：
Drive1.Drive = \
2、在磁盘对象的Change事件中写这样的代码：
Dir1.Path = Drive1.Drive
就让磁盘和文件夹联系起来了。
3、在文件夹对象的Change事件中写这样的代码：
File1.Path = Dir1.Path
21
就让文件夹和文件联系起来了。
4、单独使用某个控件时，主要是用字符串的形式给盘符或路径属性赋值。 5、我们现在向软件学习。我们想知道，文件控件显示的文件类型由哪个属性决定？默认的肯定是所有文件，我们就在属性窗口找值为*.*的属性，发现它是Pattern
单独使用文件控件时，Pattern属性的值是通配的文件标识符形式的字符串。如：
”D:\\Images\\*.jpg”
小小思考：我们现在想在前面设计的基础上加一个文本框，当在文本框内输入文件类型并回车后，文件控件按我们指定的类型显示文件。该怎么设计？
22
设计11 使用数据库表
对于我们学过VFP的人来说，用VB创建一个数据库并在其中创建数据表并不是太难的事情；如何让窗体呈现数据表的记录数据也有章可循。
1、创建数据库与数据表
外接程序→可视化数据管理器，打开可视化数据管理器窗口。
在其中，文件→新建，选第一种类型（Access）的数据库，输入数据库名称，选择存储路径（你的工程文件夹）并保存。这时数据库是空的，我们要在其中建立数据表（表在库文件中）。
在数据库窗口中新建的数据库的右键菜单中选择“新建表”，会弹出表结构对话框，首先输入表名，单击添加字段按钮，在弹出的添加字段对话框中建立一个字段的结构，确定后添加字段对话框关闭，该字段即加入到表结构对话框的字段列表中。
接下来就是输入数据了。在数据库窗口中的数据库对象下找到新建的数据表对象，双击表名，即进入表记录编辑。
2、利用数据控件联系库与表
数据控件上显示的文字也是Caption值。
Connect属性值指明联接的数据库类型，此处为默认的Access类型。 DatabaseName属性值指定数据库文件名。 RecordSoure属性值指定数据表名。
这样，一个数据控件就已经联系到具体的表了。剩下就是将字段数据与相应的控件绑定。
3、（例如）用文本框绑定字段
文本框一般可绑定到字符型、数值型、日期型、备注型等字段。
我们首先要通过它的DataSource属性指明它联系的数据控件，这样再通过DataField属性选择表的字段时，就有现成的字段供你选择。这就实现绑定了。
把所有想显示出数据的字段都绑定到可视控件上后，利用数据控件可实现首记录、上一条、下一条、末记录的翻查。
23
?第六单元 颜色坐标
设计12 自己调制颜色
图14 用户配色
这里，反映颜色的实际上是一个标签的底色。调制三原色的是由滚动条控件（不是文本框里的那个滚动条）产生的三个滚动条对象。运行时，只要移动了一个滚动条颜色就会自动显示。设计要点如下： 1、设计一个标签对象，标题为空，名称为LblYS.
2、设计标题分别为红、绿、蓝的三个标签。因为格式一样，可以先设计好一个，用复制→粘贴的方法产生另外两个（这样会产生标签数组，不必管它）。
3、先用控件工具栏的滚动条控件产生一个滚动条，设置好如下属性： Caption:红 名称:HsbYS Min:0 Max:255 SmallChange:1 LargeChange:5 再用复制→粘贴的方法产生另外两个，这样产生的滚动条数组HsbYS，各对象的名称就是
HsbYS(0), HsbYS(1), HsbYS(2)
4、给滚动条数组HsbYS的Changge事件编写代码：
LblYS.BackColor = RGB(HsbYS(0).Value, HsbYS(1).Value, HsbYS(2).Value)
24
这样，运行时只要数组中的一个Value值发生变化，就会执行代码，给标签底色赋新值。
拓展提示：
1、这里是给标签配底色，用颜色的地方很多，如果把它作为应用程序的一个亮点，会使程序个性化、人性化。
2、这里是通过配色讲滚动条的用法，其它凡是用到有上下限的数量的地方，都可以考虑用滚动条是否合适。
25