[问答题] 完成下列问题：在名称为Form1的窗体上画一个名称为Drive1的驱动器列表框、一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，一个名称为Label1、标题为“文件名”的标签和一个名称为Label2、BorderStyle为1的标签。窗体的标题没置为“文件系统控件”，如图1所示。请编写适当的程序，使得这3个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在Label2中。

参考答案：

[操作步骤]
第1步：新建一个标准EXE工程，修改窗体的Caption属性为“文件系统控件”。
第2步：在窗体上画一个驱动器列表框、一个目录列表框、一个文件列表框，保持各控件的默认属性不变。
第3步：在窗体上画一个标签控件，修改其Caption属性为“文件名”；再画一个标签控件，修改其BorderStyle属性值为1。
第4步：编写程序。
PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub
PrivateSubDirve1_Change()
Dir1.Path=Drive1.Drive
EndSub
PrivateSubFile1_Click()
Label2=File1.FileName
EndSub
第5步：调试、运行并保存程序。

● 参考解析

驱动器列表框显示系统下的盘符，目录列表框显示当前盘符下的目录文件路径，文件列表框显示当前目录下的文件名。通过下面的事件，使得三者同步变化：PrivateSubDrive1_Change()Dir1.path=Drive1.DriveEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSub单击文件列表框时，可以通过文件列表框的FileName属性取得当前从列表框中选取的文件名。

当前位置：IT认证＞BASIC题库

相关题目: