如何在vba中引入filelistbox,drivelistbox,dirlistbox控件

elite

如何在vba中引入filelistbox,drivelistbox,dirlistbox控件

xinghesnak

不会,用API做一个对话框,或者用commonDialog做一个文件选择界面

雪山飞狐_lzh

用vb做成控件,VBA调用

elite

首先启动VB 6.0，在New Project窗口中选择ActiveX Control。这时你的工程文件中将包括一个UserControl1。在Project菜单下选择Project1 Properties修改工程的名字为MyDriveControl。然后在UserContronl1上放置一个标准的VB的DriveListBox，然后选择Add-ins菜单中的ActiveX Control Interface Wizard。如果你的Add-ins菜单中没有这项，你需要在Add-ins菜单的Add-ins Manager中加上这项。这个Wizard是用来向你控件中加入属性、方法和事件的。在第一步你要决定加入哪些属性、方法和事件，你可以在左边的列表框中选择所有标准的属性、方法和事件，加入到右边列表框中。一些DriveListBox的核心属性、事件，象Path、PathChange、Pattern当然不能缺少。第二步，你可以加入自己的属性，如果没什么属性可以加的，就跳过这一步。第三步是建立你的控件的属性和Drive1之间的关联,这一步你只要将File1的属性、事件与你的控件的相同名字的属性、事件关联起来就行了。然后，一直继续下去直至结束。最后，在UserControl_Resize事件中加入如下代码。

Private Sub UserControl_Resize()

Drive1.Width = UserControl.Width

Drive1.Height = UserControl.Height

Drive1.Move 0, 0

End Sub

 

可是为什么在vba环境调用的时候，出现未找到元素的错误？？？？？？？？？

yanyanjun999

哦也碰到这个问题了，有谁能发个能在VBA里能用的filelist，drivelist等控件吗