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

admin2018-12-20  36

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

选项 A、Private Sub Dir 1—Change()
    File 1.Path=Dirl.Path
    End Sub
    Private Sub Drive 1_Change()
    Dirl.Path=Drive 1.Drive
    Label 1.Caption=File 1.ListCount
    End Sub
B、Private Sub Dirl_Change()
    File 1.Path=Dirl.Path
    End Sub
    Private Sub Drive 1_Change()
    Dirl.Path=Drivel.Drive
    Label 1.Caption=File 1.List
    End Sub
C、Private Sub Dirl_Change()
    File 1.Path=Dir 1.Path
    Label 1.Caption=File 1.ListCount
    End Sub
    Private Sub Drive 1__Change()
    Dirl.Path=Drive 1.Drive
    Labe11.Caption=File 1.ListCount
    End Sub
D、Private Sub Dir 1_Change()
    File 1.Path=Dir 1.Path
    Label 1.Caption=File 1.List
    End Sub
    Private Sub Drive 1__Change()
    Dirl.Path=Drive 1.Drive
    Label 1.Caption=File 1.List
    End Sub

答案C

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

最新回复(0)