一些新手的帮助

TimSpangler · 发表于 2006-10-30 12:51:03

好的，我已经用VBA玩了大约一个星期了，只是写一些小东西，看看我能做什么；不行&nbsp；我从帮助文件中得到了这个小片段，并对其进行了修改以满足我的需要
[代码然而，我有一个问题
看起来可以吗？我可以用函数中的这个子函数填充列表框吗
我还尝试了几种方法来获取这段代码，并将扩展名传递给它，以获取该文件类型的列表
任何帮助都将不胜感激
谢谢

TimSpangler · 发表于 2006-10-30 13:28:06

嘿，邪恶的D.蒂莫西·斯莱瑟：
我&#039；我使用了以下代码

copy

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

然后使用以下命令加载列表框

copy

ListBox1.List = DirectoryListArray

TimSpangler · 发表于 2006-10-31 12:12:32

谢谢Matt（又名Trick Magnet M.Flava）
代码示例帮助我从LISP迁移到VB（a）
I&#039；我一直在写一个小模块tring来做一些在lisp中很容易的小事情
；新Q；当我创建一个新的子模块或只是一个大模块时，我应该添加模块吗
再次感谢

TimSpangler · 发表于 2006-10-31 12:20:29

你&#039；欢迎再次光临
我不&#039；我不知道是否真的有正确的方法
I&#039；我已经看到它有三种不同的方式：
1）将所有子对象集中到一个模块中（我不在乎这个）
2）为每个子对象分别设置模块（也不在乎这个）将子对象分组到不同的模块中（这就是我试图做的事情）。例如，注册表代码的所有子项将位于一个模块中；用于文件操作的所有子模块将位于另一个模块中；等等等等
我想有&#039；s a“；“推荐”；做得好&nbsp；这是什么，我不知道&nbsp；我喜欢选项#3和I&#039；我会坚持下去，因为它#039；他一直在为我工作。

TimSpangler · 发表于 2006-10-31 12:30:37

我已经开始做选项3。所有层功能在一个，所有文件夹功能在另一个，等等；这似乎很顺利
I&#039；我一直在用那种方式写我的口齿不清。所有文件都在一个文件中，但我将文件分为几个部分
看起来更干净
谢谢

TimSpangler · 发表于 2006-10-31 13:05:56

在决定将代码放在何处（就模块而言）时，需要记住的一件事是其中包含的变量/函数的范围&nbsp；您需要知道该模块将在什么时候启动；“已加载”；和“；“卸载”；为了弄清楚什么时候像全局变量之类的东西包含在模块中，带有；走开&nbsp；它不#039；当你谈论模块时，不要有那么大的不同&nbsp；但当你谈论课堂时，它确实存在。

TimSpangler · 发表于 2006-10-31 13:08:20

我也使用选项3&nbsp；我为层、文本、标题栏等制作单独的dvb文件，然后为不同的子对象使用模块，最后将相似的子对象分组到一个模块中&nbsp；我希望这有意义

一些新手的帮助

发表回复

精选推荐

浏览过的版块