编程论坛 → VB6论坛

求助Dir1控件应用中的问题

sx_dg 发布于 2015-12-04 01:32， 660 次点击

只有本站会员才能查看附件，请登录

知道双击Dir1控件就打开了这个文件夹，但我要求助的是：
1、点击“打开”按钮后打开了这个文件夹。
2、并将这个文件夹中的所有文件名加到一个复合框Combo1的下拉列表上。
哪老师给写段代码，谢谢！！

[此贴子已经被作者于2015-12-5 10:17编辑过]

7 回复

sx_dg2015-12-05 10:20

回复楼主 sx_dg

如果问题 1、一下解决不了，那就把问题改为双击Dir1控件就打开了这个文件夹，然后把打开的文件夹中的文件目录加到一个复合框（在另外一个窗体上）的下拉列表上。
Private Sub Dir1_Change()
   1、遍历打开的这个文件夹
   2、把文件目录加到复合框的下拉上
End Sub
        谢谢！

[此贴子已经被作者于2015-12-5 10:30编辑过]

hjxlj2015-12-05 13:50

天冷不想给你搞啊

wmf20142015-12-05 21:38

如果不想用代码弄，可以直接用filelist控件，遍历该控件里的元素就得到你想要的了

sx_dg2015-12-06 00:58

filelist控件我知道，我就想用代码加到复合框下拉列表上

sx_dg2015-12-06 01:00

回复 3楼 hjxlj

老师弄一下嘛，代码应该不长的！

wmf20142015-12-07 09:51

在工程里添加drive1、dir1、combo1、command1控件各一个，复制如下代码就可以看到了：

程序代码：

Private Sub Command1_Click()
  Dim a As String
  Combo1.Clear
  a = Dir(Dir1.Path & "\*.*", vbNormal)
  While (a <> "")
    Combo1.AddItem a
    a = Dir
  Wend
  If Combo1.ListCount > 0 Then Combo1 = Combo1.List(0)
End Sub

Private Sub Dir1_Change()
  Command1_Click
End Sub

Private Sub Drive1_Change()
  Dir1.Path = Drive1
End Sub

sx_dg2015-12-07 23:10

回复 7楼 wmf2014

谢谢老师!