一些新手的帮助
好的，我已经用VBA玩了大约一个星期了，只是写一些小东西，看看我能做什么；不行 ；我从帮助文件中得到了这个小片段，并对其进行了修改以满足我的需要[代码然而，我有一个问题
看起来可以吗？我可以用函数中的这个子函数填充列表框吗
我还尝试了几种方法来获取这段代码，并将扩展名传递给它，以获取该文件类型的列表
任何帮助都将不胜感激
谢谢
嘿，邪恶的D.蒂莫西·斯莱瑟：
我'；我使用了以下代码
Option Explicit
Public DirectoryListArray() As String
Public Sub Main()
Dim MyFile As String
Dim Counter As Long
ReDim DirectoryListArray(1000)
MyFile = Dir$("c:\temp\*.dwg")
Do While MyFile""
DirectoryListArray(Counter) = MyFile
MyFile = Dir$
Counter = Counter + 1
Loop
ReDim Preserve DirectoryListArray(Counter - 1)
End Sub 然后使用以下命令加载列表框
ListBox1.List = DirectoryListArray 谢谢Matt（又名Trick Magnet M.Flava）
代码示例帮助我从LISP迁移到VB（a）
I'；我一直在写一个小模块tring来做一些在lisp中很容易的小事情
；新Q；当我创建一个新的子模块或只是一个大模块时，我应该添加模块吗
再次感谢 你'；欢迎再次光临
我不'；我不知道是否真的有正确的方法
I'；我已经看到它有三种不同的方式：
1）将所有子对象集中到一个模块中（我不在乎这个）
2）为每个子对象分别设置模块（也不在乎这个）将子对象分组到不同的模块中（这就是我试图做的事情）。例如，注册表代码的所有子项将位于一个模块中；用于文件操作的所有子模块将位于另一个模块中；等等等等
我想有'；s a“；“推荐”；做得好 ；这是什么，我不知道 ；我喜欢选项#3和I'；我会坚持下去，因为它#039；他一直在为我工作。 我已经开始做选项3。所有层功能在一个，所有文件夹功能在另一个，等等；这似乎很顺利
I'；我一直在用那种方式写我的口齿不清。所有文件都在一个文件中，但我将文件分为几个部分
看起来更干净
谢谢 在决定将代码放在何处（就模块而言）时，需要记住的一件事是其中包含的变量/函数的范围 ；您需要知道该模块将在什么时候启动；“已加载”；和“；“卸载”；为了弄清楚什么时候像全局变量之类的东西包含在模块中，带有；走开 ；它不#039；当你谈论模块时，不要有那么大的不同 ；但当你谈论课堂时，它确实存在。 我也使用选项3 ；我为层、文本、标题栏等制作单独的dvb文件，然后为不同的子对象使用模块，最后将相似的子对象分组到一个模块中 ；我希望这有意义
页:
[1]