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

admin2012-09-07  32

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

选项 A、Private Sub Dir1_Change()
          File1.Path=Dir1.Path
    End Sub
    Private Sub Drivel_Change()
          Dir1.Path=Drivel.Drive
          Label1.Caption=File1.ListCount
    End Sub
B、Private Sub Dir1_Change()
          File1.Path=Dir1.Path
  End Sub
  Private Sub Drivel_Change()
          Dir1.Path=Dfivel.Drive
          Label1.Caption=File1.List
  EndSub
C、Private Sub Dir1_Change()
          File1.Path=Dir1.Path
          Label1.Caption=File1.ListCpunt
    End Sub
    Private Sub Drivel_Change()
          Dir1.Path=Drivel.Drive
          Label1.Caption=File1.ListCount
    End Sub
D、Private Sub Dir1_Change()
          File1.Path=Dir1.Path
          Label1.Caption=File1.List
  End Sub
  Private Sub Drivel_Change()
          Dir1.Path=Drivel.Drive
          Label1.Caption=File1.List
  End Sub

答案C

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

最新回复(0)