有阵列吗？

Tuoni · 发表于 2008-5-2 13:35:20

本人&#039；我有一个程序；我正在努力，我需要创建一个信息列表&nbsp；基于各种搜索I&#039；我做完了，我&#039；我现在可能比以前更困惑了&nbsp；本人&#039；我不知道最好的方法是什么（编写字典、数组、集合等），但我&35;039；我想学习如何使用arrray
所以这里&#039；s勺…
程序I&#039；m将创建一系列图形，并向其中添加各种布局选项卡&nbsp；对于初学者，我需要根据文件名以及与之相关联的布局选项卡来收集图形信息
例如：；图纸#039；A&#039；可以有布局选项卡&#039；A&#039'B&#039'C&nbsp；图纸#039；B#039；可以有布局选项卡&#039；A1和039'A2&#039'A3和039'A4和#039'A5和039；等等等等
I&#039；我目前正在从我的程序的listview框中收集信息（请参阅随附的DVB）&nbsp；当你点击；“创建项目文件”；按钮，它循环浏览listview中的条目&nbsp；但我需要做的是收集以下信息：绘图#039；A&#039
布局选项卡&#039；A&#039
布局选项卡&#039；B#039
布局选项卡&#039；C#039
图纸&#039；B#039
布局选项卡&#039；A1和039
布局选项卡&#039；A2和039
布局选项卡&#039；A3和039
布局选项卡&#039；A4和039
布局选项卡&#039；A5和039
等等…
那么我需要做一个数组吗（就好像一个简单的数组没有给我足够的悲伤）&nbsp；我希望这有意义。

np5jkvcwnxg.png

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Tuoni · 发表于 2008-5-2 14:17:07

