完成下列问题:
在名称为Form1的窗体上画一个名称为Drive1的驱动器列表框、一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,一个名称为Label1、标题为“文件名”的标签和一个名称为Label2、BorderStyle为1的标签。窗体的标题没置为“文件系统控件”,如图1所示。请编写适当的程序,使得这3个文件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将选中的文件名显示在Label2中。
[*]
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
参考答案:[操作步骤]
第1步:新建一个标准EXE工程,修改窗体的Caption属性为“文件系统控件”。
第2步:在窗体上画一个驱动器列表框、一个目录列表框、一个文件列表框,保持各控件的默认属性不变。
第3步:在窗体上画一个标签控件,修改其Caption属性为“文件名”;再画一个标签控件,修改其BorderStyle属性值为1。
第4步:编写程序。
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Dirve1_Change()
Dir1.Path=Drive1.Drive
End Sub
Private Sub File1_Click( )
Label2=File1.FileName
End Sub
第5步:调试、运行并保存程序。
解析: 驱动器列表框显示系统下的盘符,目录列表框显示当前盘符下的目录文件路径,文件列表框显示当前目录下的文件名。通过下面的事件,使得三者同步变化:
Private Sub Drive1_Change()
Dir1.path=Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
单击文件列表框时,可以通过文件列表框的FileName属性取得当前从列表框中选取的文件名。