在窗体上有一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化

admin2019-06-20  42

问题 在窗体上有一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是(    )。

选项 A、Private Sub Dirl_Change()
    Filel.Path=Dirl.Path
    End Sub
    Private Sub Drive1_Change()
    Dirl.Path=Drivel.Drive
    Label1.Caption=File1.ListCount
    End Sub
B、Private Sub Dirl_Change()
    Filel.Path=Dirl.Path
    End Sub
    Privme Sub Drivel_Shange()
    Dirl.Path=Drivel.Drive
    Label1.Caption=File1.List
    End Sub
C、Private Sub Dirl_Change()
    Filel.Path=Dirl.Path
    Label1.Caption=File1.ListCount
    End Sub
    Private Sub Drive1_Change()
    Dirl.Path=Drive1.Drive
    Label1.Caption=File1.ListCount
    End Sub
D、Private Sub Dirl_Change()
    File1.Path=Dir1.Path
    Label1.Caption=File1.List
    End Sub
    Privme Sub Drivel_Change()
    Dirl.Path=Drivel.Drive
    Label1.Caption=File1.List
    End Sub

答案C

解析 本题考查文件系统控件。要使驱动器、目录和文件列表框同步显示,那么就需要编写代码才能使它们之间彼此同步,在驱动器Drivel的Change事件中,要Dirl.Path=Drivel.Drive,使目录的路径和驱动器一致,同时在目录Dirl的Change事件中要Filel.Path=Dirl.Path,使文件路径的位置和驱动器一致。可以在文件列表框中使用ListCount属性来统计文件数目(当文件路径改变时统计)。
转载请注明原文地址:https://kaotiyun.com/show/6vUp777K
0

最新回复(0)