一种方法是收集&nbsp；可以创建具有名称的DwgInfo对象（图a）；并且有一个集合，您可以在其中存储布局名称
类似这样的内容：在名为DwgInfo的类模块中[代码然后在代码模块中：

copy

Public Sub Test()
    Dim dwg1 As DwgInfo
    Dim dwg2 As DwgInfo
    Dim colDwg As Collection
    
    Dim i As Integer
    
    Set colDwg = New Collection
    
    Set dwg1 = New DwgInfo
    Set dwg2 = New DwgInfo
    
    dwg1.Name = "Drawing A"
    dwg1.add ("A")
    dwg1.add ("B")
    dwg1.add ("C")
    
    dwg2.Name = "Drawing B"
    dwg2.add ("A1")
    dwg2.add ("A2")
    dwg2.add ("A3")
    
    For i = 1 To dwg1.Count
      'do your stuff here
        Debug.Print dwg1.Item(i)
    Next i
    
    For i = 1 To dwg2.Count
     'do your stuff here
        Debug.Print dwg2.Item(i)
    Next i
    
    
End Sub

此外，在您的代码模块中，您可以有另一个集合来保存dwgInfo对象，然后迭代该集合来发挥您的魔力
如果使用数组，则必须调整其大小以添加集合速度可能较慢但更易于用于动态大小数据的元素
只有我的2美分。

Tuoni · 发表于 2008-5-2 14:25:47

本人&#039；我不确定收藏会是一种方式，因为1）图形/布局选项卡的数量会因情况而异，2）如何确定某个项目是否已经在收藏中&nbsp；不存在函数&nbsp；这是一个单独的函数吗
I&#039；我真的很想弄清楚这个数组&nbsp；It#039；他快把我逼疯了
谢谢你的意见。

Tuoni · 发表于 2008-5-2 15:41:40

托妮：这里&#039；是“创建项目文件”按钮后面的代码

copy

Private Sub cmdSetup_Click()
    Dim i As Integer
    Dim intFileNumber As Integer
    Dim strLayout As String, strFileName As String
    For i = 1 To lvTech.ListItems.Count
        intFileNumber = lvTech.ListItems(i)
        strLayout = lvTech.ListItems(i).ListSubItems(1)
        strFileName = lvTech.ListItems(i).ListSubItems(3)
        Debug.Print strFileName
        Debug.Print strLayout
    Next i
End Sub

这就是它在即时窗口中吐出的内容
这是基于你在我第一篇帖子中看到的图片。

Kerry · 发表于 2008-5-2 16:11:06

如果我&#039；我理解你&#039；重新瞄准正确的目标（我可能不是…）David Blackmon发布的代码似乎完全符合您的要求-对于每个图形，创建一个新的DwgInfo对象，将布局添加到其中，然后将其添加到集合&nbsp；如果需要，您可以编写一个exists属性，该属性在集合中循环？

Tuoni · 发表于 2008-5-2 16:13:23

收藏是最好的方式吗&nbsp；还是阵列更好&nbsp；只是好奇。

Tuoni · 发表于 2008-5-2 16:22:15

还有一个问题

copy

    Dim dwg1 As DwgInfo
    Dim dwg2 As DwgInfo

提供的代码有2个变暗&nbsp；我想，我怎么能这样呢；dim“；当我遇到更多的图画时，更多的在飞
It&#039；已经很久了，我&#039；我已经盯着这个代码好几个小时了，它35;039；一切都变得模糊了，请原谅我&#039；我在问“你是谁？”；“愚蠢”；问题&nbsp&nbsp；

Tuoni · 发表于 2008-5-2 16:24:03

收藏是最好的方式吗&nbsp；还是阵列更好&nbsp；只是好奇
实际上，这取决于你想用它们做什么&nbsp；与数组相比，集合有两个优点-添加到集合中非常简单，与不使用的数组不同&#039；不要担心它有多满，你是否有空间，空间在哪里&nbsp；其次，您可以通过索引或键引用集合中的项目，数组只能使用索引；收集理论上比数组慢，但我怀疑你35;039；d通知&nbsp；不过，要记住的一件事是，收藏#039；索引从1开始，而不是从0开始

Kerry · 发表于 2008-5-2 16:38:00

您应该能够在循环中创建对象，如下所示：（注意，未测试）

copy

Public Sub Test()
    Dim dwg As DwgInfo
    Dim colDwg As Collection
    
    Dim i As Integer
    Dim j As Integer
    Set colDwg = New Collection
    
    For i = 1 To lvTech.ListItems.Count
        Set dwg = new DwgInfo
        dwg.Name = lvTech.ListItems(i).ListSubItems(3)
        For j = 1 To dwg.Count
            dwg.add( -insert the code for the layout in here- )
        Next j
        colDwg.add(dwg)
    Next i
    
End Sub

无论如何，是这样的&nbsp；你&#039；我需要做一些健全的检查-再次，未经测试

Tuoni · 发表于 2008-5-2 16:38:33

你可以调暗一个变量，并反复使用它

copy

Public Sub Test()
    Dim dwg1 As DwgInfo
    Dim dwg2 As DwgInfo
    Dim colDwg As Collection
    
    Dim i As Integer
    Dim j As Integer
    
    
    Set colDwg = New Collection
    
    Set dwg1 = New DwgInfo
    Set dwg2 = New DwgInfo
    
    'loop thru the possible drawing names here and add them to the colDwg
    For i = 1 To 5
        Set dwg1 = New DwgInfo
       'add another loop here to add each layout to the dwg1 object
        dwg1.Name = "Drawing A" + Str(i)
        dwg1.add ("A" + Str(i))
        dwg1.add ("B" + Str(i))
        dwg1.add ("C" + Str(i))
        colDwg.add dwg1
        Set dwg1 = Nothing
    Next i
    
    For i = 1 To 5
        Set dwg2 = colDwg.Item(i)
        For j = 1 To dwg2.Count
            Debug.Print dwg2.Item(j)
        Next j
    
    Next i
    
  
End Sub

有阵列吗？

发表回复

精选推荐