操作题
2. 在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为Filel的文件列表框，名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”，如图所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在Label2中显示选中的文件名。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
【正确答案】【操作步骤】
步骤1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图所示。
步骤1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性，如图所示。
【答案解析】[考点] 本题考点有：标签的Name、Caption属性，窗体的Captton属性，驱动器列表框的Name和Path属性，目录列表框的Name和Path属性以及文件列表框的Name、Path和FileNams属性。
在实际应用中，驱动器列表框、目录列表框和文件列表框通常需要同步操作，这可以通过Path属性的改变引发Change事件来实现。
例如：
Private Sub Dir1_Chanqe()
File1.Path=Dir1.Patn
End Sub
该事件过程使窗体上的目录列表框Dir1和文件列表框Filel产生同步。因为目录列表框的Path属性的改变将产生Change事件，所以在Dir1_Change事件过程中，把Dir1.Path赋给File1.Path即可产生同步效果。
类似地，增加下面的事件过程可使三种列表框同步操作。
例如：
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
End Sub
该过程使驱动器列表框与目录列表框同步，前面的过程使目录列表框与文件列表框同步，从而使三种列表框同步。
在实际应用中，驱动器列表框、目录列表框和文件列表框通常需要同步操作，这可以通过Path属性的改变引发Change事件来实现。
例如：
Private Sub Dir1_Chanqe()
File1.Path=Dir1.Patn
End Sub
该事件过程使窗体上的目录列表框Dir1和文件列表框Filel产生同步。因为目录列表框的Path属性的改变将产生Change事件，所以在Dir1_Change事件过程中，把Dir1.Path赋给File1.Path即可产生同步效果。
类似地，增加下面的事件过程可使三种列表框同步操作。
例如：
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
End Sub
该过程使驱动器列表框与目录列表框同步，前面的过程使目录列表框与文件列表框同步，从而使三种列表框同步。