主题：如何在窗体中，实现动态菜单

看了“动态菜单 “却不知道如何在窗体中实现这样的功能，
通过‘ComboBox,只指定到；D：\Foxtable\...

不明白你的意思

Dim FiName As String
For Each dir As String In FileSys.GetDirectories("d:\")
    FiName = FiName & "|" & dir
Next
e.Sender.ComboList = FiName

 

  我估计是要这个.

如：在窗体中，通过点击ComboBox下拉列，找到D:\文件夹\目录下的所有文件；应该如何实现？

还是不明白你的意思，不能具体一点吗？

Dim FiName As String
For Each dir As String In FileSys.GetDirectories("d:\")
    For Each File As String In FileSys.GetFiles(dir)
        FiName=FiName & "|" & File
    Next
Next
e.Sender.ComboList = FiName

窗体的AfterLoad事件

Dim Cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
For Each File As String In FileSys.GetFiles("D:\Foxtable")
    Cmb.Items.Add(File)
Next