如何在vba中引入filelistbox,drivelistbox,dirlistbox控件
如何在vba中引入filelistbox,drivelistbox,dirlistbox控件 不会,用API做一个对话框,或者用commonDialog做一个文件选择界面 用vb做成控件,VBA调用 <P align=justify><FONT lang=ZH-CN face=宋体 size=3>首先启动</FONT><FONT size=3>VB 6.0</FONT><FONT lang=ZH-CN face=宋体 size=3>，在</FONT><FONT size=3>New Project</FONT><FONT lang=ZH-CN face=宋体 size=3>窗口中选择</FONT><FONT size=3>ActiveX Control</FONT><FONT lang=ZH-CN face=宋体 size=3>。这时你的工程文件中将包括一个</FONT><FONT size=3>UserControl1</FONT><FONT lang=ZH-CN face=宋体 size=3>。在</FONT><FONT size=3>Project</FONT><FONT lang=ZH-CN face=宋体 size=3>菜单下选择</FONT><FONT face="Courier New" size=3>Project1 Properties</FONT><FONT lang=ZH-CN face=宋体 size=3>修改工程的名字为</FONT><FONT face="Courier New" size=3>MyDriveControl</FONT><FONT lang=ZH-CN face=宋体 size=3>。然后在</FONT><FONT face="Courier New" size=3>UserContronl1</FONT><FONT lang=ZH-CN face=宋体 size=3>上放置一个标准的</FONT><FONT face="Courier New" size=3>VB</FONT><FONT lang=ZH-CN face=宋体 size=3>的</FONT><FONT face="Courier New" size=3>DriveListBox</FONT><FONT lang=ZH-CN face=宋体 size=3>，然后选择</FONT><FONT face="Courier New" size=3>Add-ins</FONT><FONT lang=ZH-CN face=宋体 size=3>菜单中的</FONT><FONT face="Courier New" size=3>ActiveX Control Interface Wizard</FONT><FONT lang=ZH-CN face=宋体 size=3>。如果你的</FONT><FONT face="Courier New" size=3>Add-ins</FONT><FONT lang=ZH-CN face=宋体 size=3>菜单中没有这项，你需要在</FONT><FONT face="Courier New" size=3>Add-ins</FONT><FONT lang=ZH-CN face=宋体 size=3>菜单的</FONT><FONT face="Courier New" size=3>Add-ins Manager</FONT><FONT lang=ZH-CN face=宋体 size=3>中加上这项。这个</FONT><FONT face="Courier New" size=3>Wizard</FONT><FONT lang=ZH-CN face=宋体 size=3>是用来向你控件中加入属性、方法和事件的。在第一步你要决定加入哪些属性、方法和事件，你可以在左边的列表框中选择所有标准的属性、方法和事件，加入到右边列表框中。一些</FONT><FONT face="Courier New" size=3>DriveListBox</FONT><FONT lang=ZH-CN face=宋体 size=3>的核心属性、事件，象</FONT><FONT face="Courier New" size=3>Path</FONT><FONT lang=ZH-CN face=宋体 size=3>、</FONT><FONT face="Courier New" size=3>PathChange</FONT><FONT lang=ZH-CN face=宋体 size=3>、</FONT><FONT face="Courier New" size=3>Pattern</FONT><FONT lang=ZH-CN face=宋体 size=3>当然不能缺少。第二步，你可以加入自己的属性，如果没什么属性可以加的，就跳过这一步。第三步是建立你的控件的属性和</FONT><FONT face="Courier New" size=3>Drive1</FONT><FONT lang=ZH-CN face=宋体 size=3>之间的关联,</FONT><FONT lang=ZH-CN face=宋体 size=3>这一步你只要将</FONT><FONT face="Courier New" size=3>File1</FONT><FONT lang=ZH-CN face=宋体 size=3>的属性、事件与你的控件的相同名字的属性、事件关联起来就行了。然后，一直继续下去直至结束。最后，在</FONT><FONT face="Courier New" size=3>UserControl_Resize</FONT><FONT lang=ZH-CN face=宋体 size=3>事件中加入如下代码。</FONT></P><P align=justify><FONT face="Courier New" size=3>Private Sub UserControl_Resize()</FONT></P>
<P align=justify><FONT face="Courier New" size=3>Drive1.Width = UserControl.Width</FONT></P>
<P align=justify><FONT face="Courier New" size=3>Drive1.Height = UserControl.Height</FONT></P>
<P align=justify><FONT face="Courier New" size=3>Drive1.Move 0, 0</FONT></P>
<P align=justify><FONT face="Courier New" size=3>End Sub</FONT></P>
<P align=justify><FONT face="Courier New" size=3></FONT> </P>
<P align=justify><FONT face="Courier New" size=3>可是为什么在vba环境调用的时候，出现未找到元素的错误？？？？？？？？？</FONT></P> 哦也碰到这个问题了，有谁能发个能在VBA里能用的filelist，drivelist等控件吗
页:
[1]